MODULE    commons                  
      USE       params
      IMPLICIT REAL (KIND=4) (A-H,O-Z)
      IMPLICIT INTEGER (KIND=4) (I-N)
      INTEGER (KIND=4),  PARAMETER :: NIU = 1, NOU = 2, NPU = 6, SHDFile = 25                  
      REAL (KIND=4), PARAMETER :: PI = 3.141592654d0, DEG = 57.29578                  

      COMPLEX (KIND=4), DIMENSION(MXN)     :: AL, AM, AU, BL, BM, BTA, BU, D,      &
                                              U, V, XN1, XN2
      COMPLEX (KIND=4), DIMENSION(MXSOL+2) :: BOTX, BOTY, SURX, SURY
      COMPLEX (KIND=4), DIMENSION(MXNZ)    :: DP, DS, PORTX, PORTY, STBDX, STBDY
      COMPLEX (KIND=4)                        UA, UB, UC, UD, UE

      COMPLEX, ALLOCATABLE :: P( :, :, : )

      REAL (KIND=4), DIMENSION(MXSOL) :: thetaSHD
      REAL (KIND=4), DIMENSION(MXNZ)  :: rd
      REAL (KIND=4), DIMENSION(MXTRK) :: rr

      REAL (KIND=4), DIMENSION(MXSVP,MXSOL) :: CSVP, ZSVP
      REAL (KIND=4), DIMENSION(MXN) :: RHO1, RHO2
      REAL (KIND=4), DIMENSION(MXLYR,MXSOL) :: BETA, BETAG, RHO, RHOG, ZLYR
      REAL (KIND=4), DIMENSION(MXSOL) :: DRMIN, R1, R2, THETA, Z1, Z2
      REAL (KIND=4), DIMENSION(MXTRK,2,MXSOL) :: TRACK

      REAL (KIND=4) :: ALPHA, ANG, ALFA, C0, DOUGRA, DR, DR1, DZ, DTH, FLDW,    &
                       FRQ, PDR, PDTH, PDZ, PHI, R0, RA, RMAX, RSVP, TEMP, U0,  &
                       U1, U2, U3, U4, U5, U6, U7, U8, U9, U10, U11, U12, WDTH, &
                       WDR, WDZ, WZ1, WZ2, XK0, ZA, ZI, ZP, ZS
      INTEGER (KIND=4) :: IBOT,ISFLD,ISVP,IHNK,ISF,ITRK(MXSOL),ITYPEB,ITYPES,   &           
               ITYPPW,ITYPSW,IXSVP(MXLYR,MXSOL),KSVP,N,N1,NDIM,NDIV,NLYR,       &    
               NLYRS(MXSOL),NSEC,NSOL,NSVP,NTOT,NWSVP                  
      END MODULE commons