unres_package_Oct_2016 from emilial

[unres4.git] / source / unres / data / comm_local.f90

diff --git a/source/unres/data/comm_local.f90 b/source/unres/data/comm_local.f90
new file mode 100644 (file)
index 0000000..ad29715
--- /dev/null
+++ b/source/unres/data/comm_local.f90
@@ -0,0 +1,103 @@
+      module comm_locel
+! commom /locel/
+
+      integer :: num_conti,j1,j2
+      real(kind=8) :: a22,a23,a32,a33,dxi,dyi,dzi,dx_normi,dy_normi,&
+        dz_normi,xmedi,ymedi,zmedi
+      real(kind=8),dimension(2,2) :: a_temp
+      real(kind=8),dimension(3,4) :: agg,aggi,aggi1,aggj,aggj1
+
+      end module comm_locel
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_calcthet
+! commom /calcthet/
+      integer :: it
+      real(kind=8) :: term1,term2,termm,diffak,ratak,&
+       ak,aktc,termpre,termexp,sigc,sig0i,time11,time12,sigcsq,&
+       delthe0,sig0inv,sigtc,sigsqtc,delthec
+      end module comm_calcthet
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_sccalc
+! commom /sccalc/
+      integer :: it,nlobit
+      real(kind=8) :: time11,time12,time112,theti
+      end module comm_sccalc
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_chu
+! common /chuju/
+      integer :: jjj
+      end module comm_chu
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_gucio
+! common /gucio/
+      real(kind=8),dimension(3) :: cm
+      end module comm_gucio
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_cipiszcze
+! common /cipiszcze/
+      integer :: itt_comm
+      end module comm_cipiszcze
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_przech
+! common /przechowalnia/
+      integer :: nbond
+      end module comm_przech
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_iofile
+! common /IOFILE/
+      integer :: IODA(400)
+      integer :: IR,IW,IP,IJK,IPK,IDAF,NAV
+      end module comm_iofile
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_machsw
+! common /MACHSW/
+      integer :: KDIAG,ICORFL,IXDR
+      end module comm_machsw
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_par
+! common /PAR   /
+      LOGICAL :: GOPARR,DSKWRK,MASWRK
+      integer :: ME,MASTER,NPROC,IBTYP,IPTIM
+      end module comm_par
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_srutu
+! common /srutu/
+      integer :: icall
+      end module comm_srutu
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_vrandd
+! common /VRANDD/
+      integer,dimension(250) :: A
+      integer :: I,I147
+      end module comm_vrandd
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_kut
+! common /kutas/
+      logical :: lprn
+      end module comm_kut
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+      module comm_syfek
+! common /syfek/ 
+! in subroutines: friction_force,setup_fricmat
+      real(kind=8),dimension(:),allocatable :: gamvec   !(MAXRES6) or (MAXRES2)
+      end module comm_syfek
+!-----------------------------------------------------------------------------
+      module comm_sschecks
+!      common /sschecks/ checkstop,transgrad
+      logical :: checkstop,transgrad
+      end module comm_sschecks
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------