c Load the friction coefficients corresponding to side chains
m=nct-nnt
ind=0
+ gamsc(ntyp1)=1.0d0
do i=nnt,nct
ind=ind+1
ii = ind+m
include 'COMMON.INTERACT'
include 'COMMON.IOUNITS'
include 'COMMON.NAMES'
- double precision radius(maxres2),gamvec(maxres6)
+ double precision radius(maxres2),gamvec(maxres2)
parameter (twosix=1.122462048309372981d0)
logical lprn /.false./
c