X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;fp=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=78d0afb903641d0f599ba1ffbcfa93016b0fbb72;hp=b80095baa5cf596b55d07912516480a890b88cd7;hb=9a26354af2c68a12347d7f85ad158e3ba22fdd7d;hpb=4d4be87fb43102a6a5be442699a953ef327ecbde diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F index b80095b..78d0afb 100644 --- a/source/unres/src_MD-M/parmread.F +++ b/source/unres/src_MD-M/parmread.F @@ -1361,7 +1361,8 @@ c augm(i,j)=0.5D0**(2*expon)*aa(i,j) enddo enddo write(iout,*) "tube param" - read(itube,*) epspeptube,sigmapeptube,tubetranenepep + read(itube,*) epspeptube,sigmapeptube,acavtubpep,bcavtubpep, + & ccavtubpep,dcavtubpep,tubetranenepep sigmapeptube=sigmapeptube**6 sigeps=dsign(1.0D0,epspeptube) epspeptube=dabs(epspeptube)