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,''/ 1 8x,' Date:'/ 2 8x,' ',a10,''/ 5 8x,''/ 6 8x,''/ 7 8x,' Time:'/ 8 8x,' ',a8,' GMT'/ b 8x,''/ 1 8x,''/ 2 8x,' Latitude:'/ 2 8x,' ',i2,'o ',f5.2,''' ', 2 a1,''/ 3 8x,''/ 1 8x,''/ 2 8x,' Longitude:', 2 ''/ 2 8x,' ',i2,'o ',f5.2,''' ', 2 a1,''/ 3 8x,''/ 1 8x,''/ 2 8x,' Battery ', 2 'Voltage:'/ 3 8x,' ',f5.2,' volts'/ 8 8x,''/ 9 8x,''/ a 8x,' Internal ', a 'Buoy Temperature:' b 8x,' ',f5.2,' oC (', b f5.2' oF)'/ c 8x,''/ 5 8x,''/ 5 8x,' Internal ', 5 'Buoy Humidity:'/ 5 8x,' ',f5.2,' %'/ 1 8x,''/ o 8x,''/ p 8x,' Buoy Uptime:'/ q 8x,' ',f6.1,' hours (',f6.2, q ' days)'/ h 8x,'') C ====================================================================== close(4) C stop end