corrections in wham and clust

[unres.git] / source / cluster / wham / src-M / readrtns.F

diff --git a/source/cluster/wham/src-M/readrtns.F b/source/cluster/wham/src-M/readrtns.F
index ea51dbf..6769fb7 100644 (file)
--- a/source/cluster/wham/src-M/readrtns.F
+++ b/source/cluster/wham/src-M/readrtns.F
@@ -118,8 +118,10 @@ C Body
 C
 C Read weights of the subsequent energy terms.
       call card_concat(weightcard)
+      write(iout,*) weightcard
       call reada(weightcard,'WSC',wsc,1.0d0)
       call reada(weightcard,'WLONG',wsc,wsc)
+      write(iout,*) "WLONG=",wsc
       call reada(weightcard,'WSCP',wscp,1.0d0)
       call reada(weightcard,'WELEC',welec,1.0D0)
       call reada(weightcard,'WVDWPP',wvdwpp,welec)
@@ -150,10 +152,12 @@ C Read weights of the subsequent energy terms.
       call reada(weightcard,"V2SS",v2ss,7.61d0)
       call reada(weightcard,"V3SS",v3ss,13.7d0)
       call reada(weightcard,"EBR",ebr,-5.50D0)
+      write (iout,*) "atriss",atriss
       call reada(weightcard,"ATRISS",atriss,0.301D0)
       call reada(weightcard,"BTRISS",btriss,0.021D0)
       call reada(weightcard,"CTRISS",ctriss,1.001D0)
       call reada(weightcard,"DTRISS",dtriss,1.001D0)
+      write(iout,*) "after"
       write (iout,*) "ATRISS=", atriss
       write (iout,*) "BTRISS=", btriss
       write (iout,*) "CTRISS=", ctriss
@@ -213,7 +217,7 @@ C 12/1/95 Added weight for the multi-body term WCORR
      &  wtor_d,wstrain,wel_loc,wcorr,wcorr5,wcorr6,wturn3,
      &  wturn4,wturn6,wsccor
    10 format (/'Energy-term weights (unscaled):'//
-     & 'WSCC=   ',f10.6,' (SC-SC)'/
+     & 'WSC=    ',f10.6,' (SC-SC)'/
      & 'WSCP=   ',f10.6,' (SC-p)'/
      & 'WELEC=  ',f10.6,' (p-p electr)'/
      & 'WVDWPP= ',f10.6,' (p-p VDW)'/