source/unres/data/comm_local.f90

   1       module comm_locel
   2 ! commom /locel/
   3
   4       integer :: num_conti,j1,j2
   5       real(kind=8) :: a22,a23,a32,a33,dxi,dyi,dzi,dx_normi,dy_normi,&
   6         dz_normi,xmedi,ymedi,zmedi
   7       real(kind=8),dimension(2,2) :: a_temp
   8       real(kind=8),dimension(3,4) :: agg,aggi,aggi1,aggj,aggj1
   9
  10       end module comm_locel
  11 !-----------------------------------------------------------------------------
  12 !-----------------------------------------------------------------------------
  13       module comm_calcthet
  14 ! commom /calcthet/
  15       integer :: it
  16       real(kind=8) :: term1,term2,termm,diffak,ratak,&
  17        ak,aktc,termpre,termexp,sigc,sig0i,time11,time12,sigcsq,&
  18        delthe0,sig0inv,sigtc,sigsqtc,delthec
  19       end module comm_calcthet
  20 !-----------------------------------------------------------------------------
  21 !-----------------------------------------------------------------------------
  22       module comm_sccalc
  23 ! commom /sccalc/
  24       integer :: it,nlobit
  25       real(kind=8) :: time11,time12,time112,theti
  26       end module comm_sccalc
  27 !-----------------------------------------------------------------------------
  28 !-----------------------------------------------------------------------------
  29       module comm_chu
  30 ! common /chuju/
  31       integer :: jjj
  32       end module comm_chu
  33 !-----------------------------------------------------------------------------
  34 !-----------------------------------------------------------------------------
  35       module comm_gucio
  36 ! common /gucio/
  37       real(kind=8),dimension(3) :: cm
  38       end module comm_gucio
  39 !-----------------------------------------------------------------------------
  40 !-----------------------------------------------------------------------------
  41       module comm_cipiszcze
  42 ! common /cipiszcze/
  43       integer :: itt_comm
  44       end module comm_cipiszcze
  45 !-----------------------------------------------------------------------------
  46 !-----------------------------------------------------------------------------
  47       module comm_przech
  48 ! common /przechowalnia/
  49       integer :: nbond
  50       end module comm_przech
  51 !-----------------------------------------------------------------------------
  52 !-----------------------------------------------------------------------------
  53       module comm_iofile
  54 ! common /IOFILE/
  55       integer :: IODA(400)
  56       integer :: IR,IW,IP,IJK,IPK,IDAF,NAV
  57       end module comm_iofile
  58 !-----------------------------------------------------------------------------
  59 !-----------------------------------------------------------------------------
  60       module comm_machsw
  61 ! common /MACHSW/
  62       integer :: KDIAG,ICORFL,IXDR
  63       end module comm_machsw
  64 !-----------------------------------------------------------------------------
  65 !-----------------------------------------------------------------------------
  66       module comm_par
  67 ! common /PAR   /
  68       LOGICAL :: GOPARR,DSKWRK,MASWRK
  69       integer :: ME,MASTER,NPROC,IBTYP,IPTIM
  70       end module comm_par
  71 !-----------------------------------------------------------------------------
  72 !-----------------------------------------------------------------------------
  73       module comm_srutu
  74 ! common /srutu/
  75       integer :: icall
  76       end module comm_srutu
  77 !-----------------------------------------------------------------------------
  78 !-----------------------------------------------------------------------------
  79       module comm_vrandd
  80 ! common /VRANDD/
  81       integer,dimension(250) :: A
  82       integer :: I,I147
  83       end module comm_vrandd
  84 !-----------------------------------------------------------------------------
  85 !-----------------------------------------------------------------------------
  86       module comm_kut
  87 ! common /kutas/
  88       logical :: lprn
  89       end module comm_kut
  90 !-----------------------------------------------------------------------------
  91 !-----------------------------------------------------------------------------
  92       module comm_syfek
  93 ! common /syfek/
  94 ! in subroutines: friction_force,setup_fricmat
  95       real(kind=8),dimension(:),allocatable :: gamvec   !(MAXRES6) or (MAXRES2)
  96       end module comm_syfek
  97 !-----------------------------------------------------------------------------
  98       module comm_sschecks
  99 !      common /sschecks/ checkstop,transgrad
 100       logical :: checkstop,transgrad
 101       end module comm_sschecks
 102 !-----------------------------------------------------------------------------
 103 !-----------------------------------------------------------------------------