C DUMMY MAIN PROGRAM: C CALL MAP STOP END C C C BLOCK DATA NORTH C C ALL DATA NECESSARY TO DEFINE OCEANIC SLAB MOTIONS, AGES, AND C AREAS OF CONTACT WITH NORTH AMERICA UNDER ENGEBRETSON'S C "NORTHERN OPTION": KULA/VANCOUVER TRIPLE JUNCTION IN PACIFIC C NORTHWEST NEAR USA/CANADA BORDER. C C***************************************************************** C CAUTION!!! C WHEN INSTALLING THIS BLOCK DATA PROGRAM INTO ANOTHER CODE, SUCH C AS LARAMY, VERSCOMP, OR GDDMCOMP, IT IS NECESSARY TO MAKE THREE C SMALL EDITING CHANGES! C C IN THE "COMMON" STATEMENTS BELOW, CHANGE THE THREE NAMES AS C FOLLOWS: C C COMMON /SCALAR/ -> COMMON /NORTH1/ C COMMON /ARRAYS/ -> COMMON /NORTH2/ C COMMON /TAGS/ -> COMMON /NORTH3/ C C THIS IS NECESSARY SO THAT THE DATA WILLED BE LINKED ONLY INTO C SUBROUTINE BELOW1 (NORTHERN OPTION) AND NOT INTO BELOW2! C C CONVERSELY, IF YOU ARE BRINGING A BLOCK DATA PROGRAM BACK TO C BE INSPECTED AND/OR EDITED WITH MAPPER, IT IS NECCESARY TO C CHANGE THE COMMON BLOCK NAMES BACK TO THE NAMES IN THE LEFT C COLUMN ABOVE. C****************************************************************** C C COMMENTS ON COORDINATES AND UNITS C MOST OF THE DATA IN THIS UNIT ARE IN ROUND-EARTH COORDINATES C OF (LATITUDE,LONGITUDE). THE UNITS ARE DEGREES; FOR MORE C PRECISION WE USE DECIMAL FRACTIONS OF DEGREES INSTEAD OF C MINUTES AND/OR SECONDS OF ARC. LATITUDE IS POSITIVE IN THE C NORTHERN HEMISPHERE. LONGITUDE IS POSITIVE EAST OF C GREENWICH, ENGLAND. C THE FINITE-ROTATION MATRICES (3 X 3) AND THE ROTATION-AXIS C VECTORS (3 X 1) USE A DIFFERENT COORDINATE SYSTEM. C IT IS CARTESIAN (X,Y,Z), WITH ITS ORIGIN AT THE CENTER C OF THE EARTH. X POINTS TOWARD (LAT=0, LON=0). C Y POINTS TOWARD (LAT=0, LON=90). Z POINTS TOWARD (LAT=90). C THE UNITS DIFFER: THE FINITE-ROTATION MATRICES ARE C DIMENSIONLESS, BUT THE ROTATION-RATE VECTORS ARE IN C RADIANS PER SECOND. C THE GEOLOGIC TIMES WHICH LABEL THE VARIOUS FEATURES ARE C EXPRESSED IN MILLIONS OF YEARS (POSITIVE = PAST). THE C LENGTH OF 1 MILLION YEARS IN THE FUNDAMENTAL TIME UNIT C (THE SECOND) IS EXPRESSED BY "TUMAP". C C---------------------------------------------------------------- C GLOSSARY OF DATA: C -AGEFZ(J,I) IS THE AGE OF FRACTURE ZONE POINT #J C IN STRIP #I. (USED BY EDITOR, NOT BY BELOWY) C -AGEHNG(I) IS THE AGE OF THE HINGELINE CURVE K C DEFINED BY REHING(I=1,2;J=1,40?;K). C -AGEKV(I) IS THE AGE OF THE KULA/VANCOUVER/NORTH AMERICAN C TRIPLE-JUNCTION LOCATION GIVEN BY REKV3J(1-3,I). C -AGEMAG(I,J) IS THE AGE OF MAGNETIC ANOMALY I (FROM W TO E) C IN STRIPE J (FROM S TO N) ON THE PRESENT-AGE MAP. C -AGEROT(I) IS THE AGE OF THE FINITE ROTATION MATRICES C ROMATF, ROMATK, ROMATP, AND ROMATV WITH AGE INDEX I. C -AGEVEL(I) IS THE AGE OF THE RELATIVE ROTATION-AXIS VECTORS C OMEGAF, OEMGAK, OMEGAP, AND OMEGAV WITH AGE INDEX I. C -AGEVF(I) IS THE AGE OF THE VANCOUVER/FARALLON/NORTH AMERICAN C TRIPLE-JUNCTION LOCATION GIVEN BY REVF3J(1-3,I). C -FRACZN(2,I,J) ARE THE LAT. AND LON. COORDINATES OF POINTS I C (W TO E) ALONG FRACTURE ZONE J (S TO N) ON THE MAP OF C PRESENT SLAB AGES. C -NKV3J IS THE NUMBER OF KULA/VANCOUVER/NORTH AMERICAN TRIPLE C JUNCTION POSITIONS GIVEN IN REKV3J(1-3,I) AT AGE AGEKV(I). C -NMAG(K) IS THE NUMBER OF LINEAR MAGNETIC ANOMALIES C WITHIN STRIPE K (S TO N) OF THE MAP OF PRESENT SLAB C AGES. C -NPHING(I) IS THE NUMBER C OF DIGITIZED POINTS IN HINGELINE CURVE #I OF REHING. C -NPFZ(J) IS THE NUMBER OF POINTS (W TO E) DEFINING FRACTURE ZONE C J (S TO N) ON THE MAP OF PRESENT SLAB AGES. C -NROMAT IS THE NUMBER OF FINITE-ROTATION MATRICES C GIVEN FOR EACH PLATE. C -NVF3J IS THE NUMBER OF VANCOUVER/FARALLON/NORTH AMERICAN TRIPLE C JUNCTION POSITIONS GIVEN IN REVF3J(1-3,I) AT AGE AGEVF(I). C -NTAPES IS THE NUMBER OF STRIPS OF MAGNETIC ANOMALIES ON C THE MAP OF PRESENT SLAB AGES; ONE LESS THAN THE NUMBER OF C FRACTURE ZONES ON THE MAP. C -NUMHNG IS THE NUMBER OF SLAB HINGELINES (AT DIFFERENT TIMES). C -NUMVEL IS THE NUMBER OF AGES AGEVEL(I) WHERE RELATIVE C ROTATION-AXIS VECTORS (OMEGAF/K/P/V) ARE SUPPLIED. C -OMEGAF(1-3,I) IS THE RELATIVE-ROTATION AXIS FOR THE FARALLON C PLATE WITH RESPECT TO NORTH AMERICA AT TIME AGEVEL(I); C ITS 3 COMPONENTS (CARTESIAN X,Y,Z) ARE IN RADS/SEC. C -OMEGAK(1-3,I) IS THE RELATIVE-ROTATION AXIS FOR THE KULA C PLATE WITH RESPECT TO NORTH AMERICA AT TIME AGEVEL(I); C ITS 3 COMPONENTS (CARTESIAN X,Y,Z) ARE IN RADS/SEC. C -OMEGAP(1-3,I) IS THE RELATIVE-ROTATION AXIS FOR THE PACIFIC C PLATE WITH RESPECT TO NORTH AMERICA AT TIME AGEVEL(I); C ITS 3 COMPONENTS (CARTESIAN X,Y,Z) ARE IN RADS/SEC. C -OMEGAV(1-3,I) IS THE RELATIVE-ROTATION AXIS FOR THE VANCOUVER C PLATE WITH RESPECT TO NORTH AMERICA AT TIME AGEVEL(I); C ITS 3 COMPONENTS (CARTESIAN X,Y,Z) ARE IN RADS/SEC. C -REHING(I,J,K) ARE THE LAT. (I=1) AND LON. (I=2) COORDINATES C OF THE DIGITIZED POINT #J (N TO S) OF THE HINGELINE C CURVE #K (PAST TO PRESENT). C -REKV3J(3,I) ARE THE LAT., LON., AND ANGLE VALUES OF THE KULA/ C VANCOUVER/NORTH AMERICAN TRIPLE-JUNCTION AT AGE AGEKV(I). C THE ANGLE IS MEASURED IN DEGREES COUNTERCLOCKWISE FROM EAST, C AND EXPRESSES THE TREND OF THE PLATE BOUNDARY AWAY FROM C THE POINT GIVEN. C -REMAG(2,2,I,J) ARE THE LAT., LON. COORDINATES (1ST SUB.) C OF THE N AND S ENDS (2ND SUB.) OF THE LINEAR MAGNETIC C ANOMALY I (W TO E) IN STRIPE J (S TO N) OF THE C PRESENT SLAB AGE MAP. C -REVF3J(3,I) ARE THE LAT., LON., AND ANGLE VALUES OF THE C VANCOUVER/FARALLON/N.A. TRIPLE-JUNCTION AT AGE AGEVF(I). C THE ANGLE IS MEASURED IN DEGREES COUNTERCLOCKWISE FROM EAST, C AND EXPRESSES THE TREND OF THE PLATE BOUNDARY AWAY FROM C THE POINT GIVEN. C -ROMATF(3,3,K) ARE THE ROTATION MATRICES FOR FARALLON WRT N.A. C FROM PAST (AGE K) TO PRESENT. C -ROMATK(3,3,K) ARE THE ROTATION MATRICES FOR KULA WRT N.A. C FROM PAST (AGE K) TO PRESENT. C -ROMATP(3,3,K) ARE THE ROTATION MATRICES FOR PACIFIC WRT N.A. C FROM PAST (AGE K) TO PRESENT. C -ROMATV(3,3,K) ARE THE ROTATION MATRICES FOR VANCOUVER WRT N.A. C FROM PAST (AGE K) TO PRESENT. C -TAGFZ(I,J) IS A 1-CHARACTER TAG, EITHER 'F', 'K', 'P', C OR 'V' TO IDENTIFY WHICH PLATE THE FRACTURE ZONE POINT #I C IN STRIP #J IS ATTACHED TO. (USED BY EDITOR, NOT BY BELOWY) C -TAGMAG(I,J) IS A 1-CHARACTER TAG, EITHER 'F', 'K', 'P', C OR 'V' TO IDENTIFY WHICH PLATE THE MAGNETIC ANOM. #I IN STRIP C #J IS ATTACHED TO. (USED BY EDITOR, NOT BY BELOWY) C -TUMAP IS A CONVENIENCE MULTIPLIER APPLIED TO AGES IN M.Y. C TO OBTAIN THE TRUE AGE IN PROGRAM UNITS (SECONDS). C------------------------------------------------------------------ C C MEMO: ORDER IS: PARAMETER, TYPE, COMMON, DIMENSION, DATA C C********************************************************************* C C NOTE: THESE DIMENSION PARAMETERS MUST AGREE C IN ALL PROGRAMS !!!!!! C C MAXIMUM NUMBER OF DIGITISED SLAB HINGELINES: PARAMETER (MAXHL=20) C MAXIMUM NUMBER OF POINTS IN ANY DIGITISED HINGELINE: PARAMETER (MAXHNG=40) C MAXIMUM NUMBER OF FINITE ROTATIONS FOR EACH PLATE: PARAMETER (MAXROT=21) C MAXIMUM NUMBER OF RELATIVE ROTATION-AXIS VECTORS FOR EACH PLATE: PARAMETER (MAXVEL=20) C MAXIMUM NUMBER OF AGES WHEN KULA/VANCOUVER TRIPLE-JUNCTION IS GIVEN: PARAMETER (MXKV3J =50) C MAXIM.NUMBER OF AGES WHEN VANCOUVER/FARALLON TRIPLE-JUNCTION IS GIVEN PARAMETER (MXVF3J =50) C MAXIMUM NUMBER OF STRIPS OF SEAFLOOR (BETWEEN FRACTURE ZONES) ON MAP: PARAMETER (MTAPES =40,MTAPP1=41) C MAXIMUM NUMBER OF POINTS IN ANY DIGITISED FRACTURE ZONE: PARAMETER (MAXFZP=100) C MAXIMUM NUMBER OF MAGNETIC ANOMALIES IN ANY ONE STRIP: PARAMETER (MAXMAG=100) C********************************************************************* CHARACTER*1 TAGFZ,TAGMAG C-------------------------------------------------------------------- COMMON /SCALAR/ + NKV3J, + NROMAT,NTAPES,NTAPP1,NUMHNG,NUMVEL,NVF3J, + TUMAP COMMON /ARRAYS/ + AGEFZ,AGEHNG,AGEKV,AGEMAG,AGEROT,AGEVEL,AGEVF, + FRACZN,NMAG,NPFZ,NPHING, + OMEGAF,OMEGAK,OMEGAP,OMEGAV, + REHING,REKV3J,REMAG,REVF3J, + ROMATF,ROMATK,ROMATP,ROMATV COMMON /TAGS/ + TAGFZ,TAGMAG C-------------------------------------------------------------------- DIMENSION AGEFZ(MAXFZP,MTAPP1), 2 AGEHNG(MAXHL), 3 AGEKV(MXKV3J), 4 AGEMAG(MAXMAG,MTAPES), 5 AGEROT(MAXROT), 6 AGEVEL(MAXVEL), 7 AGEVF(MXVF3J), 8 FRACZN(2,MAXFZP,MTAPP1), 9 NPFZ(MTAPP1), A NPHING(MAXHNG) DIMENSION NMAG(MTAPES), 2 OMEGAF(3,MAXVEL), 3 OMEGAK(3,MAXVEL), 4 OMEGAP(3,MAXVEL), 5 OMEGAV(3,MAXVEL), 6 REHING(2,MAXHNG,MAXHL), 7 REKV3J(3,MXKV3J), 8 REMAG(2,2,MAXMAG,MTAPES), 9 REVF3J(3,MXVF3J), A ROMATF(3,3,MAXROT), 1 ROMATK(3,3,MAXROT), 2 ROMATP(3,3,MAXROT), 3 ROMATV(3,3,MAXROT), 4 TAGFZ(MAXFZP,MTAPP1), 5 TAGMAG(MAXMAG,MTAPES) C C===1=== SLAB HINGELINES ======================= C DATA NUMHNG / 14/ DATA TUMAP /3.15576E13/ DATA (AGEHNG(I),I=1, 14) / + 90.00, 80.00, 75.00, 65.00, 55.00, 45.00, 40.00, 35.00, + 30.00, 27.50, 20.00, 10.00, 0.00, -3.00 + / DATA (NPHING(I),I=1, 14) / + 29, 29, 33, 34, 31, 35, 32, 26, 31, 30, 30, 27, 31, 31 + / DATA ((REHING(I,J, 1),I=1,2),J=1, 29) / + 58.39,-135.70, 55.15,-133.03, 52.37,-130.80, 50.45,-129.28, + 48.54,-127.75, 47.44,-126.80, 46.23,-125.56, 45.39,-124.16, + 44.52,-122.79, 43.90,-121.85, 43.38,-120.70, 42.52,-119.85, + 41.41,-119.40, 40.22,-119.68, 38.73,-120.43, 37.05,-120.49, + 35.67,-120.08, 34.56,-118.00, 33.44,-115.89, 31.28,-114.73, + 29.55,-112.79, 27.91,-110.89, 26.28,-109.05, 24.78,-107.50, + 23.20,-106.00, 21.79,-104.58, 20.16,-103.23, 18.28,-101.73, + 16.37,-100.36 + / DATA ((REHING(I,J, 2),I=1,2),J=1, 29) / + 58.39,-135.70, 55.15,-133.03, 52.37,-130.80, 50.45,-129.28, + 48.54,-127.75, 47.44,-126.80, 46.23,-125.56, 45.39,-124.16, + 44.52,-122.79, 43.90,-121.85, 43.38,-120.70, 42.52,-119.85, + 41.41,-119.40, 40.22,-119.68, 38.73,-120.43, 37.05,-120.49, + 35.67,-120.08, 34.56,-118.00, 33.44,-115.89, 31.28,-114.73, + 29.55,-112.79, 27.91,-110.89, 26.28,-109.05, 24.78,-107.50, + 23.20,-106.00, 21.79,-104.58, 20.16,-103.23, 18.28,-101.73, + 16.37,-100.36 + / DATA ((REHING(I,J, 3),I=1,2),J=1, 33) / + 60.24,-142.90, 58.27,-136.08, 57.06,-133.84, 55.56,-132.30, + 54.31,-131.06, 52.34,-129.57, 50.99,-128.46, 49.68,-127.62, + 48.64,-126.31, 47.41,-124.10, 46.20,-121.40, 45.21,-118.79, + 44.38,-116.32, 43.59,-113.87, 42.71,-111.45, 41.95,-110.30, + 40.87,-109.75, 39.46,-109.53, 38.07,-109.47, 36.40,-109.69, + 34.97,-110.12, 33.38,-111.48, 32.18,-112.63, 31.23,-113.29, + 30.55,-113.21, 29.70,-112.07, 28.45,-110.41, 26.85,-108.26, + 25.03,-106.06, 22.76,-103.36, 20.40,-100.83, 18.53, -98.91, + 15.76, -95.35 + / DATA ((REHING(I,J, 4),I=1,2),J=1, 34) / + 59.74,-142.93, 57.85,-135.98, 57.15,-134.10, 56.01,-132.85, + 54.68,-131.71, 52.77,-130.21, 50.90,-128.84, 49.63,-127.75, + 48.60,-126.11, 47.65,-124.22, 47.03,-122.13, 46.41,-119.25, + 46.11,-116.86, 45.83,-114.22, 45.56,-111.04, 45.24,-108.41, + 44.65,-106.77, 43.72,-105.66, 42.82,-105.87, 41.25,-106.39, + 39.96,-107.68, 38.23,-109.58, 36.53,-111.05, 34.82,-112.31, + 33.11,-113.12, 32.14,-113.13, 31.23,-112.40, 30.09,-111.04, + 28.34,-108.86, 26.70,-106.84, 24.65,-104.56, 22.44,-102.17, + 18.04, -97.90, 14.33, -93.82 + / DATA ((REHING(I,J, 5),I=1,2),J=1, 31) / + 60.18,-142.67, 58.34,-135.99, 57.39,-133.91, 55.54,-131.68, + 53.24,-129.30, 51.45,-127.33, 49.34,-124.96, 47.58,-122.87, + 45.85,-120.92, 44.34,-118.67, 43.75,-116.92, 43.72,-114.46, + 43.59,-111.55, 43.34,-108.91, 42.86,-107.05, 42.13,-105.45, + 41.13,-104.87, 40.08,-104.90, 38.70,-105.39, 37.13,-106.70, + 35.70,-107.90, 34.13,-109.17, 32.75,-109.71, 31.34,-109.71, + 30.37,-109.16, 29.06,-107.62, 26.11,-104.35, 22.91,-101.21, + 20.18, -98.61, 18.86, -97.37, 15.81, -93.90 + / DATA ((REHING(I,J, 6),I=1,2),J=1, 35) / + 59.65,-143.76, 57.90,-136.31, 57.31,-134.75, 56.45,-133.35, + 55.25,-132.01, 53.95,-130.78, 52.54,-129.43, 50.88,-127.99, + 49.81,-126.43, 49.25,-124.90, 48.58,-123.85, 47.46,-122.86, + 46.31,-121.77, 44.75,-120.30, 43.36,-119.35, 41.49,-118.46, + 40.66,-117.90, 40.03,-116.96, 39.46,-115.55, 39.13,-113.64, + 38.99,-111.33, 38.87,-108.52, 38.77,-106.09, 38.39,-104.45, + 38.00,-103.53, 37.37,-103.42, 35.34,-103.89, 32.58,-104.54, + 29.82,-105.05, 27.44,-105.42, 24.90,-103.03, 22.70,-101.09, + 20.05, -98.86, 17.88, -96.95, 14.95, -94.01 + / DATA ((REHING(I,J, 7),I=1,2),J=1, 32) / + 60.15,-144.12, 58.32,-136.58, 57.58,-134.52, 55.82,-132.18, + 53.60,-130.20, 51.68,-128.54, 50.56,-127.44, 49.48,-125.13, + 48.21,-123.37, 45.85,-121.58, 43.62,-119.92, 41.89,-118.52, + 40.13,-116.35, 39.11,-114.39, 38.47,-112.91, 38.07,-111.01, + 37.86,-108.95, 37.68,-106.27, 37.11,-104.05, 36.49,-103.28, + 35.59,-103.92, 33.92,-105.34, 32.65,-107.07, 31.58,-108.11, + 30.77,-108.67, 30.04,-107.87, 28.35,-106.21, 25.94,-103.92, + 23.23,-101.36, 19.92, -98.62, 18.08, -97.05, 14.58, -93.85 + / DATA ((REHING(I,J, 8),I=1,2),J=1, 26) / + 60.73,-144.29, 58.48,-135.82, 56.96,-132.82, 54.44,-130.45, + 51.91,-128.35, 50.62,-126.85, 49.32,-124.72, 47.04,-122.53, + 45.09,-121.21, 43.27,-119.94, 41.70,-118.85, 39.66,-117.43, + 38.07,-115.05, 37.24,-112.97, 36.83,-110.87, 36.60,-109.39, + 36.22,-108.78, 35.56,-108.94, 33.64,-110.03, 32.23,-110.38, + 31.18,-109.93, 30.10,-108.77, 27.69,-106.20, 24.64,-103.37, + 19.55, -98.74, 14.66, -94.17 + / DATA ((REHING(I,J, 9),I=1,2),J=1, 31) / + 59.94,-142.45, 58.14,-135.36, 56.98,-133.18, 54.87,-131.29, + 52.93,-129.48, 51.68,-128.44, 50.98,-127.72, 50.43,-126.82, + 49.58,-125.10, 48.58,-123.85, 45.67,-121.39, 43.86,-120.19, + 41.92,-118.74, 39.65,-117.67, 38.14,-116.22, 37.34,-114.59, + 36.86,-113.27, 36.59,-112.50, 36.18,-112.04, 35.60,-111.96, + 34.88,-112.15, 34.29,-112.49, 33.70,-112.81, 32.69,-112.03, + 31.73,-110.98, 29.66,-108.65, 27.54,-106.42, 24.80,-103.95, + 23.88,-103.22, 18.54, -98.67, 14.42, -94.83 + / DATA ((REHING(I,J, 10),I=1,2),J=1, 30) / + 60.05,-142.71, 58.15,-135.55, 57.19,-133.78, 55.93,-132.21, + 54.27,-130.67, 53.02,-129.56, 51.61,-128.52, 50.80,-127.58, + 50.24,-126.63, 49.34,-124.96, 48.34,-123.62, 47.04,-122.53, + 45.82,-121.46, 44.32,-120.36, 42.71,-119.19, 40.97,-118.24, + 39.38,-117.47, 38.13,-116.62, 36.88,-115.49, 35.88,-114.63, + 35.07,-113.90, 34.07,-113.38, 32.72,-112.14, 31.60,-110.78, + 29.45,-108.57, 27.14,-106.05, 24.28,-103.50, 21.45,-101.15, + 18.32, -98.45, 14.79, -95.22 + / DATA ((REHING(I,J, 11),I=1,2),J=1, 30) / + 60.40,-143.60, 58.26,-135.89, 57.30,-133.82, 55.79,-132.11, + 54.09,-130.51, 52.22,-128.93, 50.89,-127.65, 50.16,-126.36, + 48.98,-124.38, 47.60,-123.01, 45.84,-122.17, 43.62,-121.86, + 41.51,-121.12, 39.45,-120.08, 37.52,-118.43, 36.38,-117.33, + 35.75,-116.30, 35.15,-114.95, 34.51,-113.95, 33.50,-113.29, + 32.45,-112.66, 31.69,-112.09, 30.03,-110.31, 28.29,-108.49, + 26.74,-106.94, 24.73,-105.04, 22.76,-103.43, 19.82,-100.93, + 18.03, -99.36, 15.25, -96.89 + / DATA ((REHING(I,J, 12),I=1,2),J=1, 27) / + 60.42,-144.51, 58.53,-136.13, 57.88,-134.36, 56.05,-132.25, + 54.05,-130.39, 52.11,-128.80, 50.74,-127.47, 50.15,-126.46, + 49.50,-125.28, 48.27,-123.80, 47.15,-122.81, 46.39,-122.50, + 45.08,-122.44, 43.55,-122.58, 41.65,-121.97, 39.91,-120.91, + 38.15,-119.72, 36.58,-117.83, 34.34,-115.15, 31.39,-111.97, + 28.32,-108.97, 26.00,-106.84, 23.14,-104.47, 21.37,-103.15, + 20.03,-101.83, 18.36,-100.47, 13.50, -94.94 + / DATA ((REHING(I,J, 13),I=1,2),J=1, 31) / + 59.32,-148.96, 56.64,-141.40, 54.70,-138.86, 52.76,-136.19, + 50.75,-133.84, 50.12,-132.92, 49.98,-131.59, 49.58,-129.73, + 49.01,-127.38, 48.39,-125.60, 47.54,-124.02, 46.26,-123.07, + 44.55,-123.48, 42.82,-123.56, 41.08,-123.22, 39.41,-122.52, + 37.93,-121.66, 37.11,-121.05, 35.04,-119.70, 33.35,-118.30, + 31.99,-116.93, 29.27,-114.19, 26.96,-111.97, 24.60,-109.89, + 22.03,-107.27, 20.84,-105.28, 20.26,-103.91, 19.78,-103.39, + 18.71,-102.43, 18.28,-102.07, 13.50, -94.94 + / DATA ((REHING(I,J, 14),I=1,2),J=1, 31) / + 59.32,-148.96, 56.64,-141.40, 54.70,-138.86, 52.76,-136.19, + 50.75,-133.84, 50.12,-132.92, 49.98,-131.59, 49.58,-129.73, + 49.01,-127.38, 48.39,-125.60, 47.54,-124.02, 46.26,-123.07, + 44.55,-123.48, 42.82,-123.56, 41.08,-123.22, 39.41,-122.52, + 37.93,-121.66, 37.11,-121.05, 35.04,-119.70, 33.35,-118.30, + 31.99,-116.93, 29.27,-114.19, 26.96,-111.97, 24.60,-109.89, + 22.03,-107.27, 20.84,-105.28, 20.26,-103.91, 19.78,-103.39, + 18.71,-102.43, 18.28,-102.07, 13.50, -94.94 + / C C===2=== CODE GENERATED BY PROGRAM "ALL4" PLATE ROTATER: ===== C DATA NROMAT / 18/ DATA (AGEROT(I),I=1, 18) / + 0.00, 3.63, 10.30, 19.90, 25.80, 30.00, 35.60, 42.00, + 49.55, 58.90, 68.50, 72.40, 85.00, 119.00, 127.00, 135.00, + 145.00, 163.00 + / DATA ((ROMATF(I,J, 1),J=1,3),I=1,3) +/ 1.0000000, 0.0000000, 0.0000000, + 0.0000000, 1.0000000, 0.0000000, + 0.0000000, 0.0000000, 1.0000000/ DATA ((ROMATF(I,J, 2),J=1,3),I=1,3) +/ 0.9984418, 0.0249586, 0.0499063, + -0.0236761, 0.9993781,-0.0261258, + -0.0505273, 0.0249035, 0.9984120/ DATA ((ROMATF(I,J, 3),J=1,3),I=1,3) +/ 0.9965000,-0.0015017, 0.0835752, + 0.0016967, 0.9999958,-0.0022638, + -0.0835716, 0.0023977, 0.9964986/ DATA ((ROMATF(I,J, 4),J=1,3),I=1,3) +/ 0.9870884,-0.0794135, 0.1391012, + 0.0779809, 0.9968305, 0.0157267, + -0.1399093,-0.0046764, 0.9901530/ DATA ((ROMATF(I,J, 5),J=1,3),I=1,3) +/ 0.9816186,-0.0953112, 0.1653471, + 0.0902718, 0.9952011, 0.0377464, + -0.1681514,-0.0221263, 0.9855123/ DATA ((ROMATF(I,J, 6),J=1,3),I=1,3) +/ 0.9772222,-0.1307292, 0.1671685, + 0.1217395, 0.9905611, 0.0629824, + -0.1738244,-0.0411969, 0.9839141/ DATA ((ROMATF(I,J, 7),J=1,3),I=1,3) +/ 0.9643680,-0.2176023, 0.1504717, + 0.2023463, 0.9730743, 0.1103661, + -0.1704363,-0.0759863, 0.9824339/ DATA ((ROMATF(I,J, 8),J=1,3),I=1,3) +/ 0.9355122,-0.3127865, 0.1642541, + 0.2875628, 0.9442505, 0.1603019, + -0.2052376,-0.1027311, 0.9733049/ DATA ((ROMATF(I,J, 9),J=1,3),I=1,3) +/ 0.8698806,-0.4633711, 0.1690941, + 0.4200012, 0.8755688, 0.2386968, + -0.2586591,-0.1366181, 0.9562580/ DATA ((ROMATF(I,J, 10),J=1,3),I=1,3) +/ 0.7665346,-0.5965531, 0.2377952, + 0.4980173, 0.7859663, 0.3663787, + -0.4054641,-0.1624160, 0.8995655/ DATA ((ROMATF(I,J, 11),J=1,3),I=1,3) +/ 0.6799753,-0.6748897, 0.2866260, + 0.4922036, 0.7098752, 0.5037958, + -0.5434762,-0.2014907, 0.8148823/ DATA ((ROMATF(I,J, 12),J=1,3),I=1,3) +/ 0.6364845,-0.7003338, 0.3231361, + 0.4905679, 0.6908776, 0.5310636, + -0.5951703,-0.1794939, 0.7832956/ DATA ((ROMATF(I,J, 13),J=1,3),I=1,3) +/ 0.5407817,-0.7359961, 0.4072609, + 0.3967867, 0.6501144, 0.6480033, + -0.7416956,-0.1888330, 0.6436048/ DATA ((ROMATF(I,J, 14),J=1,3),I=1,3) +/ 0.1260393,-0.9004962, 0.4161935, + 0.4084943, 0.4294313, 0.8054301, + -0.9040152, 0.0684970, 0.4219739/ DATA ((ROMATF(I,J, 15),J=1,3),I=1,3) +/ 0.0432563,-0.8638376, 0.5019060, + 0.3372753, 0.4855096, 0.8065493, + -0.9404098, 0.1343924, 0.3123534/ DATA ((ROMATF(I,J, 16),J=1,3),I=1,3) +/ -0.0372843,-0.8243719, 0.5648155, + 0.2585098, 0.5380124, 0.8023162, + -0.9652870, 0.1759245, 0.1930498/ DATA ((ROMATF(I,J, 17),J=1,3),I=1,3) +/ -0.0857564,-0.7854440, 0.6129592, + 0.2832710, 0.5706134, 0.7708135, + -0.9551961, 0.2397366, 0.1735606/ DATA ((ROMATF(I,J, 18),J=1,3),I=1,3) +/ -0.3959168,-0.6532624, 0.6453629, + 0.3365481, 0.5506653, 0.7638706, + -0.8543893, 0.5196268, 0.0018373/ DATA ((ROMATK(I,J, 1),J=1,3),I=1,3) +/ 1.0000000, 0.0000000, 0.0000000, + 0.0000000, 1.0000000, 0.0000000, + 0.0000000, 0.0000000, 1.0000000/ DATA ((ROMATK(I,J, 2),J=1,3),I=1,3) +/ 0.9987488, 0.0373617, 0.0332375, + -0.0375750, 0.9992768, 0.0058163, + -0.0329962,-0.0070580, 0.9994305/ DATA ((ROMATK(I,J, 3),J=1,3),I=1,3) +/ 0.9896211, 0.1192692, 0.0801546, + -0.1217560, 0.9921963, 0.0268703, + -0.0763243,-0.0363507, 0.9964201/ DATA ((ROMATK(I,J, 4),J=1,3),I=1,3) +/ 0.9764168, 0.1700087, 0.1330684, + -0.1745946, 0.9843599, 0.0235017, + -0.1269917,-0.0461805, 0.9908282/ DATA ((ROMATK(I,J, 5),J=1,3),I=1,3) +/ 0.9621986, 0.2228397, 0.1565766, + -0.2303865, 0.9725862, 0.0315939, + -0.1452439,-0.0664726, 0.9871603/ DATA ((ROMATK(I,J, 6),J=1,3),I=1,3) +/ 0.9499563, 0.2615878, 0.1707477, + -0.2714726, 0.9617367, 0.0369465, + -0.1545496,-0.0814509, 0.9846218/ DATA ((ROMATK(I,J, 7),J=1,3),I=1,3) +/ 0.9309399, 0.3084813, 0.1954228, + -0.3219432, 0.9458911, 0.0405280, + -0.1723465,-0.1006442, 0.9798813/ DATA ((ROMATK(I,J, 8),J=1,3),I=1,3) +/ 0.9128593, 0.3438594, 0.2201101, + -0.3608459, 0.9317248, 0.0409754, + -0.1909923,-0.1168305, 0.9746140/ DATA ((ROMATK(I,J, 9),J=1,3),I=1,3) +/ 0.8926937, 0.3237427, 0.3135092, + -0.3673854, 0.9256842, 0.0902017, + -0.2610084,-0.1957012, 0.9452911/ DATA ((ROMATK(I,J, 10),J=1,3),I=1,3) +/ 0.8382884, 0.2792339, 0.4682950, + -0.4014298, 0.8973089, 0.1835486, + -0.3689522,-0.3418544, 0.8642969/ DATA ((ROMATK(I,J, 11),J=1,3),I=1,3) +/ 0.7479138, 0.2368386, 0.6201060, + -0.4491286, 0.8684335, 0.2100139, + -0.4887816,-0.4355798, 0.7558849/ DATA ((ROMATK(I,J, 12),J=1,3),I=1,3) +/ 0.7069741, 0.2202590, 0.6720657, + -0.4550582, 0.8691026, 0.1938600, + -0.5413948,-0.4428831, 0.7146643/ DATA ((ROMATK(I,J, 13),J=1,3),I=1,3) +/ 0.4927713, 0.2023760, 0.8462971, + -0.5685837, 0.8111188, 0.1371042, + -0.6587012,-0.5487522, 0.5147643/ DATA ((ROMATK(I,J, 14),J=1,3),I=1,3) +/ 0.2884439,-0.0305855, 0.9570071, + -0.2699646, 0.9563414, 0.1119320, + -0.9186499,-0.2906443, 0.2675945/ DATA ((ROMATK(I,J, 15),J=1,3),I=1,3) +/ 0.1826985, 0.0447444, 0.9821491, + -0.2405134, 0.9706448, 0.0005196, + -0.9532956,-0.2363152, 0.1880977/ DATA ((ROMATK(I,J, 16),J=1,3),I=1,3) +/ 0.0730065, 0.1148067, 0.9907003, + -0.2118030, 0.9724770,-0.0970868, + -0.9745805,-0.2027456, 0.0953141/ DATA ((ROMATK(I,J, 17),J=1,3),I=1,3) +/ 0.0737035, 0.1703374, 0.9826242, + -0.1573972, 0.9749421,-0.1572000, + -0.9847798,-0.1430762, 0.0986680/ DATA ((ROMATK(I,J, 18),J=1,3),I=1,3) +/ -0.0087966, 0.2534258, 0.9673132, + 0.1625878, 0.9548408,-0.2486796, + -0.9866534, 0.1550863,-0.0496027/ DATA ((ROMATP(I,J, 1),J=1,3),I=1,3) +/ 1.0000000, 0.0000000, 0.0000000, + 0.0000000, 1.0000000, 0.0000000, + 0.0000000, 0.0000000, 1.0000000/ DATA ((ROMATP(I,J, 2),J=1,3),I=1,3) +/ 0.9987488, 0.0373617, 0.0332375, + -0.0375750, 0.9992768, 0.0058163, + -0.0329962,-0.0070580, 0.9994305/ DATA ((ROMATP(I,J, 3),J=1,3),I=1,3) +/ 0.9896211, 0.1192692, 0.0801546, + -0.1217560, 0.9921963, 0.0268703, + -0.0763243,-0.0363507, 0.9964201/ DATA ((ROMATP(I,J, 4),J=1,3),I=1,3) +/ 0.9764168, 0.1700087, 0.1330684, + -0.1745946, 0.9843599, 0.0235017, + -0.1269917,-0.0461805, 0.9908282/ DATA ((ROMATP(I,J, 5),J=1,3),I=1,3) +/ 0.9621986, 0.2228397, 0.1565766, + -0.2303865, 0.9725862, 0.0315939, + -0.1452439,-0.0664726, 0.9871603/ DATA ((ROMATP(I,J, 6),J=1,3),I=1,3) +/ 0.9499563, 0.2615878, 0.1707477, + -0.2714726, 0.9617367, 0.0369465, + -0.1545496,-0.0814509, 0.9846218/ DATA ((ROMATP(I,J, 7),J=1,3),I=1,3) +/ 0.9309399, 0.3084813, 0.1954228, + -0.3219432, 0.9458911, 0.0405280, + -0.1723465,-0.1006442, 0.9798813/ DATA ((ROMATP(I,J, 8),J=1,3),I=1,3) +/ 0.9128593, 0.3438594, 0.2201101, + -0.3608459, 0.9317248, 0.0409754, + -0.1909923,-0.1168305, 0.9746140/ DATA ((ROMATP(I,J, 9),J=1,3),I=1,3) +/ 0.9036663, 0.3323698, 0.2700321, + -0.3557910, 0.9336445, 0.0414807, + -0.2383270,-0.1335597, 0.9619573/ DATA ((ROMATP(I,J, 10),J=1,3),I=1,3) +/ 0.8783061, 0.3137228, 0.3607716, + -0.3583550, 0.9314973, 0.0624035, + -0.3164804,-0.1840937, 0.9305640/ DATA ((ROMATP(I,J, 11),J=1,3),I=1,3) +/ 0.8133826, 0.3327699, 0.4771508, + -0.4012021, 0.9148389, 0.0458976, + -0.4212428,-0.2287661, 0.8776220/ DATA ((ROMATP(I,J, 12),J=1,3),I=1,3) +/ 0.7885006, 0.3410243, 0.5118291, + -0.4008002, 0.9161383, 0.0070450, + -0.4665038,-0.2106962, 0.8590583/ DATA ((ROMATP(I,J, 13),J=1,3),I=1,3) +/ 0.6594428, 0.4211499, 0.6227100, + -0.4718215, 0.8767433,-0.0933034, + -0.5852515,-0.2322797, 0.7768697/ DATA ((ROMATP(I,J, 14),J=1,3),I=1,3) +/ 0.5735050, 0.5730298, 0.5854303, + -0.4726608, 0.8151487,-0.3348495, + -0.6690916,-0.0846720, 0.7383407/ DATA ((ROMATP(I,J, 15),J=1,3),I=1,3) +/ 0.5466521, 0.6209800, 0.5617428, + -0.4979524, 0.7804186,-0.3781402, + -0.6732122,-0.0730101, 0.7358360/ DATA ((ROMATP(I,J, 16),J=1,3),I=1,3) +/ 0.5130962, 0.6671163, 0.5400814, + -0.5285266, 0.7413454,-0.4136018, + -0.6763074,-0.0732298, 0.7329704/ DATA ((ROMATP(I,J, 17),J=1,3),I=1,3) +/ 0.5677590, 0.7006614, 0.4321147, + -0.5501299, 0.7134408,-0.4340037, + -0.6123779, 0.0086904, 0.7905173/ DATA ((ROMATP(I,J, 18),J=1,3),I=1,3) +/ 0.7427920, 0.5855252, 0.3246846, + -0.3852086, 0.7703925,-0.5080448, + -0.5476077, 0.2523004, 0.7977908/ DATA ((ROMATV(I,J, 1),J=1,3),I=1,3) +/ 1.0000000, 0.0000000, 0.0000000, + 0.0000000, 1.0000000, 0.0000000, + 0.0000000, 0.0000000, 1.0000000/ DATA ((ROMATV(I,J, 2),J=1,3),I=1,3) +/ 0.9993297, 0.0051820, 0.0362338, + -0.0047712, 0.9999232,-0.0114144, + -0.0362902, 0.0112339, 0.9992780/ DATA ((ROMATV(I,J, 3),J=1,3),I=1,3) +/ 0.9966072,-0.0024635, 0.0822646, + 0.0025242, 0.9999963,-0.0006345, + -0.0822628, 0.0008400, 0.9966100/ DATA ((ROMATV(I,J, 4),J=1,3),I=1,3) +/ 0.9874673,-0.0822613, 0.1346872, + 0.0813513, 0.9966096, 0.0122550, + -0.1352387,-0.0011445, 0.9908120/ DATA ((ROMATV(I,J, 5),J=1,3),I=1,3) +/ 0.9769385,-0.0981460, 0.1896242, + 0.0957089, 0.9951658, 0.0219901, + -0.1908659,-0.0033342, 0.9816099/ DATA ((ROMATV(I,J, 6),J=1,3),I=1,3) +/ 0.9672080,-0.1004198, 0.2332878, + 0.0970278, 0.9949411, 0.0260009, + -0.2347188,-0.0025129, 0.9720595/ DATA ((ROMATV(I,J, 7),J=1,3),I=1,3) +/ 0.9578496,-0.1985734, 0.2075841, + 0.1860558, 0.9794068, 0.0783809, + -0.2188739,-0.0364552, 0.9750712/ DATA ((ROMATV(I,J, 8),J=1,3),I=1,3) +/ 0.9285972,-0.3330147, 0.1637273, + 0.3143928, 0.9404002, 0.1296231, + -0.1971359,-0.0688933, 0.9779518/ DATA ((ROMATV(I,J, 9),J=1,3),I=1,3) +/ 0.8519540,-0.5116365, 0.1113576, + 0.4857856, 0.8516892, 0.1965587, + -0.1954090,-0.1133634, 0.9741470/ DATA ((ROMATV(I,J, 10),J=1,3),I=1,3) +/ 0.7341714,-0.6763662, 0.0593198, + 0.6286086, 0.7101420, 0.3170907, + -0.2565954,-0.1955106, 0.9465370/ DATA ((ROMATV(I,J, 11),J=1,3),I=1,3) +/ 0.6687082,-0.7369352, 0.0987580, + 0.6230298, 0.6278643, 0.4664944, + -0.4057837,-0.2504201, 0.8789921/ DATA ((ROMATV(I,J, 12),J=1,3),I=1,3) +/ 0.6332583,-0.7620972, 0.1348656, + 0.6199963, 0.6038375, 0.5009806, + -0.4632338,-0.2336346, 0.8548840/ DATA ((ROMATV(I,J, 13),J=1,3),I=1,3) +/ 0.5726639,-0.7899240, 0.2192550, + 0.5270615, 0.5596170, 0.6395554, + -0.6279004,-0.2506902, 0.7368125/ DATA ((ROMATV(I,J, 14),J=1,3),I=1,3) +/ 0.1862030,-0.9539652, 0.2351070, + 0.4969981, 0.2978723, 0.8150220, + -0.8475366,-0.0349119, 0.5295847/ DATA ((ROMATV(I,J, 15),J=1,3),I=1,3) +/ 0.1202118,-0.9349756, 0.3337152, + 0.4187091, 0.3525420, 0.8368945, + -0.9001268, 0.0391250, 0.4338636/ DATA ((ROMATV(I,J, 16),J=1,3),I=1,3) +/ 0.0559588,-0.9094425, 0.4120423, + 0.3322897, 0.4061266, 0.8512579, + -0.9415139, 0.0892823, 0.3249255/ DATA ((ROMATV(I,J, 17),J=1,3),I=1,3) +/ 0.0035101,-0.8845617, 0.4664051, + 0.3494043, 0.4380954, 0.8282415, + -0.9369633, 0.1600573, 0.3106084/ DATA ((ROMATV(I,J, 18),J=1,3),I=1,3) +/ -0.3217998,-0.7897338, 0.5222647, + 0.3520011, 0.4122773, 0.8403078, + -0.8789400, 0.4542502, 0.1453171/ DATA NUMVEL / 17/ DATA (AGEVEL(I),I=1, 17) / + 1.81, 6.97, 15.10, 22.85, 27.90, 32.80, 38.80, 45.77, + 54.22, 63.70, 70.45, 78.70, 102.00, 123.00, 131.00, 140.00, + 154.00 + / DATA (OMEGAF(I, 1),I=1,3) + / 2.22436E-16, 4.37785E-16,-2.11997E-16/ DATA (OMEGAF(I, 2),I=1,3) + /-1.15243E-16, 1.59143E-16, 1.18424E-16/ DATA (OMEGAF(I, 3),I=1,3) + /-5.20186E-17, 1.86928E-16, 2.53471E-16/ DATA (OMEGAF(I, 4),I=1,3) + /-1.06009E-16, 1.52830E-16, 7.04799E-17/ DATA (OMEGAF(I, 5),I=1,3) + /-1.88225E-16, 3.57680E-17, 2.41271E-16/ DATA (OMEGAF(I, 6),I=1,3) + /-2.80863E-16,-4.69432E-17, 4.60480E-16/ DATA (OMEGAF(I, 7),I=1,3) + /-2.23587E-16, 1.34246E-16, 4.59035E-16/ DATA (OMEGAF(I, 8),I=1,3) + /-3.01794E-16, 1.52210E-16, 6.43195E-16/ DATA (OMEGAF(I, 9),I=1,3) + /-2.67001E-16, 4.56656E-16, 4.83609E-16/ DATA (OMEGAF(I, 10),I=1,3) + /-2.89517E-16, 4.76875E-16, 2.51810E-16/ DATA (OMEGAF(I, 11),I=1,3) + /-7.69435E-20, 4.51192E-16, 3.14338E-16/ DATA (OMEGAF(I, 12),I=1,3) + /-1.10799E-16, 4.93623E-16, 8.32111E-17/ DATA (OMEGAF(I, 13),I=1,3) + /-8.79293E-17, 2.40343E-16, 3.43456E-16/ DATA (OMEGAF(I, 14),I=1,3) + / 3.42999E-16, 4.32696E-16, 1.46227E-16/ DATA (OMEGAF(I, 15),I=1,3) + / 2.93430E-16, 4.47830E-16, 9.47212E-17/ DATA (OMEGAF(I, 16),I=1,3) + / 1.91442E-16, 2.29329E-17, 1.74204E-16/ DATA (OMEGAF(I, 17),I=1,3) + / 1.66065E-16, 2.61346E-16, 5.23447E-16/ DATA (OMEGAK(I, 1),I=1,3) + /-5.61048E-17, 2.88638E-16,-3.26565E-16/ DATA (OMEGAK(I, 2),I=1,3) + /-1.17638E-16, 2.14906E-16,-3.98084E-16/ DATA (OMEGAK(I, 3),I=1,3) + /-1.50584E-17, 1.75514E-16,-1.72060E-16/ DATA (OMEGAK(I, 4),I=1,3) + /-6.85319E-17, 1.16433E-16,-3.03108E-16/ DATA (OMEGAK(I, 5),I=1,3) + /-6.64486E-17, 9.50677E-17,-3.17342E-16/ DATA (OMEGAK(I, 6),I=1,3) + /-6.16534E-17, 1.29853E-16,-2.94295E-16/ DATA (OMEGAK(I, 7),I=1,3) + /-4.48367E-17, 1.16808E-16,-2.00231E-16/ DATA (OMEGAK(I, 8),I=1,3) + /-3.42895E-16, 3.07318E-16,-7.84280E-18/ DATA (OMEGAK(I, 9),I=1,3) + /-5.24123E-16, 4.21964E-16,-6.28934E-17/ DATA (OMEGAK(I, 10),I=1,3) + /-3.47853E-16, 5.17207E-16,-6.26469E-17/ DATA (OMEGAK(I, 11),I=1,3) + /-1.29789E-16, 5.39917E-16, 7.00136E-17/ DATA (OMEGAK(I, 12),I=1,3) + /-2.25126E-16, 6.46717E-16,-2.10399E-16/ DATA (OMEGAK(I, 13),I=1,3) + /-8.79291E-17, 2.40344E-16, 3.43456E-16/ DATA (OMEGAK(I, 14),I=1,3) + / 3.42972E-16, 4.32656E-16, 1.46203E-16/ DATA (OMEGAK(I, 15),I=1,3) + / 2.93406E-16, 4.47800E-16, 9.47100E-17/ DATA (OMEGAK(I, 16),I=1,3) + / 1.91374E-16, 2.29230E-17, 1.74145E-16/ DATA (OMEGAK(I, 17),I=1,3) + / 1.66065E-16, 2.61346E-16, 5.23447E-16/ DATA (OMEGAP(I, 1),I=1,3) + /-5.61048E-17, 2.88638E-16,-3.26565E-16/ DATA (OMEGAP(I, 2),I=1,3) + /-1.17638E-16, 2.14906E-16,-3.98084E-16/ DATA (OMEGAP(I, 3),I=1,3) + /-1.50584E-17, 1.75514E-16,-1.72060E-16/ DATA (OMEGAP(I, 4),I=1,3) + /-6.85319E-17, 1.16433E-16,-3.03108E-16/ DATA (OMEGAP(I, 5),I=1,3) + /-6.64486E-17, 9.50677E-17,-3.17342E-16/ DATA (OMEGAP(I, 6),I=1,3) + /-6.16534E-17, 1.29853E-16,-2.94295E-16/ DATA (OMEGAP(I, 7),I=1,3) + /-4.48367E-17, 1.16808E-16,-2.00231E-16/ DATA (OMEGAP(I, 8),I=1,3) + /-7.95765E-17, 2.01210E-16, 3.16566E-17/ DATA (OMEGAP(I, 9),I=1,3) + /-1.82793E-16, 2.78850E-16, 6.21172E-18/ DATA (OMEGAP(I, 10),I=1,3) + /-1.10363E-16, 4.11618E-16,-1.28934E-16/ DATA (OMEGAP(I, 11),I=1,3) + / 1.61156E-16, 4.19784E-16, 1.56999E-17/ DATA (OMEGAP(I, 12),I=1,3) + / 7.46968E-17, 4.23581E-16,-2.19155E-16/ DATA (OMEGAP(I, 13),I=1,3) + / 2.04277E-16, 1.08618E-16,-2.84094E-17/ DATA (OMEGAP(I, 14),I=1,3) + / 1.92305E-16, 3.73766E-17,-1.42336E-16/ DATA (OMEGAP(I, 15),I=1,3) + / 1.61534E-16, 3.43348E-17,-1.77105E-16/ DATA (OMEGAP(I, 16),I=1,3) + / 2.87845E-16,-2.68429E-16, 6.23380E-17/ DATA (OMEGAP(I, 17),I=1,3) + / 2.19652E-16,-7.13669E-17, 4.34363E-16/ DATA (OMEGAV(I, 1),I=1,3) + / 9.86981E-17, 3.16045E-16,-4.33668E-17/ DATA (OMEGAV(I, 2),I=1,3) + /-5.14985E-17, 2.19222E-16, 3.33668E-17/ DATA (OMEGAV(I, 3),I=1,3) + /-3.52269E-17, 1.75936E-16, 2.61668E-16/ DATA (OMEGAV(I, 4),I=1,3) + /-2.56065E-17, 3.02977E-16, 8.26955E-17/ DATA (OMEGAV(I, 5),I=1,3) + / 2.38990E-18, 3.39059E-16, 1.81821E-17/ DATA (OMEGAV(I, 6),I=1,3) + /-3.14872E-16,-1.02187E-16, 5.04872E-16/ DATA (OMEGAV(I, 7),I=1,3) + /-3.01822E-16,-1.44934E-16, 6.45606E-16/ DATA (OMEGAV(I, 8),I=1,3) + /-3.48720E-16,-8.07761E-17, 7.85876E-16/ DATA (OMEGAV(I, 9),I=1,3) + /-4.42586E-16, 1.09988E-16, 6.53606E-16/ DATA (OMEGAV(I, 10),I=1,3) + /-2.89517E-16, 4.76875E-16, 2.51810E-16/ DATA (OMEGAV(I, 11),I=1,3) + /-7.83352E-20, 4.51192E-16, 3.14338E-16/ DATA (OMEGAV(I, 12),I=1,3) + /-1.10796E-16, 4.93633E-16, 8.32232E-17/ DATA (OMEGAV(I, 13),I=1,3) + /-8.79293E-17, 2.40343E-16, 3.43456E-16/ DATA (OMEGAV(I, 14),I=1,3) + / 3.42996E-16, 4.32686E-16, 1.46215E-16/ DATA (OMEGAV(I, 15),I=1,3) + / 2.93417E-16, 4.47842E-16, 9.47149E-17/ DATA (OMEGAV(I, 16),I=1,3) + / 1.91442E-16, 2.29329E-17, 1.74204E-16/ DATA (OMEGAV(I, 17),I=1,3) + / 1.66065E-16, 2.61346E-16, 5.23447E-16/ C C===3=== DATA MODIFIED BY PROGRAM MAPPER ========== C C DATA NTAPES/ 16/,NTAPP1/ 17/,NKV3J/ 10/,NVF3J/ 10/ C C C DATA ((REKV3J(K,I),K=1,3),I=1, 10) / + 47.22,-130.46, 55., + 47.22,-130.46, 55., + 47.37,-132.82, 57., + 46.03,-131.91, 56., + 47.00,-133.97, 57., + 47.00,-133.97, 57., + 45.34,-128.86, 54., + 45.61,-129.99, 60., + 44.68,-129.34, 62., + 43.82,-129.20, 68. +/ DATA ((REVF3J(K,I),K=1,3),I=1, 10) / + 27.33,-117.02, 45., + 27.33,-117.02, 45., + 28.46,-118.67, 47., + 25.76,-113.07, 33., + 25.76,-113.07, 30., + 25.21,-111.68, 35., + 25.21,-111.68, 41., + 25.18,-112.65, 32., + 23.90,-110.19, 13., + 22.30,-107.00, 37. +/ DATA (AGEKV(I),I=1, 10) / + 0.00, 10.00, 20.00, 30.00, 40.00, 50.00, 65.00, 70.00, + 80.00, 85.00 +/ DATA (AGEVF(I),I=1, 10) / + 0.00, 10.00, 20.00, 30.00, 35.00, 40.00, 45.00, 50.00, + 55.00, 59.00 +/ C C C DATA (NPFZ(I),I=1, 17) / + 8, 9, 15, 21, 22, 28, 27, 27, 26, 20, 24, 30, 30, 29, 21, + 20, 11 +/ DATA (TAGFZ(K, 1),K=1, 8)/ +'F','F','F','F','F','F','F','F' +/ DATA (AGEFZ(K, 1),K=1, 8) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00 +/ DATA ((FRACZN(K,L, 1),K=1,2),L=1, 8)/ + 15.59,-125.04, 13.99,-104.17, 18.00, -94.37, 22.63, -84.11, + 25.16, -72.25, 27.86, -59.95, 30.09, -47.05, 29.56, -29.71 +/ DATA (TAGFZ(K, 2),K=1, 9)/ +'F','F','F','F','F','F','F','F','F' +/ DATA (AGEFZ(K, 2),K=1, 9) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00 +/ DATA ((FRACZN(K,L, 2),K=1,2),L=1, 9)/ + 15.59,-125.04, 25.72,-127.26, 27.71,-115.36, 23.44,-108.71, + 24.29, -94.18, 26.26, -81.92, 27.86, -59.95, 30.09, -47.05, + 29.56, -29.71 +/ DATA (TAGFZ(K, 3),K=1, 15)/ +'F','F','F','F','F','F','F','F','F','F','F','F','F','F','F' +/ DATA (AGEFZ(K, 3),K=1, 15) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00 +/ DATA ((FRACZN(K,L, 3),K=1,2),L=1, 15)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 33.12,-120.57, + 27.71,-115.36, 23.44,-108.71, 31.30,-106.70, 31.39,-103.19, + 32.24, -96.28, 33.58, -83.48, 33.79, -66.16, 34.07, -56.01, + 33.30, -41.56, 31.31, -28.46, 29.56, -29.71 +/ DATA (TAGFZ(K, 4),K=1, 21)/ +'F','F','F','F','F','F','F','F','F','F','F','F','F','F','F', +'F','F','F','F','F','F' +/ DATA (AGEFZ(K, 4),K=1, 21) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 4),K=1,2),L=1, 21)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 36.45,-130.48, + 36.30,-126.03, 34.39,-122.15, 33.12,-120.57, 27.71,-115.36, + 23.44,-108.71, 31.30,-106.70, 32.70,-101.50, 34.31, -96.22, + 35.02, -88.82, 37.37, -83.32, 39.82, -75.01, 37.48, -62.38, + 37.01, -56.15, 36.54, -44.03, 33.32, -26.81, 31.48, -28.31, + 29.56, -29.71 +/ DATA (TAGFZ(K, 5),K=1, 22)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 5),K=1, 22) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 5),K=1,2),L=1, 22)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 36.45,-130.48, + 36.30,-126.03, 40.10,-126.07, 38.70,-123.94, 38.07,-119.03, + 38.57,-115.98, 38.31,-112.51, 37.79,-107.99, 36.42,-103.96, + 29.31,-101.67, 30.90, -96.66, 31.63, -89.64, 33.99, -84.45, + 36.50, -76.61, 34.42, -64.53, 34.10, -58.57, 33.95, -46.94, + 30.70, -28.71, 28.36, -30.08 +/ DATA (TAGFZ(K, 6),K=1, 28)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 6),K=1, 28) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00 +/ DATA ((FRACZN(K,L, 6),K=1,2),L=1, 28)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 38.52,-125.98, 40.10,-126.07, 38.70,-123.94, 38.07,-119.03, + 38.57,-115.98, 38.31,-112.51, 37.79,-107.99, 36.42,-103.96, + 35.36,-100.33, 35.80, -96.04, 36.04, -87.64, 38.61, -83.49, + 40.03, -80.83, 40.75, -75.99, 42.08, -66.09, 42.76, -61.85, + 43.50, -58.17, 43.78, -48.52, 43.64, -38.32, 39.77, -21.11, + 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 7),K=1, 27)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 7),K=1, 27) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00 +/ DATA ((FRACZN(K,L, 7),K=1,2),L=1, 27)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 40.13,-131.75, 40.10,-126.07, 38.70,-123.94, 38.07,-119.03, + 38.57,-115.98, 38.31,-112.51, 37.79,-107.99, 37.83,-103.02, + 37.69, -97.94, 37.99, -94.65, 38.48, -90.74, 40.03, -80.83, + 40.75, -75.99, 42.08, -66.09, 42.76, -61.85, 43.50, -58.17, + 43.78, -48.52, 43.64, -38.32, 39.77, -21.11, 37.19, -23.42, + 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 8),K=1, 27)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 8),K=1, 27) / + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, + 0.00, 0.00, 0.00 +/ DATA ((FRACZN(K,L, 8),K=1,2),L=1, 27)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 40.13,-131.75, 40.10,-126.07, 38.70,-123.94, 38.07,-119.03, + 38.57,-115.98, 38.31,-112.51, 37.79,-107.99, 37.83,-103.02, + 37.69, -97.94, 37.99, -94.65, 38.48, -90.74, 40.81, -81.78, + 43.05, -68.36, 43.82, -63.06, 45.47, -56.57, 45.94, -47.80, + 45.72, -36.12, 41.92, -19.06, 39.77, -21.11, 37.19, -23.42, + 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 9),K=1, 26)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 9),K=1, 26) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00 +/ DATA ((FRACZN(K,L, 9),K=1,2),L=1, 26)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 43.26,-132.97, 42.34,-124.68, 41.51,-118.95, 41.92,-115.31, + 41.70,-109.93, 40.37,-100.85, 40.35, -98.25, 40.77, -95.67, + 41.34, -93.12, 42.06, -90.61, 42.74, -81.88, 43.05, -68.36, + 43.82, -63.06, 45.47, -56.57, 45.94, -47.80, 45.72, -36.12, + 41.92, -19.06, 39.77, -21.11, 37.19, -23.42, 33.32, -26.81, + 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 10),K=1, 20)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V' +/ DATA (AGEFZ(K, 10),K=1, 20) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 10),K=1,2),L=1, 20)/ + 43.39,-133.14, 44.73,-133.51, 42.34,-124.68, 43.15,-119.71, + 45.49,-114.27, 45.73,-108.43, 44.73,-102.56, 48.58, -98.79, + 48.87, -94.66, 48.55, -89.67, 46.70, -85.91, 69.49, -10.11, + 69.17, 10.62, 55.83, 1.28, 41.92, -19.06, 39.77, -21.11, + 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 11),K=1, 24)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 11),K=1, 24) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 11),K=1,2),L=1, 24)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 49.49,-131.97, 48.65,-126.37, 49.93,-120.40, + 49.94,-115.54, 49.91,-111.07, 49.39,-107.30, 48.78,-104.25, + 48.58, -98.79, 48.87, -94.66, 48.55, -89.67, 46.70, -85.91, + 69.17, 10.62, 55.83, 1.28, 41.92, -19.06, 39.77, -21.11, + 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 12),K=1, 30)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 12),K=1, 30) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 12),K=1,2),L=1, 30)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 55.63,-139.27, 55.58,-138.46, 52.86,-133.79, + 51.31,-131.53, 50.15,-129.79, 50.53,-127.83, 51.55,-125.28, + 54.00,-120.83, 53.90,-116.85, 53.81,-112.33, 53.25,-108.90, + 53.06,-105.09, 48.58, -98.79, 48.87, -94.66, 48.55, -89.67, + 46.70, -85.91, 69.49, -10.11, 69.17, 10.62, 55.83, 1.28, + 41.92, -19.06, 39.77, -21.11, 37.19, -23.42, 33.32, -26.81, + 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 13),K=1, 30)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 13),K=1, 30) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 13),K=1,2),L=1, 30)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 55.63,-139.27, 55.58,-138.46, 52.86,-133.79, + 51.31,-131.53, 50.15,-129.79, 50.53,-127.83, 51.55,-125.28, + 54.00,-120.83, 55.81,-113.06, 55.98,-108.85, 54.64,-108.33, + 53.06,-105.09, 48.58, -98.79, 48.87, -94.66, 48.55, -89.67, + 46.70, -85.91, 69.49, -10.11, 69.17, 10.62, 55.83, 1.28, + 41.92, -19.06, 39.77, -21.11, 37.19, -23.42, 33.32, -26.81, + 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 14),K=1, 29)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V','V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEFZ(K, 14),K=1, 29) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 14),K=1,2),L=1, 29)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 55.63,-139.27, 55.58,-138.46, 52.86,-133.79, + 51.31,-131.53, 50.15,-129.79, 50.53,-127.83, 51.55,-125.28, + 54.00,-120.83, 55.81,-113.06, 55.98,-108.85, 61.58, -99.29, + 63.17, -92.95, 65.54, -77.50, 70.17, -57.40, 72.85, -26.14, + 69.67, -7.24, 69.17, 10.62, 55.83, 1.28, 41.92, -19.06, + 39.77, -21.11, 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, + 29.56, -29.71 +/ DATA (TAGFZ(K, 15),K=1, 21)/ +'K','K','K','K','K','K','K','K','K','K','K','K','K','K','K', +'K','K','K','K','K','K' +/ DATA (AGEFZ(K, 15),K=1, 21) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 15),K=1,2),L=1, 21)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 55.63,-139.27, 63.11,-144.77, 69.34,-141.39, + 76.98,-131.11, 80.85, -90.15, 78.29, -32.39, 71.63, -18.19, + 69.67, -7.24, 69.44, 10.88, 55.38, 1.77, 41.92, -19.06, + 39.77, -21.11, 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, + 29.56, -29.71 +/ DATA (TAGFZ(K, 16),K=1, 20)/ +'K','K','K','K','K','K','K','K','K','K','K','K','K','K','K', +'K','K','K','K','K' +/ DATA (AGEFZ(K, 16),K=1, 20) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 16),K=1,2),L=1, 20)/ + 15.59,-125.04, 25.72,-127.26, 32.81,-129.34, 38.54,-131.32, + 50.87,-136.46, 55.63,-139.27, 63.11,-144.77, 71.17,-152.92, + 83.00,-147.32, 85.08, -74.45, 71.63, -18.19, 67.61, -18.68, + 63.46, -11.94, 55.38, 1.77, 41.92, -19.06, 39.77, -21.11, + 37.19, -23.42, 33.32, -26.81, 31.48, -28.31, 29.56, -29.71 +/ DATA (TAGFZ(K, 17),K=1, 11)/ +'K','K','K','K','K','K','K','K','K','K','K' +/ DATA (AGEFZ(K, 17),K=1, 11) / + 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, 85.00, + 85.00, 85.00, 85.00 +/ DATA ((FRACZN(K,L, 17),K=1,2),L=1, 11)/ + 15.59,-125.04, 40.13,-131.75, 55.63,-139.27, 63.11,-144.77, + 71.21,-152.93, 83.00,-147.32, 89.93,-130.41, 69.44, 10.88, + 55.38, 1.77, 47.07, -12.56, 29.56, -29.71 +/ C C C DATA (NMAG(I),I=1, 16) / + 12, 15, 15, 17, 16, 8, 12, 13, 17, 9, 8, 5, 7, 2, 6, + 7 +/ DATA (TAGMAG(K, 1),K=1, 12)/ +'F','F','F','F','F','F','F','F','F','F','F','F' +/ DATA (AGEMAG(K, 1),K=1, 12) / + 0.00, 4.50, 9.50, 20.00, 27.50, 35.70, 59.00, 63.40, + 67.00, 77.00,142.00,240.00 +/ DATA (((REMAG(K,L,M, 1),K=1,2),L=1,2),M=1, 12) / + 22.94,-108.62, 19.57,-110.03, 22.15,-107.81, 19.38,-108.80, + 20.73,-106.17, 18.90,-106.87, 25.27,-102.94, 16.40,-102.97, + 24.14,-101.56, 16.66,-101.66, 24.11, -97.49, 18.53, -96.65, + 25.83, -82.46, 21.44, -81.63, 26.16, -80.77, 21.81, -79.71, + 26.56, -80.43, 22.47, -79.16, 26.83, -75.41, 23.15, -73.96, + 26.47, -61.99, 24.12, -63.58, 35.79, -17.17, 29.70, -28.97 +/ DATA (TAGMAG(K, 2),K=1, 15)/ +'F','F','F','F','F','F','F','F','F','F','F','F','F','F','F' +/ DATA (AGEMAG(K, 2),K=1, 15) / + 0.00, 10.00, 20.00, 27.50, 35.70, 49.30, 59.00, 63.40, + 67.00, 77.00,126.00,165.00,200.00,240.00,240.00 +/ DATA (((REMAG(K,L,M, 2),K=1,2),L=1,2),M=1, 15) / + 28.07,-108.81, 23.70,-108.58, 28.08,-108.55, 23.71,-108.33, + 31.00,-106.14, 24.87,-105.49, 31.43,-103.56, 24.04,-103.46, + 31.38, -99.00, 24.02, -98.31, 31.79, -96.01, 24.87, -94.72, + 32.55, -90.64, 25.62, -90.16, 32.71, -88.50, 25.76, -88.05, + 33.05, -87.18, 25.94, -86.84, 33.50, -82.33, 26.27, -82.02, + 33.49, -71.21, 29.07, -70.66, 33.40, -59.78, 27.89, -59.33, + 33.47, -44.61, 30.67, -44.49, 31.24, -28.50, 29.95, -29.65, + 35.78, -17.17, 29.70, -28.97 +/ DATA (TAGMAG(K, 3),K=1, 15)/ +'F','F','F','F','F','F','F','F','F','F','F','F','F','F','F' +/ DATA (AGEMAG(K, 3),K=1, 15) / + 20.00, 27.50, 35.70, 42.00, 49.30, 59.00, 63.40, 67.00, + 77.00,126.00,134.00,150.00,180.00,220.00,220.00 +/ DATA (((REMAG(K,L,M, 3),K=1,2),L=1,2),M=1, 15) / + 32.05,-106.51, 31.16,-106.49, 32.92,-101.69, 31.43,-102.34, + 35.03, -96.52, 31.78, -96.40, 35.86, -92.66, 32.07, -92.63, + 37.00, -88.90, 32.71, -88.77, 40.00, -82.70, 33.09, -83.14, + 40.55, -80.73, 33.40, -81.29, 41.06, -79.60, 33.70, -80.32, + 41.71, -74.07, 33.98, -74.48, 37.49, -61.88, 34.61, -62.56, + 37.06, -58.84, 35.72, -59.17, 37.31, -53.84, 34.26, -53.85, + 36.15, -42.30, 34.03, -42.67, 33.41, -27.01, 32.02, -29.38, + 32.32, -27.45, 31.81, -28.32 +/ DATA (TAGMAG(K, 4),K=1, 17)/ +'F','F','F','F','F','F','F','F','F','F','F','F','F','F','F', +'F','F' +/ DATA (AGEMAG(K, 4),K=1, 17) / + -0.10, -0.10, 27.50, 27.50, 35.70, 42.00, 49.30, 49.30, + 59.00, 63.40, 67.00, 77.00,119.00,126.00,134.00,142.00, +180.00 +/ DATA (((REMAG(K,L,M, 4),K=1,2),L=1,2),M=1, 17) / + 39.48,-125.50, 36.47,-125.64, 33.37,-102.05, 32.77,-102.07, + 33.37,-102.01, 32.76,-102.04, 34.89,-100.23, 32.53,-101.45, + 35.80, -95.98, 33.75, -95.69, 35.91, -91.95, 33.90, -91.90, + 37.00, -88.90, 32.71, -88.77, 36.09, -87.77, 34.12, -87.61, + 38.37, -83.89, 36.72, -83.58, 38.84, -82.31, 37.04, -82.08, + 39.82, -81.29, 38.02, -80.97, 40.77, -75.75, 38.64, -75.29, + 42.43, -64.58, 37.38, -63.68, 42.80, -61.72, 37.48, -61.76, + 43.18, -58.52, 37.61, -58.25, 43.81, -56.52, 36.98, -55.19, + 42.15, -41.18, 36.43, -41.72 +/ DATA (TAGMAG(K, 5),K=1, 16)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V' +/ DATA (AGEMAG(K, 5),K=1, 16) / + 27.50, 27.50, 35.70, 42.00, 49.30, 49.30, 59.00, 63.40, + 67.00, 77.00,119.00,126.00,134.00,142.00,180.00,215.00 +/ DATA (((REMAG(K,L,M, 5),K=1,2),L=1,2),M=1, 16) / + 37.61,-102.97, 36.01,-103.23, 34.89,-100.23, 32.53,-101.45, + 35.80, -95.98, 33.75, -95.69, 35.91, -91.95, 33.90, -91.90, + 37.00, -88.90, 32.71, -88.77, 36.09, -87.77, 34.12, -87.61, + 38.37, -83.89, 36.72, -83.58, 38.84, -82.31, 37.04, -82.08, + 39.82, -81.29, 38.02, -80.97, 40.77, -75.75, 38.64, -75.29, + 42.43, -64.58, 37.38, -63.68, 42.80, -61.72, 37.48, -61.76, + 43.18, -58.52, 37.61, -58.25, 43.81, -56.52, 36.98, -55.19, + 42.15, -41.18, 36.43, -41.72, 39.57, -21.55, 34.89, -25.78 +/ DATA (TAGMAG(K, 6),K=1, 8)/ +'V','V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 6),K=1, 8) / + 20.00, 27.50, 32.00, 35.70, 42.00, 49.30, 55.00, 71.00 +/ DATA (((REMAG(K,L,M, 6),K=1,2),L=1,2),M=1, 8) / + 38.74,-107.22, 37.20,-107.17, 37.61,-102.97, 36.01,-103.23, + 38.12,-100.16, 35.41,-100.24, 37.64, -97.96, 35.97, -98.10, + 37.75, -94.67, 35.97, -94.69, 37.72, -90.93, 36.00, -90.81, + 38.64, -88.39, 35.91, -87.72, 40.21, -81.16, 39.83, -81.31 +/ DATA (TAGMAG(K, 7),K=1, 12)/ +'V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 7),K=1, 12) / + 62.00, 79.00, 95.00,110.00,119.00,126.00,134.00,142.00, +150.00,180.00,200.00,225.00 +/ DATA (((REMAG(K,L,M, 7),K=1,2),L=1,2),M=1, 12) / + 39.44, -88.34, 38.22, -88.67, 40.68, -82.76, 39.71, -82.44, + 41.87, -76.97, 40.64, -76.68, 42.45, -71.61, 41.21, -71.43, + 42.89, -66.57, 42.23, -66.39, 43.73, -63.26, 42.95, -63.29, + 44.17, -60.23, 43.21, -60.02, 44.81, -58.21, 43.63, -57.96, + 45.78, -55.81, 43.77, -55.76, 45.91, -43.51, 43.91, -43.72, + 46.09, -37.00, 43.63, -37.73, 41.88, -19.07, 39.99, -21.35 +/ DATA (TAGMAG(K, 8),K=1, 13)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 8),K=1, 13) / + 0.10, 4.50, 9.50, 20.00, 27.50, 35.70, 42.00, 49.30, + 59.00, 63.40, 67.00, 77.00,140.00 +/ DATA (((REMAG(K,L,M, 8),K=1,2),L=1,2),M=1, 13) / + 42.80,-126.60, 40.17,-127.40, 42.45,-125.24, 40.18,-126.21, + 42.51,-123.83, 38.69,-124.00, 41.42,-118.95, 38.25,-119.07, + 41.80,-115.62, 38.70,-116.11, 41.73,-112.10, 38.61,-112.52, + 41.22,-108.00, 38.01,-108.00, 40.63,-103.87, 36.89,-103.78, + 40.11, -97.66, 36.61, -96.10, 40.78, -95.88, 37.24, -94.53, + 41.28, -95.05, 37.77, -93.70, 42.76, -89.98, 39.26, -88.59, + 43.41, -68.81, 43.05, -69.05 +/ DATA (TAGMAG(K, 9),K=1, 17)/ +'V','V','V','V','V','V','V','V','V','V','V','V','V','V','V', +'V','V' +/ DATA (AGEMAG(K, 9),K=1, 17) / + 9.50, 27.50, 35.70, 42.00, 49.30, 59.00, 63.40, 67.00, + 77.00,126.00,134.00,142.00,158.00,180.00,200.00,230.00, +240.00 +/ DATA (((REMAG(K,L,M, 9),K=1,2),L=1,2),M=1, 17) / + 42.51,-123.83, 38.69,-124.00, 45.28,-113.55, 41.70,-114.19, + 45.66,-109.22, 41.61,-109.93, 45.23,-105.57, 41.19,-105.83, + 44.74,-102.25, 40.68,-101.27, 48.49, -98.41, 41.04, -94.18, + 49.16, -96.77, 41.62, -92.72, 48.67, -95.63, 41.97, -92.33, + 48.34, -89.32, 43.41, -87.14, 51.47, -70.15, 46.67, -68.59, + 52.83, -66.31, 43.84, -63.15, 53.00, -64.55, 44.39, -60.75, + 54.93, -57.93, 45.45, -55.29, 63.49, -47.57, 46.98, -46.80, + 65.69, -34.67, 45.99, -39.55, 68.71, 10.51, 41.73, -25.13, + 57.25, 0.37, 42.36, -19.36 +/ DATA (TAGMAG(K, 10),K=1, 9)/ +'V','V','V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 10),K=1, 9) / + 0.10, 4.50, 9.50, 20.00, 27.50, 35.70, 42.00, 49.30, + 60.00 +/ DATA (((REMAG(K,L,M, 10),K=1,2),L=1,2),M=1, 9) / + 48.86,-129.11, 44.10,-131.38, 47.85,-128.22, 44.65,-129.45, + 47.92,-125.54, 44.65,-125.76, 49.83,-120.18, 47.58,-120.37, + 49.83,-114.87, 45.98,-115.58, 49.89,-111.38, 45.89,-112.04, + 49.48,-107.86, 45.30,-108.35, 48.95,-104.30, 44.77,-103.58, + 48.60, -99.23, 47.85, -99.31 +/ DATA (TAGMAG(K, 11),K=1, 8)/ +'V','V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 11),K=1, 8) / + 0.10, 9.50, 20.00, 27.50, 35.70, 42.00, 49.30, 60.00 +/ DATA (((REMAG(K,L,M, 11),K=1,2),L=1,2),M=1, 8) / + 49.95,-129.96, 49.31,-130.63, 51.53,-125.42, 48.75,-125.65, + 53.85,-120.86, 50.28,-120.71, 53.84,-116.82, 50.00,-116.45, + 53.79,-112.59, 50.21,-113.72, 53.31,-108.95, 49.63,-109.89, + 52.91,-105.16, 49.01,-105.38, 48.91, -99.38, 48.31, -99.45 +/ DATA (TAGMAG(K, 12),K=1, 5)/ +'V','V','V','V','V' +/ DATA (AGEMAG(K, 12),K=1, 5) / + 14.00, 27.50, 35.70, 42.00, 42.00 +/ DATA (((REMAG(K,L,M, 12),K=1,2),L=1,2),M=1, 5) / + 54.22,-120.58, 53.91,-120.48, 55.81,-113.13, 53.94,-113.12, + 55.83,-108.54, 53.46,-109.23, 53.84,-107.23, 53.24,-107.45, + 53.34,-105.45, 52.87,-105.44 +/ DATA (TAGMAG(K, 13),K=1, 7)/ +'V','V','V','V','V','V','V' +/ DATA (AGEMAG(K, 13),K=1, 7) / + 42.00, 43.80, 49.30, 59.00, 67.00, 77.00, 85.00 +/ DATA (((REMAG(K,L,M, 13),K=1,2),L=1,2),M=1, 7) / + 56.52,-108.44, 54.25,-108.27, 61.48, -99.41, 54.64,-108.33, + 63.10, -92.77, 53.20,-105.10, 65.51, -77.34, 48.75, -98.53, + 70.04, -57.53, 48.58, -95.06, 71.04, -26.15, 48.63, -89.31, + 70.21, -6.99, 69.46, -12.71 +/ DATA (TAGMAG(K, 14),K=1, 2)/ +'V','V' +/ DATA (AGEMAG(K, 14),K=1, 2) / + -0.10, -0.10 +/ DATA (((REMAG(K,L,M, 14),K=1,2),L=1,2),M=1, 2) / + 57.02,-140.64, 55.42,-139.28, 72.18, -16.71, 71.47, -21.32 +/ DATA (TAGMAG(K, 15),K=1, 6)/ +'K','K','K','K','K','K' +/ DATA (AGEMAG(K, 15),K=1, 6) / + 42.00, 49.30, 59.00, 67.00, 77.00, 85.00 +/ DATA (((REMAG(K,L,M, 15),K=1,2),L=1,2),M=1, 6) / + 63.38,-145.67, 64.08,-143.46, 66.37,-147.24, 69.08,-141.77, + 70.85,-152.26, 76.54,-131.98, 74.46,-151.71, 80.44, -97.60, + 80.47,-148.87, 78.59, -34.84, 74.94, -20.15, 72.70, -21.28 +/ DATA (TAGMAG(K, 16),K=1, 7)/ +'K','K','K','K','K','K','K' +/ DATA (AGEMAG(K, 16),K=1, 7) / +142.00,142.00,158.00,180.00,200.00,230.00,240.00 +/ DATA (((REMAG(K,L,M, 16),K=1,2),L=1,2),M=1, 7) / + 84.28,-153.66, 83.57,-145.73, 84.28,-153.66, 83.57,-145.73, + 87.37,-138.07, 84.91,-130.52, 83.59, -0.71, 83.56, -59.44, + 76.84, 7.82, 79.05, -32.45, 61.44, 5.79, 64.48, -9.60, + 56.17, 3.42, 57.15, -0.30 +/ END