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