endif
if(.not.allocated(vbld_inv)) allocate(vbld_inv(2*nres))
do i=2,nres
+ if (molnum(i).eq.1) then
vbld(i)=vbl
vbld_inv(i)=vblinv
+
+ else
+ vbld(i)=7.0
+ vbld_inv(i)=1.0/7.0
+ endif
enddo
do i=2,nres-1
+ if (molnum(i).eq.1) then
! print *, "molnum",molnum(i),itype(i,molnum(i)),nres,i
vbld(i+nres)=dsc(iabs(itype(i,molnum(i))))
vbld_inv(i+nres)=dsc_inv(iabs(itype(i,molnum(i))))
+ else
+ vbld(i+nres)=vbldsc0_nucl(1,iabs(itype(i,molnum(i))))
+ vbld_inv(i+nres)=1.0/vbldsc0_nucl(1,iabs(itype(i,molnum(i))))
+ endif
! write (iout,*) "i",i," itype",itype(i,1),
! & " dsc",dsc(itype(i,1))," vbld",vbld(i),vbld(i+nres)
enddo