D i L aminokwasy dzialajace dla src_MD

[unres.git] / source / unres / src_MD / geomout.F

diff --git a/source/unres/src_MD/geomout.F b/source/unres/src_MD/geomout.F
index 69d7802..29e3529 100644 (file)
--- a/source/unres/src_MD/geomout.F
+++ b/source/unres/src_MD/geomout.F
@@ -130,7 +130,7 @@ C format.
       include 'COMMON.IOUNITS'
       include 'COMMON.HEADER'
       include 'COMMON.SBRIDGE'
-      character*32 tytul,fd
+      character*50 tytul,fd
       character*3 zahl
       character*6 res_num,pom,ucase
 #ifdef AIX