121 - IPAN, GUAM   Notice:02/07/2024 Recovered buoy

File FORTRAN format

File Header
        write(sp_unit,'(a,a19,5x,a,a4,1x,a2,a1,a2,1x,a4,a)') 'File Name: ',sp_name,
     *    'Analyzed(UTC): ',curr_time(1:4),curr_time(5:6),'/',curr_time(7:8),
     *    curr_time(9:12),' hrs'

        write(sp_unit,'(a,a50)') 'Station Name: ',
     *    trim_name(get_stnname(dx_station,dx_channel))

        write(sp_unit,'(a,a25,1x,a,a25)') 'Location:',loc,'Sensor Type: ',
     *    sensors(sp_frame%sensor_code+1)

        write(sp_unit,'(a,i5,1x,a,4x,a5,a,4x,a,f5.1)') 'Water Depth(m): ',
     *    depth_mtrs,'MLLW','Sensor Depth(m): ',sens_dep_string,
     *    'Sensor Elev(m):  ',elev_mtrs

        write(sp_unit,'(a,a3,8x,a,a19)') 'Shore Normal(deg): ',normal_string,
     *    'Source File: ',source

        write(sp_unit,'(a,i5,7x,a,f5.3)') 'Sample Length(s): ',sample_length,
     *    'Sample Rate(Hz): ', sample_rate

       write(sp_unit,'(a,f5.2,3x,a,f5.2,3x,a,i3,3x,a,f5.2)') 'Hs(m): ',Hs,'Tp(s): ',Tp,
     *    'Dp(deg): ',Dp,'Ta(s): ',Ta

        write(sp_unit,'(/,1x,a,3x,a,6x,a,3x,a,5x,a,7x,a,7x,a,7x,a,4x,a)')
     *    'freq', 'Band','energy', 'Dmean','a1', 'b1','a2', 'b2', 'Check'

        write(sp_unit,'(2x,a,4x,a,5x,a,4x,a,39x,a)') 'Hz', 'width', 'm*m/Hz',
     *    'deg', 'factor'
Data
        do b = 1,bands
          write(sp_unit,'(f6.4,2x,f6.4,1x,f10.4,3x,i3,1x,4(2x,f7.4),2x,f5.2)')
     *      freq(b),band_width(b),ener_dens(b),nint(dir(b)),a1(b),b1(b),a2(b),b2(b),check(b)
        end do