-c c do j=1,ntermd_1(itori,itori1,itori2,iblock)
-c v1cij=v1c(1,j,itori,itori1,itori2,iblock)
-c v1sij=v1s(1,j,itori,itori1,itori2,iblock)
-c v2cij=v1c(2,j,itori,itori1,itori2,iblock)
-c v2sij=v1s(2,j,itori,itori1,itori2,iblock)
- do j=1,ntermd_1(itori,itori1,itori2)
+ do j=1,ntermd_1(itori,itori1,itori2)