X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Fgeomout_min.F;h=e634c5abad391335b5c4f70d86137308c58d194c;hb=59403741e5c6541c3617c08c6e8e0c11ec394cce;hp=5dab339b90336746f157f0ad163d8f70fd29f199;hpb=b3546f44cee9351e5e45e090b47eba93821fd368;p=unres.git

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