X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Freadrtns.F;h=3d308b466bd04c67f99e34faa8bca2dc6e096d2a;hb=3d6f9e7811a3341955e6fdda721ab6de34efe252;hp=bc964f3384233bf05d380795fdb535d078bbc1ec;hpb=09087fef23592a51ad0d09815c3fc5f10e352a7b;p=unres.git

diff --git a/source/wham/src/readrtns.F b/source/wham/src/readrtns.F
index bc964f3..3d308b4 100644
--- a/source/wham/src/readrtns.F
+++ b/source/wham/src/readrtns.F
@@ -252,7 +252,7 @@ c-----------------------------------------------------------------------------
       include "COMMON.NAMES"
       include "COMMON.FREE"
       include "COMMON.OBCINKA"
-      character*64 nazwa
+      character*128 nazwa
       character*16000 controlcard
       integer i,ii,ib,iR,iparm,ilen,iroof,nthr,npars
       external ilen,iroof
@@ -355,7 +355,7 @@ c-------------------------------------------------------------------------------
       include "COMMON.PROTFILES"
       include "COMMON.PROT"
       include "COMMON.FREE"
-      character*64 bprotfile_temp
+      character*128 bprotfile_temp
       character*3 liczba,liczba2
       character*2 liczba1
       integer iunit,islice
@@ -415,7 +415,8 @@ c-------------------------------------------------------------------------------
       include "COMMON.SBRIDGE"
       include "COMMON.OBCINKA"
       real*4 csingle(3,maxres2)
-      character*64 nazwa,bprotfile_temp
+      character*64 nazwa
+      character*128 bprotfile_temp
       character*3 liczba
       character*2 liczba1
       integer i,j,ii,jj(maxslice),k,kk(maxslice),l,