- do iblock=1,2
- do i=-maxtor,maxtor
- do j=-maxtor,maxtor
- do k=-maxtor,maxtor
- do l=1,maxtermd_1
- v1c(1,l,i,j,k,iblock)=0.0D0
- v1s(1,l,i,j,k,iblock)=0.0D0
- v1c(2,l,i,j,k,iblock)=0.0D0
- v1s(2,l,i,j,k,iblock)=0.0D0
- enddo !l
- do l=1,maxtermd_2
- do m=1,maxtermd_2
- v2c(m,l,i,j,k,iblock)=0.0D0
- v2s(m,l,i,j,k,iblock)=0.0D0
- enddo !m
- enddo !l
- enddo !k
- enddo !j
- enddo !i
- enddo !iblock