X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fenecalc1.F;h=c71b9c04f2796b9e421ba0685a3d2b0e8e34da0f;hb=1fbb0a6dc3a2548755d070368f017e5b0657f38a;hp=0ed44d5c559aafa4a6ff331267ac53393a78fc13;hpb=ce029d82f9541e9434d7b016ad442b20526de7a2;p=unres.git

diff --git a/source/wham/src/enecalc1.F b/source/wham/src/enecalc1.F
index 0ed44d5..c71b9c0 100644
--- a/source/wham/src/enecalc1.F
+++ b/source/wham/src/enecalc1.F
@@ -46,7 +46,7 @@
       integer snk_p(MaxR,MaxT_h,Max_parm)
       integer scount_(0:MaxProcs)
       logical lerr
-      character*64 bprotfile_temp
+      character*128 bprotfile_temp
       call opentmp(islice,ientout,bprotfile_temp)
       iii=0
       ii=0
@@ -350,7 +350,7 @@ c------------------------------------------------------------------------------
       include "COMMON.PROT"
       character*64 nazwa
       character*80 bxname,cxname
-      character*64 bprotfile_temp
+      character*128 bprotfile_temp
       character*3 liczba,licz
       character*2 licz2
       integer i,itj,ii,iii,j,k,l