Parameters of the SCCOR term
      double precision v1sccor,v2sccor,vlor1sccor,
     &                 vlor2sccor,vlor3sccor
      integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
      common/torsion/v1sccor(maxterm_sccor,20,20),
     &    v2sccor(maxterm_sccor,20,20),
     &    nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp,
     &    nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20),
     &    vlor2sccor(maxterm_sccor,20,20),
     &    vlor3sccor(maxterm_sccor,20,20)