source/unres/data/calc_data.f90

   1       module calc_data
   2 !-----------------------------------------------------------------------------
   3 ! commom.calc common/calc/
   4       integer :: i,j,k,l
   5       real(kind=8) :: rij,xj,yj,zj,dxi,dyi,dzi,dxj,dyj,dzj,&
   6        chi1,chi2,chi12,chip1,chip2,chip12,alf1,alf2,alf12,om1,om2,om12,&
   7        om1om2,chiom1,chiom2,chiom12,chipom1,chipom2,chipom12,eps1,&
   8        faceps1,faceps1_inv,eps1_om12,facsig,sigsq,sigsq_om1,sigsq_om2,&
   9        sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2,&
  10        eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,&
  11        sigder,dsci_inv,dscj_inv,dCAVdOM1,dGCLdOM1,dPOLdOM1, &
  12        dCAVdOM2,dGCLdOM2,dPOLdOM2,dCAVdOM12,dGCLdOM12
  13       real(kind=8),dimension(3) :: erij,gg,gg_lipi,gg_lipj
  14 !-----------------------------------------------------------------------------
  15       end module calc_data
  16       module calc_data_nucl
  17 !-----------------------------------------------------------------------------
  18 ! commom.calc common/calc/
  19       integer :: i,j,k,l,ind
  20       real(kind=8) :: rrij,rij,xj,yj,zj,dxj,dyj,dzj,&
  21        chi1,chi2,chi12,chip1,chip2,chip12,alf1,alf2,alf12,om1,om2,om12,&
  22        om1om2,chiom1,chiom2,chiom12,chipom1,chipom2,chipom12,eps1,&
  23        faceps1,faceps1_inv,eps1_om12,facsig,sigsq,sigsq_om1,sigsq_om2,&
  24        sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2,&
  25        eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,&
  26        sigder,dsci_inv,dscj_inv
  27       real(kind=8),dimension(3) :: erij,gg,gg_lipi,gg_lipj
  28 !-----------------------------------------------------------------------------
  29       end module calc_data_nucl
  30