anchor.diff:            endif
   
         end program simple_iri_driver
  -
  -
  -
  
positive.code:           heibeg = 250.
            heiend = 251.
            heistp = 1.
  
            call iri_sub(jf,jmag,alati,along,iyyyy,mmdd,dhour,
       &               heibeg,heiend,heistp,outf,oarr)
  
negative.code: 
            jf(5)  = .false.
            jf(6)  = .false.
            jf(21) = .false.
            jf(22) = .false.
            jf(23) = .false.
            jf(29) = .false.
  