X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Fcxread.F;h=2cfb93817dfdd087665964404cc5595849ff59b4;hb=68aa1d135805a14583695611acfcf637748b4466;hp=36ef6e6b208619d71d13bfcca4b1187f42837f3f;hpb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;p=unres.git diff --git a/source/wham/src-HCD/cxread.F b/source/wham/src-HCD/cxread.F index 36ef6e6..2cfb938 100644 --- a/source/wham/src-HCD/cxread.F +++ b/source/wham/src-HCD/cxread.F @@ -17,7 +17,7 @@ include 'COMMON.VAR' include 'COMMON.GEO' include 'COMMON.PROT' - character*64 nazwa,bprotfile_temp + character*256 nazwa,bprotfile_temp real*4 rtime,rpotE,ruconst,rt_bath,rprop(maxQ) double precision time integer iret,itmp,itraj,ntraj @@ -174,7 +174,7 @@ c call flush(iout) c write (iout,*) "Before boxshift" c call flush(iout) c Box shift - call oligomer +c call oligomer c write (iout,*) "After oligomer" c call flush(iout) do i=1,nres