source/unres/comm_local.f90

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