orbital.inc

来自「已经编译好的levoo程序」· INC 代码 · 共 12 行

      include 'dos_task.inc'
      parameter (Nexp0=20)
c............... if Slater-type orbital
      common /slater/ Dzeta(Ntask0,3),nPqn(Ntask0,3),
     ,          Lqn(Ntask0,3),iSlater(Ntask0)
c............... if Gaussian-type orbital
      common /gauss/ Alpha(Ntask0,Nexp0,3),Coeff(Ntask0,Nexp0,3),
     ,               nExpn(nTask0,3)
      
      real*8 Coeff