changes

[unres.git] / source / wham / src-HCD / enecalc1.F

diff --git a/source/wham/src-HCD/enecalc1.F b/source/wham/src-HCD/enecalc1.F
index 60addc7..b64de48 100644 (file)
--- a/source/wham/src-HCD/enecalc1.F
+++ b/source/wham/src-HCD/enecalc1.F
@@ -46,7 +46,7 @@ c      double precision tole /1.0d-1/
       double precision tt
       integer snk_p(MaxR,MaxT_h,Max_parm)
       logical lerr
-      character*64 bprotfile_temp
+      character*256 bprotfile_temp
       call opentmp(islice,ientout,bprotfile_temp)
       iii=0
       ii=0
@@ -368,7 +368,7 @@ c------------------------------------------------------------------------------
       include "COMMON.CONTACTS1"
       character*64 nazwa
       character*80 bxname,cxname
-      character*64 bprotfile_temp
+      character*256 bprotfile_temp
       character*3 liczba,licz
       character*2 licz2
       integer i,itj,ii,iii,j,k,l