COMMON.SCCOR

   1 cc Parameters of the SCCOR term
   2       double precision v1sccor,v2sccor,vlor1sccor,
   3      &                 vlor2sccor,vlor3sccor,gloc_sc,
   4      &                 dcostau,dsintau,dtauangle,dcosomicron,
   5      &                 domicron
   6       integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
   7       common/sccor/v1sccor(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp),
   8      &    v2sccor(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp),
   9      &    v0sccor(-ntyp:ntyp,-ntyp:ntyp),
  10      &    nterm_sccor(-ntyp:ntyp,-ntyp:ntyp),isccortyp(-ntyp:ntyp),
  11      &    nsccortyp,
  12      &    nlor_sccor(-ntyp:ntyp,-ntyp:ntyp),
  13      &    vlor1sccor(maxterm_sccor,20,20),
  14      &    vlor2sccor(maxterm_sccor,20,20),
  15      &    vlor3sccor(maxterm_sccor,20,20),gloc_sc(3,0:maxres2,10),
  16      &    dcostau(3,3,3,maxres2),dsintau(3,3,3,maxres2),
  17      &    dtauangle(3,3,3,maxres2),dcosomicron(3,3,3,maxres2),
  18      &    domicron(3,3,3,maxres2)