fixyonav

  Program to convert YONAV common time, date, position format to DAPS.
    

  Clint Steele     8/5/96


    

     read (90, '(q,a)', end = 99) Length, ALine(1:Length)
         read (ALine(1:Length), 2, err = 20)
*        Month,Slash1,Day,Slash2,Year,Space1,
*        Date,Space2,Hour,Colon1,Minute,Colon2,Seconds,
*        Dot,Tenths,Space3,
*        LatDeg,Deg1,LatMin,NS,LongDeg,Deg2,LongMin,EW
         read (ALine(Line:Length), 4, err=21)
*        LatDeg,LatMin,NS,LongDeg,LongMin,EW
    

     write (ALine, '(512x)')
             write (ALine(1:56), '(56x)')
             write (ALine(1:56), 3) LongYear, Date, 
*                   Hour, Minute, Seconds, Tenths,
*                   Latitude, Longitude
         write (ALine(Line:Line+31), '(32x)')
         write (ALine(Line:Line+31), 5) Latitude, Longitude
     write (91, '(a)') ALine(1:Length)
    

 call openem (1,-1)
     call stringlen (ALine(1:Length), Length)
             call getcentury (Year, Century)
     call stringlen (ALine(1:Length), Length)