X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=093ca8afad8acd3e0a7caf1352fde74b2dd8ed63;hb=7bb45761e592e3631013f7f09a37c57068707c48;hp=0620acb942cafa214869ae3c96565ccee032dabd;hpb=8df996bdc4bc56846b3799e9a2d47c24a9273125;p=unres.git diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F index 0620acb..093ca8a 100644 --- a/source/unres/src_MD-M/parmread.F +++ b/source/unres/src_MD-M/parmread.F @@ -1117,10 +1117,10 @@ C---------------------- GB or BP potential ----------------------------- C now we start reading lipid do i=1,ntyp read (isidep,*,end=1161,err=1161)(epslip(i,j),j=i,ntyp) - print *,"WARNING!!" - do j=1,ntyp - epslip(i,j)=epslip(i,j)+0.05d0 - enddo +C print *,"WARNING!!" +C do j=1,ntyp +C epslip(i,j)=epslip(i,j)+0.05d0 +C enddo enddo C For the GB potential convert sigma'**2 into chi' if (ipot.eq.4) then