Code:
character clsgn,shnm,lp,lgp,aqsy,comnm
dimension dstand(1000),tstand(1000),sstand(1000)
integer dstand,cno,pno,yy,mm,hh,mn,dd,ld,lm,lgd,lgm,nop,x
real tstand,sstand,time,lat,long
open(2,file='out.dat')
open(1,file='decoding.txt')
15 read(1,10,end=100)clsgn,shnm,cno,pno,yy,mm,dd,hh,mn,ld,lm,lp,lgd
1,lgm,lgp,nop,aqsy,comnm
read(1,11,end=100)(dstand(k),tstand(k),k=1,nop)
10 format(2x,a9,1x,a9,1x,i5,1x,i2,1x,i2,i2,i2,i2,i2,i2,i2,1x,a1,1x
1,i2,i2,1x,a1,1x,i9,1x,a5,1x,a4)
11 format(9(2x,i3,f4.2))
time=hh*1.00+mn*0.01
lat=(1.00*ld)+(0.1*lm/6)
long=(1.00*lgd)+(0.1*lgm/6)
do k=1,nop
write(2,30)clsgn,shnm,cno,pno,lat,long,dd,mm,yy,time
1,dstand(k),tstand(k)
30 format(a9,1x,a9,1x,i5,1x,i2,1x,f5.2,1x,f5.2,1x,i2,1x,i2,1x
1,i2,1x,f5.2,1x,i4,1x,f5.2,1x,f6.3)
end do
goto 15
100 continue
close(1)
stop
end