- double precision v1,v2,vlor1,vlor2,vlor3,v0
- integer itortyp,ntortyp,nterm,nlor,nterm_old
- 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
+ double precision v1,v2,vlor1,vlor2,vlor3,v0,v1_kcc,v2_kcc,
+ & v11_chyb,v21_chyb,v12_chyb,v22_chyb,v1bend_chyb
+ integer itortyp,ntortyp,nterm,nlor,nterm_old,nterm_kcc_Tb,
+ & nterm_kcc,itortyp_kcc,nbend_kcc_Tb
+ 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),
+ & v1_kcc(maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v2_kcc(maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v11_chyb(maxtermkcc,maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v21_chyb(maxtermkcc,maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v12_chyb(maxtermkcc,maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v22_chyb(maxtermkcc,maxtermkcc,-maxtor:maxtor,-maxtor:maxtor),
+ & v1bend_chyb(maxtermkcc,-maxtor:maxtor),
+ & itortyp(-ntyp1:ntyp1),ntortyp,
+ & itortyp_kcc(-ntyp1:ntyp1),
+ & nterm(-maxtor:maxtor,-maxtor:maxtor,2),
+ & nlor(-maxtor:maxtor,-maxtor:maxtor,2),
+ & nterm_kcc_Tb(-maxtor:maxtor,-maxtor:maxtor),
+ & nterm_kcc(-maxtor:maxtor,-maxtor:maxtor),
+ & nbend_kcc_Tb(-maxtor:maxtor),
+ & nterm_old