X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=64203a2d5b30423f61852e3e7bb91743cf49a369;hb=205c9fe33aded64a13b1c3acce5fec169a6f6b8a;hp=9bc2d20c7dee0f52b433dbc34ac6fd08a024310f;hpb=bfd5eb568681f59f95dd537d450644f7ff82bd60;p=unres.git

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 9bc2d20..64203a2 100644
--- 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)