unres_package_Oct_2016 from emilial

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

diff --git a/source/unres/comm_local.f90 b/source/unres/comm_local.f90
deleted file mode 100644 (file)
index 8a1c833..0000000
--- a/source/unres/comm_local.f90
+++ /dev/null
@@ -1,102 +0,0 @@
-      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
-!-----------------------------------------------------------------------------
-!-----------------------------------------------------------------------------