- common /torsiond/
- &v1c(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2),
- &v1s(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2),
- &v2c(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor,
- & -maxtor:maxtor,2),
- &v2s(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor,
- & -maxtor:maxtor,2),
- & ntermd_1(-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2),
- & ntermd_2(-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2)
+ common /torsiond/ v1c(2,maxtermd_1,maxtor,maxtor,maxtor),
+ & v1s(2,maxtermd_1,maxtor,maxtor,maxtor),
+ & v2c(maxtermd_2,maxtermd_2,maxtor,maxtor,maxtor),
+ & v2s(maxtermd_2,maxtermd_2,maxtor,maxtor,maxtor),
+ & ntermd_1(maxtor,maxtor,maxtor),ntermd_2(maxtor,maxtor,maxtor)