anchor.diff:        PARAMETER (NST=6)
         PARAMETER (NEI=10)
         PARAMETER (NF=4)
  -      
  +
         Integer, Intent(In) :: Pyidate
         Real,Intent(In) :: Pyglat, Pyglong, Pyf107a, Pyf107,
        &                  Pyf107p, Pyap, Pyef, Pyec
  
positive.code:         End Do
          totpi = tpi(1) + tpi(2) + tpi(3) + phono(1,j)
          totsi = sion(1,j) + sion(2,j) + sion(3,j)
          
          Pypi(j) = totpi
          Pysi(j) = totsi
  C       write (6,730) z(j),totpi,totsi,ecalc(j),(zxden(i,j),i=1,7)
  C    >                zo(j),zo2(j),zn2(j),zno(j)
  C  730   format (1x, 0p, f5.1, 1p, 14e10.2)
        End Do
        
        PyZeta = transpose(zeta)
        Pyecalc = ecalc
       
        Pyion(:,1:7) = transpose(zxden(1:7,:))
        Pyion(:,8)=zo; Pyion(:,9)=zo2; Pyion(:,10)=zn2; Pyion(:,11)=zno
        
        Pyisr(:,1)=ZE; Pyisr(:,2)=ZTE; Pyisr(:,3)=ZTI
  C
  C
  
negative.code: C   Python connection
        PyZ = Z
  C     Hack alert, didn't get fancier due to newer GLOW version coming soon enough
        idate=Pyidate; ut=Pyut; glat=Pyglat; glong=Pyglong;
        f107a=Pyf107a; f107=Pyf107; f107p=Pyf107p
        ap=Pyap; ef=Pyef; ec=Pyec
  C
  