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
!-----------------------------------------------------------------------------
!-----------------------------------------------------------------------------