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=ff73ddbe323f5af85e31af14caa0ee6fc162a94a;hp=5dab339b90336746f157f0ad163d8f70fd29f199;hpb=b040214d28c2c5aea0971f69b6866f1a42c84e69;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