correction in wham and UNRES for lipid and correlation
[unres.git] / source / wham / src-M / parmread.F
index 097e1f7..8db78b9 100644 (file)
@@ -1112,7 +1112,8 @@ C---------------------- GB or BP potential -----------------------------
       read (isidep,*)(alp(i),i=1,ntyp)
       do i=1,ntyp
        read (isidep,*)(epslip(i,j),j=i,ntyp)
-C       print *,"WARNING!!"
+C       write(iout,*) "WARNING!!",i,ntyp
+       write(iout,*) "epslip", i, (epslip(i,j),j=i,ntyp)
 C       do j=1,ntyp
 C       epslip(i,j)=epslip(i,j)+0.05d0
 C       enddo