; Procedure: FULL.PRO ; Purpose: Produces a complete data table with all values. ; Accessed only when selection #1 is chosen in ; 'truewind.pro'. PRO full, num, crse, cspd, wdir, zlr, hd, adir, wspd, tdir, tspd PRINT, $ '------------------------------------------------------------------------------------' PRINT, ' ' PRINT, ' FULL TEST' PRINT, ' ***********' PRINT, ' index course sspeed windir zeroln shiphd | appspd | appdir trudir truspd' for i=0,num-1 do begin PRINT, FORMAT="(I8, 5f8.1, ' | ', f6.1, ' |', 3f8.1)", i+1, $ crse(i), cspd(i), wdir(i), zlr, hd(i), wspd(i), adir(i), $ tdir(i), tspd(i) endfor PRINT, ' ' PRINT, ' NOTE: Wind speed measured by anemometer is identical' PRINT, ' to apparent wind speed (appspd).' END