X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD-5D%2Fparmread.F;h=ecf40a72df047fd3f6fc054d938c2f34d0fb8d6c;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=89004f497c9fb011aadef7a10e6cb81a4a7cc81a;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git diff --git a/source/wham/src-HCD-5D/parmread.F b/source/wham/src-HCD-5D/parmread.F index 89004f4..ecf40a7 100644 --- a/source/wham/src-HCD-5D/parmread.F +++ b/source/wham/src-HCD-5D/parmread.F @@ -1064,8 +1064,8 @@ c Dtilde(2,2,i)=0.0d0 EEold(2,2,-i)=-b(10,i)+b(11,i) EEold(2,1,-i)=-b(12,i)+b(13,i) EEold(1,2,-i)=-b(12,i)-b(13,i) -c write(iout,*) "TU DOCHODZE" -c print *,"JESTEM" + write(iout,*) "TU DOCHODZE" + print *,"JESTEM" c ee(1,1,i)=1.0d0 c ee(2,2,i)=1.0d0 c ee(2,1,i)=0.0d0