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