D i L aminokwasy dzialajace dla src_CSA

[unres.git] / source / unres / src_CSA_DiL / geomout_min.F

diff --git a/source/unres/src_CSA_DiL/geomout_min.F b/source/unres/src_CSA_DiL/geomout_min.F
index 5dab339..e634c5a 100644 (file)
--- a/source/unres/src_CSA_DiL/geomout_min.F
+++ b/source/unres/src_CSA_DiL/geomout_min.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