-c v1cdij = v2c(k,l,itori,itori1,itori2,iblock)
-c v2cdij = v2c(l,k,itori,itori1,itori2,iblock)
-c v1sdij = v2s(k,l,itori,itori1,itori2,iblock)
-c v2sdij = v2s(l,k,itori,itori1,itori2,iblock)
- v1cdij = v2c(k,l,itori,itori1,itori2)
- v2cdij = v2c(l,k,itori,itori1,itori2)
- v1sdij = v2s(k,l,itori,itori1,itori2)
- v2sdij = v2s(l,k,itori,itori1,itori2)
+ v1cdij = v2c(k,l,itori,itori1,itori2,iblock)
+ v2cdij = v2c(l,k,itori,itori1,itori2,iblock)
+ v1sdij = v2s(k,l,itori,itori1,itori2,iblock)
+ v2sdij = v2s(l,k,itori,itori1,itori2,iblock)