dsc(ntyp1)=0.0D0
do i=1,maxtor
itortyp(i)=0
dsc(ntyp1)=0.0D0
do i=1,maxtor
itortyp(i)=0
do j=1,maxtor
do k=1,maxterm
do j=1,maxtor
do k=1,maxterm
- v1(k,j,i)=0.0D0
- v2(k,j,i)=0.0D0
+ v1(k,j,i,iblock)=0.0D0
+ v2(k,j,i,iblock)=0.0D0
enddo
do i=1,maxres
itype(i)=0
enddo
do i=1,maxres
itype(i)=0