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=b80095baa5cf596b55d07912516480a890b88cd7;hp=8fa2bad53e9100a439ea2fd9e7dd6702e8d1956c;hb=4d4be87fb43102a6a5be442699a953ef327ecbde;hpb=5ba2a6014fbd859202ed28885b66520ac09bb77d diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F index 8fa2bad..b80095b 100644 --- a/source/unres/src_MD-M/parmread.F +++ b/source/unres/src_MD-M/parmread.F @@ -1369,7 +1369,8 @@ c augm(i,j)=0.5D0**(2*expon)*aa(i,j) pep_bb_tube=-sigeps*4.0d0*epspeptube*sigmapeptube write(iout,*) pep_aa_tube,pep_bb_tube,tubetranenepep do i=1,ntyp - read(itube,*) epssctube,sigmasctube,tubetranene(i) + read(itube,*) epssctube,sigmasctube,acavtub(i),bcavtub(i), + & ccavtub(i),dcavtub(i),tubetranene(i) sigmasctube=sigmasctube**6 sigeps=dsign(1.0D0,epssctube) epssctube=dabs(epssctube)