********************************************************************************************
*                                                                                          *
*       Variable List for fp0.4.f - contains common variables and parameters.              *
*                                                                                          *
*       Version 0.4 - Last Modified 5/25/04                                                *
*                                                                                          *
********************************************************************************************

        PARAMETER (NZ=126,NX=106,ST=-5)
        PARAMETER (PI=3.141592654)
        REAL N,NT,XX,ZZ
        REAL ETIME, ELAPSED(2)
        COMMON N(ST:NZ,ST:NX),PHI(ST:NZ,ST:NX)
        COMMON /INTS/II,JJ,KK
        COMMON /WX1/DZ,DX,Z0,X0,MOZ,MOX,ALT(ST:NZ)
        COMMON /TIMES/DT,T,TMAX
        common /wx3/b,gg,tem,eox,eoy,eoz,uox,uoz,uebx
        common /wx4/u1x0,u1z0,xk,zk,w,zki,uki
        COMMON /WAVELENGTHS/LX,LZ
        common /wx5/vin(ST:NZ),ven(ST:NZ)
        common /wx61/rvi(ST:NZ),rix1(ST:NZ),riz1(ST:NZ),ri2(ST:NZ)
        common /wx62/rve(ST:NZ),rex1(ST:NZ),rez1(ST:NZ),re2(ST:NZ)
        common /wx7/ti(ST:NZ),te(ST:NZ),sini,cosi
        COMMON /WX8/EPC,DPERP
        common /wx9/n0(ST:NZ)
        common /wx10/produ(ST:NZ),recom(ST:NZ)
        common /wx21/cnx(ST:NZ),cnz(ST:NZ),dn(ST:NZ)
        common /wx22/fx(ST:NZ,ST:NX),fz(ST:NZ,ST:NX)
        common /wx32/dntd(ST:NZ,ST:NX)
        common /wx33/dxz
        common /wx34/u1x(ST:NZ,ST:NX),u1z(ST:NZ,ST:NX)
        common /wx35/u1x0h(ST:NZ),u1z0h(ST:NZ),zkr(ST:NZ)