X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fparmread.F;h=d4fa5212bff637d7411884a82b341d1c2c413cd2;hb=25cf4acee8e56498ffe13a204a90853d8c415869;hp=87be54f57237ad4498092bc12c941f1a160f2c3c;hpb=23c53ef4bfe4b994173cbbb61ecb859e829b4d48;p=unres.git diff --git a/source/wham/src-M/parmread.F b/source/wham/src-M/parmread.F index 87be54f..d4fa521 100644 --- a/source/wham/src-M/parmread.F +++ b/source/wham/src-M/parmread.F @@ -70,6 +70,11 @@ c If reading not own parameters, skip assignment call reada(controlcard,"BTRISS",btriss,0.02D0) call reada(controlcard,"CTRISS",ctriss,1.0D0) dyn_ss=(index(controlcard,'DYN_SS').gt.0) + write(iout,*) "ATRISS",atriss + write(iout,*) "BTRISS",btriss + write(iout,*) "CTRISS",ctriss + write(iout,*) "DTRISS",dtriss + C do i=1,maxres C dyn_ss_mask(i)=.false. C enddo