- common/torsion/ v0(maxtor,maxtor),
- & v1(maxterm,maxtor,maxtor),
- & v2(maxterm,maxtor,maxtor),
- & vlor1(maxlor,maxtor,maxtor),
- & vlor2(maxlor,maxtor,maxtor),
- & vlor3(maxlor,maxtor,maxtor),
- & nterm(maxtor,maxtor),
- & nlor(maxtor,maxtor),
- & nterm_old,
- & itortyp(ntyp),
- & ntortyp
+ common/torsion/v0(-maxtor:maxtor,-maxtor:maxtor,2),
+ & v1(maxterm,-maxtor:maxtor,-maxtor:maxtor,2),
+ & v2(maxterm,-maxtor:maxtor,-maxtor:maxtor,2),
+ & vlor1(maxlor,-maxtor:maxtor,-maxtor:maxtor),
+ & vlor2(maxlor,maxtor,maxtor),vlor3(maxlor,maxtor,maxtor),
+ & itortyp(-ntyp1:ntyp1),ntortyp,
+ & nterm(-maxtor:maxtor,-maxtor:maxtor,2),
+ & nlor(-maxtor:maxtor,-maxtor:maxtor,2)
+ & ,nterm_old