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),
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),