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,sslipi,sslipj,ssgradlipi,ssgradlipj 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 !------------------------------------------------------- module comm_momo real(kind=8) :: eps_head, pis,al1,al2,al3,al4,& alphapol1,alphapol2,R1,R2,Rhead,Rhead_sq, Rtail,& csig,dGCLdR,a12sq,eps_inout_fac,dGGBdFGB,dFGBdR,dGGBdR,& pom,yop,bot,botsq,dGCVdR,MomoFac1,sqom2,MomoFac2,sqom1,& RR1,RR2,ee1,ee2,fgb1,fgb2,dPOLdFGB1,dPOLdFGB2,dFGBdR1,& dFGBdR2,dFGBdOM2,dFGBdOM1,dPOLdR1,top,ee0,dPOLdR2,dtop,& dbot,dGLJdR,erdxi,erdxj,bat,eagle,facd1,d1,facd2,d2,& hawk,condor,w1,w2,eps_in,Wqd,Beta1,sqom12,fac,dQUADdR,& dQUADdOM1,dQUADdOM2,dQUADdOM12,betaT,sparrow,c1,c2,sig0ij,& chis1,chis2,chis12,sig1,sig2,b1cav,b2cav,b3cav,b4cav,eps_out real(kind=8),dimension(3,2) :: ctail,chead,erhead_tail real(kind=8),dimension(3) :: Rhead_distance,ertail,erhead,Rtail_distance,& tuna real(kind=8),dimension(3,4,4) :: gheadtail integer :: Qi,Qj,Qij,itypi,itypj ! this common is for local properties of momo subroutione end module comm_momo !----------------------------------------------------------------------------- !-----------------------------------------------------------------------------