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)
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
& 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)'/