C     ****
C     ****     /COEFM/ COEFFICIENTS AND RHS TERMS FOR PDE ON GEOMAGNETIC
C     ****       GRID
C     ****
      real :: zigm11,zigmc,zigm2,zigm22,rim,rhs
      COMMON/COEFM/ZIGM11(IMAXMP,JMAXM),ZIGMC(IMAXMP,JMAXM),
     1  ZIGM2(IMAXMP,JMAXM),ZIGM22(IMAXMP,JMAXM),
     2  RIM(IMAXMP,JMAXM,2),RHS(IMAXMP,JMAXMH)
C     ****
C     ****     WHERE:
C     ****       IMAXM=80, JMAXM=97, IMAXMP=IMAXM+1
C     ****       ZIGM11 = SIGMA11*COS(THETA0)
C     ****       ZIGMC  = SIGMAC
C     ****       ZIGM2  = SIGMA2
C     ****       ZIGM22 = SIGMA22/COS(THETA0)
C     ****       RIM(1) = ID(1)
C     ****       RIM(2) = ID(2)/COS(THEAT0)
C     ****       RHS    = RIGHT HAND SIDE
C     ****
C