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,sslipi,sslipj,ssgradlipi,ssgradlipj
7 real(kind=8),dimension(2,2) :: a_temp
8 real(kind=8),dimension(3,4) :: agg,aggi,aggi1,aggj,aggj1
11 !-----------------------------------------------------------------------------
12 !-----------------------------------------------------------------------------
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 !-----------------------------------------------------------------------------
25 real(kind=8) :: time11,time12,time112,theti
26 end module comm_sccalc
27 !-----------------------------------------------------------------------------
28 !-----------------------------------------------------------------------------
33 !-----------------------------------------------------------------------------
34 !-----------------------------------------------------------------------------
37 real(kind=8),dimension(3) :: cm
39 !-----------------------------------------------------------------------------
40 !-----------------------------------------------------------------------------
44 end module comm_cipiszcze
45 !-----------------------------------------------------------------------------
46 !-----------------------------------------------------------------------------
48 ! common /przechowalnia/
50 end module comm_przech
51 !-----------------------------------------------------------------------------
52 !-----------------------------------------------------------------------------
56 integer :: IR,IW,IP,IJK,IPK,IDAF,NAV
57 end module comm_iofile
58 !-----------------------------------------------------------------------------
59 !-----------------------------------------------------------------------------
62 integer :: KDIAG,ICORFL,IXDR
63 end module comm_machsw
64 !-----------------------------------------------------------------------------
65 !-----------------------------------------------------------------------------
68 LOGICAL :: GOPARR,DSKWRK,MASWRK
69 integer :: ME,MASTER,NPROC,IBTYP,IPTIM
71 !-----------------------------------------------------------------------------
72 !-----------------------------------------------------------------------------
77 !-----------------------------------------------------------------------------
78 !-----------------------------------------------------------------------------
81 integer,dimension(250) :: A
83 end module comm_vrandd
84 !-----------------------------------------------------------------------------
85 !-----------------------------------------------------------------------------
90 !-----------------------------------------------------------------------------
91 !-----------------------------------------------------------------------------
94 ! in subroutines: friction_force,setup_fricmat
95 real(kind=8),dimension(:),allocatable :: gamvec !(MAXRES6) or (MAXRES2)
97 !-----------------------------------------------------------------------------
99 ! common /sschecks/ checkstop,transgrad
100 logical :: checkstop,transgrad
101 end module comm_sschecks
102 !-----------------------------------------------------------------------------
103 !-----------------------------------------------------------------------------