C C bb1srtwp.f C C Program to build the generated part of B1SRT.html C C S1 = Buoy #1 Status Data C C updated 10/25/10 C character*10 gdate character*8 gtime character*1 lath,longh real latm,longm C tf(tc)=tc*9.0/5.0+32.0 C open(4,status='unknown',file='B1SRT-m.html') C C Get latest buoy status data C open(2,status='old',file='B1G1C.txt') read(2,201)gdate,gtime,latd,latm,lath,longd,longm,longh, 1 batv,btemp,bhum,buptime 201 format(29x,a10,1x,a8,3x,i2,1x,f5.2,1x,a1,1x,i3,1x,f5.2,1x,a1, 1 2(1x,f5.2),1x,f6.2,1x,f6.1) close(2) C btempf=tf(btemp) buptimed=buptime/24.0 C ====================================================================== write(4,400)gdate,gtime,latd,latm,lath,longd,longm,longh, 1 batv,btemp,btempf,bhum,buptime,buptimed 400 format(8x,'