wprowadzenie do multichaina SCcorr

[unres.git] / source / unres / src_MD-M / parmread.F

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 9bc2d20..64203a2 100644 (file)
--- a/source/unres/src_MD-M/parmread.F
+++ b/source/unres/src_MD-M/parmread.F
@@ -705,8 +705,9 @@ c        ee(2,1,i)=0.0d0
 c        ee(1,2,i)=0.0d0
 c        ee(2,1,i)=ee(1,2,i)
       enddo
+C      write(iout,*) "parm", B1(1,nloctyp+1),B1(2,nloctyp+1)
       if (lprint) then
-      do i=1,nloctyp
+      do i=1,nloctyp+1
         write (iout,*) 'Type',i
         write (iout,*) 'B1'
         write(iout,*) B1(1,i),B1(2,i)