do i=1,maxss
iss(i)=0
enddo
- do i=1,maxdim
+ do i=1,maxdim_cont
dhpb(i)=0.0D0
enddo
do i=1,maxres
! 15 16 17 18 19 20 21
& "WHPB ","WVDWPP","WSCP14","WBOND","WSCCOR","WDIHC","WSC",
! 22 23 24 25 26 27 28
- & "WLIPTRAN","WAFM","WTHETC","WSHIELD","WSAXS","WHOMO","WDFAD",
+ & "WLT ","WAFM","WTHETC","WSHIELD","WSAXS","WHOMO","WDFAD",
! 29 30 31
& "WDFAT","WDFAN","WDFAB"/
data ww0 /
include 'COMMON.IOUNITS'
include "COMMON.TORCNSTR"
logical scheck,lprint
- lprint=.false.
+ lprint=.true.
do i=1,maxres
nint_gr(i)=0
nscp_gr(i)=0