gsi-wgs-1.f:before


c     for gsi-wgs program
      open(10,file='d:\Myhome\yoreyore\akkeshi.txt',status='old')
      open(20,file='d:\Myhome\yoreyore\akkeshi.gsi.in')
    1 continue
      read(10,*,end=99) alon,alat,ahight
      lln=int(alon)
      llt=int(alat)
      blon=alon-lln
      clon=blon*60
      mlon=int(clon)
      slon=(clon-mlon)*60
      blat=alat-llt
      clat=blat*60
      mlat=int(clat)
      slat=(clat-mlat)*60
c
      aalt=llt*10000+mlat*100+slat
      aaln=lln*10000+mlon*100+slon
      write(6,200) aalt,aaln
      write(20,200) aalt,aaln
      go to 1
   99 continue
      close(10)
      close(20)
  200   format(f14.4,f15.4)
      stop
      end