Modules.f95

MODULE GLOBAL

INTEGER*4,PARAMETER::L1=12,M1=12,NMAX=5,NX=L1-2,L2=L1-1,L3=L2-1,NY=M1-2,M2=M1-1,M3=M2-1

INTEGER*4::I,J,K,II,JJ,KK,OUTCOUNTER,IST,JST,ISTF,JSTF,IT1,IT2,JT1,JT2,NTIMES(NMAX),NF,MODE

REAL*8::PHI(L1,M1,NMAX),TEMPPHI(L1,M1,2),T(L1,M1),PC(L1,M1),RHO(L1,M1),U(L1,M1),V(L1,M1),&
     &GAM(L1,M1),STREAM(L1,M1),MONITOR(4),FLUXE(L1,M1),FLUXN(L1,M1),DEU(L1,M1),DNV(L1,M1),&
	 & MIU(L1,M1),MIV(L1,M1),DU(L1,M1),DV(L1,M1),P(L1,M1),UHAT(L1,M1),VHAT(L1,M1)

REAL*8::XL,YL,DX,DY,DIF,EU,RHOCON,PR,GR,RA,RENOLD,XBEGIN,FLOW,FL,FLM,FLP

REAL*8:: EOTHER,ARHO,TEMP,TEMP1,temp2,CSUM=1.0,REFDENOM=1,USUM=0,VSUM=0,TSUM=0.0,KEXIX=1E-30,KEXIY=1E-30

REAL*8::XU(L1),YV(M1),X(L1),Y(M1),XDIF(L1),XCV(L1),XCVS(L1),XCVI(L1),XCVIP(L1),YCVI(M1),&
             &YCVIP(M1),YDIF(M1),YCV(M1),YCVS(M1),YCVR(M1),DD,PP

REAL*8::PT(MAX(L1,M1)),QT(MAX(L1,M1)),A(MAX(L1,M1)),AIM(L1,M1),AIP(L1,M1),AJP(L1,M1),AJM(L1,M1),&
        &DENOM,DENO,AP(L1,M1),R(M1),ARX(M1),SX(M1),FX(L1),FXM(L1) ,FY(M1),FYM(M1),RMN(M1),&
        &ARXJ(M1),ARXJP(M1),SXMN(M1),FV(M1),FVP(M1),YCVRS(M1),&
	    &CON(L1,M1),SC(L1,M1),SP(L1,M1)
REAL*8::UAP(L1,M1),UAIM(L1,M1),UAIP(L1,M1),UAJM(L1,M1),UAJP(L1,M1),UCON(L1,M1),DPX(L1,M1)
REAL*8::VAP(L1,M1),VAIM(L1,M1),VAIP(L1,M1),VAJM(L1,M1),VAJP(L1,M1),VCON(L1,M1),DPY(L1,M1)
REAL*8::VOL,APT,DT,AREA,SXT,SXB,TOL,GM,GMM

EQUIVALENCE ( PHI(1,1,1),U(1,1) ),( PHI(1,1,2),V(1,1) ),( PHI(1,1,3),PC(1,1) ),( PHI(1,1,5),T(1,1) )

LOGICAL LSOLVE(NMAX)

CHARACTER(LEN=30) FILENAME,OUTNAME(1)

REAL(KIND=4) TIMEBEGIN,TIMEEND,ALLBEGIN,ALLEND

ENDMODULE