OPTIONS LINESIZE=95; DATA ANOMALY; INFILE IN; INPUT YEAR 21-24 MONTH 29-30 #2 @2 (T1-T432)(:5.) #39 @2 (S1-S432)(:5.) #76 @2 (D1-D432)(:5.); DATA PRINT; SET ANOMALY; FILE PRINT; ARRAY TEMP{36,12} T1-T432; ARRAY STA{36,12} S1-S432; ARRAY DIST{36,12} D1-D432; ARRAY LONG{36} X1-X36; ARRAY LAT{12} Y1-Y12; LONG{1}=0; DO I=2 TO 19; LONG{I}=LONG{I-1}+10; END; LONG{20}=170; DO I=21 TO 36; LONG{I}=LONG{I-1}-10; END; LAT{1}=5; DO I=2 TO 12; LAT{I}=LAT{I-1}+5; END; PUT ' TEMPERATURE ANOMALY DATA' @35 YEAR= @50 MONTH= /; PUT @2 'LONG' @51 'LAT (S)'; PUT LAT{1} 15-16 LAT{2} 22-23 LAT{3} 29-30 LAT{4} 36-37 LAT{5} 43-44 LAT{6} 50-51 LAT{7} 57-58 LAT{8} 64-65 LAT{9} 71-72 LAT{10} 78-79 LAT{11} 85-86 LAT{12} 92-93 /; DO I=1 TO 19; PUT LONG{I} 2-4 @5 'E' TEMP{I,1} 12-16 TEMP{I,2} 19-23 TEMP{I,3} 26-30 TEMP{I,4} 33-37 TEMP{I,5} 40-44 TEMP{I,6} 47-51 TEMP{I,7} 54-58 TEMP{I,8} 61-65 TEMP{I,9} 68-72 TEMP{I,10} 75-79 TEMP{I,11} 82-86 TEMP{I,12} 89-93; END; DO I=20 TO 36; PUT LONG{I} 2-4 @5 'W' TEMP{I,1} 12-16 TEMP{I,2} 19-23 TEMP{I,3} 26-30 TEMP{I,4} 33-37 TEMP{I,5} 40-44 TEMP{I,6} 47-51 TEMP{I,7} 54-58 TEMP{I,8} 61-65 TEMP{I,9} 68-72 TEMP{I,10} 75-79 TEMP{I,11} 82-86 TEMP{I,12} 89-93; END; PUT // ' NUMBER OF CONTRIBUTING STATIONS' @40 YEAR= @55 MONTH= /; PUT LAT{1} 15-16 LAT{2} 22-23 LAT{3} 29-30 LAT{4} 36-37 LAT{5} 43-44 LAT{6} 50-51 LAT{7} 57-58 LAT{8} 64-65 LAT{9} 71-72 LAT{10} 78-79 LAT{11} 85-86 LAT{12} 92-93 /; DO I=1 TO 19; PUT LONG{I} 2-4 @5 'E' STA{I,1} 15-16 STA{I,2} 22-23 STA{I,3} 29-30 STA{I,4} 36-37 STA{I,5} 43-44 STA{I,6} 50-51 STA{I,7} 57-58 STA{I,8} 64-65 STA{I,9} 71-72 STA{I,10} 78-79 STA{I,11} 85-86 STA{I,12} 92-93; END; DO I=20 TO 36; PUT LONG{I} 2-4 @5 'W' STA{I,1} 15-16 STA{I,2} 22-23 STA{I,3} 29-30 STA{I,4} 36-37 STA{I,5} 43-44 STA{I,6} 50-51 STA{I,7} 57-58 STA{I,8} 64-65 STA{I,9} 71-72 STA{I,10} 78-79 STA{I,11} 85-86 STA{I,12} 92-93; END; PUT // ' MEAN INVERSE DISTANCE OF STATIONS' @42 YEAR= @57 MONTH= /; PUT LAT{1} 15-16 LAT{2} 22-23 LAT{3} 29-30 LAT{4} 36-37 LAT{5} 43-44 LAT{6} 50-51 LAT{7} 57-58 LAT{8} 64-65 LAT{9} 71-72 LAT{10} 78-79 LAT{11} 85-86 LAT{12} 92-93 /; DO I=1 TO 19; PUT LONG{I} 2-4 @5 'E' DIST{I,1} 14-16 DIST{I,2} 21-23 DIST{I,3} 28-30 DIST{I,4} 35-37 DIST{I,5} 42-44 DIST{I,6} 49-51 DIST{I,7} 56-58 DIST{I,8} 63-65 DIST{I,9} 70-72 DIST{I,10} 77-79 DIST{I,11} 84-86 DIST{I,12} 91-93; END; DO I=20 TO 36; PUT LONG{I} 2-4 @5 'W' DIST{I,1} 14-16 DIST{I,2} 21-23 DIST{I,3} 28-30 DIST{I,4} 35-37 DIST{I,5} 42-44 DIST{I,6} 49-51 DIST{I,7} 56-58 DIST{I,8} 63-65 DIST{I,9} 70-72 DIST{I,10} 77-79 DIST{I,11} 84-86 DIST{I,12} 91-93; END; PUT //; RUN;