!
      real :: ssigma1,ssigma2,zz,ww,adotv,axv,vxb,bxa,adota,adotam,
     |  a1dta2,sini,sigma1m,sigma2m,zm,wm,adotvm,axvm,vxbm,bxam,
     |  a1a2m,siniam,bmodm,azm,pm,sindm,cosdm,ram,aam,cosiam,csthdam,
     |  rtadram,rrm,sinidm,cosidm,costhdm,rtramrm,tint1,tint2,tint3
C     ****
C     ****     FIELDS TO BE TRANSFORMED TO GEOMAGNETIC SPACE
C     ****       EXTRAPOLATED DOWN TO 90 KM
C     ****
C     ****
!
! Global common:
      COMMON /transmag/ SSIGMA1(IMAXGP,0:JMAXGP,-2:KMAX),
     1  SSIGMA2(IMAXGP,0:JMAXGP,-2:KMAX),ZZ(IMAXGP,0:JMAXGP,-2:KMAXP),
     2  WW(IMAXGP,0:JMAXGP,-2:KMAX),ADOTV(IMAXGP,0:JMAXGP,-2:KMAX,2),
     3  AXV(IMAXGP,0:JMAXGP,-2:KMAX,2),VXB(IMAXGP,0:JMAXGP,-2:KMAX),
     4  BXA(IMAXGP,0:JMAXGP,2),ADOTA(IMAXGP,0:JMAXGP,2),
     5  A1DTA2(IMAXGP,0:JMAXGP),SINI(IMAXGP,0:JMAXGP)
C     ****
C     ****     THESE SAME QUANTITIES IN GEOMAGNETIC SPACE
C     ****       (ONE LATITUDE AT A TIME)
C     ****
!
! Thread private common:
      common /transmag_priv/
     1  SIGMA1M(IMAXMP,-2:KMAX),SIGMA2M(IMAXMP,-2:KMAX),
     2  ZM(IMAXMP,-2:KMAXP),WM(IMAXMP,-2:KMAX),
     3  ADOTVM(IMAXMP,-2:KMAX,2),AXVM(IMAXMP,-2:KMAX,2),
     4  VXBM(IMAXMP,-2:KMAX),BXAM(IMAXMP,2),ADOTAM(IMAXMP,2),
     5  A1A2M(IMAXMP),SINIAM(IMAXMP),BMODM(IMAXMP),AZM(IMAXMP,2),
     6  PM(IMAXMP),
C     ****
C     ****     QUANTITIES EVALUATED IN GEOMAGNETIC SPACE
C     ****
C     ****       2-D FIELDS
C     ****
     1  SINDM(IMAXMP),COSDM(IMAXMP),RAM(IMAXMP),AAM(IMAXMP),
     2  COSIAM(IMAXMP),CSTHDAM(IMAXMP),RTADRAM(IMAXMP),
C     ****
C     ****       3-D FIELDS
C     ****
     1  RRM(IMAXMP,-2:KMAXP),SINIDM(IMAXMP,-2:KMAXP),
     2  COSIDM(IMAXMP,-2:KMAXP),COSTHDM(IMAXMP,-2:KMAXP),
     3  RTRAMRM(IMAXMP,-2:KMAXP),
C     ****
C     ****     WORK SPACE
C     ****
     1  TINT1(JMAXM),TINT2(JMAXM),
     2  TINT3(JMAXM)
!$OMP THREADPRIVATE (/transmag_priv/)
!DIR$ TASKCOMMON transmag_priv