X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fparmread.F;h=abb33a097ce578fd2a2dc12ad2d0e2dde89c8534;hb=aa037b39c46474f358b050551261d7c5ac3d2357;hp=435ee09bdb56b87d5f136adeb08959265cbaeac2;hpb=1a8216297db4d3568d41817711f75f97881e4569;p=unres.git

diff --git a/source/wham/src/parmread.F b/source/wham/src/parmread.F
index 435ee09..abb33a0 100644
--- a/source/wham/src/parmread.F
+++ b/source/wham/src/parmread.F
@@ -99,6 +99,12 @@ c
       wstrain=ww(15)
       wbond=ww(18)
       wsccor=ww(19)
+      wdfa_dist=ww(23)
+      wdfa_tor=ww(24)
+      wdfa_nei=ww(25)
+      wdfa_beta=ww(26)
+      write (iout,*) "wdfa_dist",wdfa_dist," wdfa_tor",wdfa_tor,
+     & " wdfa_nei",wdfa_nei," wdfa_beta",wdfa_beta
 
       endif
 cc      write(iout,*) "KURWA", wstrain,akcm,akth,wsc,dyn_ss
@@ -641,6 +647,7 @@ cc maxinter is maximum interaction sites
 
       if (lprint) then
         write (iout,'(/a/)') 'Torsional constants:'
+        do l=1,maxinter
         do i=1,nsccortyp
           do j=1,nsccortyp
             write (iout,*) 'ityp',i,' jtyp',j
@@ -655,6 +662,7 @@ cc maxinter is maximum interaction sites
             enddo
           enddo
         enddo
+        enddo
       endif
 
 C