PROGRAM 8


      PROGRAM SURVEY
C.....THIS PROGRAM CALCULTES THE LATITUDE AND DEPARTURES OF A 25 SIDED
C.....POLYGON.
C.....F012     ANTHONY F. ORTIZ     **P62**
C.....DECLARE ARRAYS FOR LENGTH, AZIMUTH, LATITUDE, AND DEPARTURE.
C.....DECLARE VARIABLES FOR THE ID, THE DO LOOP VARIABLE, AND THE THREE TOTALS.
      DIMENSION R (150), ANGLE (150), RAD (150), X (150), Y (150)
      REAL T1, T2, T3
      INTEGER COUNT, ID
C.....OPEN THE TWO DATA FILES 'F012P62A.DAT' AND 'F012P62B.DAT' AND THE SINGLE
C.....OUT FILE 'F012P62.OUT'.
      OPEN (1, FILE = 'F012P62A.DAT')
      OPEN (2, FILE = 'F012P62B.DAT')
      OPEN (3, FILE = 'F012P62.OUT')
C.....PUT THE HEADER, TITLE, AND COLUMN HEADINGS IN THE OUT FILE.
      WRITE (3, *) '             F012     ANTHONY F. ORTIZ',
     $'     **P62**'
      WRITE (3, *)
      WRITE (3, *) '          ID        LENGTH        AZIMUTH       ',
     $'LATITUDE      DEPARTURE'
      WRITE (3, *)
C.....INITIALIZE ALL THE TOTALS.
      T1 = 0.0
      T2 = 0.0
      T3 = 0.0
C.....GET THE LENGTH AND AZIMUTH FROM THE DATA FILES AND STORE THEM IN A ARRAY.
      DO 10 COUNT = 1, 25, 1
          READ (1, *) ID, R (ID)
          READ (2, *) ID, ANGLE (ID)
   10 CONTINUE
C.....CALCULATE THE LATITUDE AND DEPARTURE AND STORE THEM IN A ARRAY.
C.....ALSO, CALCULATE THE THREE TOTALS.
      DO 20 ID = 126, 150, 1
          RAD (ID) = ANGLE (ID) * 3.141593 / 180.0
          X (ID) = R (ID) * COS (RAD (ID))
          Y (ID) = R (ID) * SIN (RAD (ID))
          T1 = T1 + R (ID)
          T2 = T2 + X (ID)
          T3 = T3 + Y (ID)
   20 CONTINUE
C.....PUT THE RESULTS OF THE FOUR ARRAYS IN THE OUT FILE.
      DO 30 ID = 126, 150, 1
          WRITE (3, 100) ID, R (ID), ANGLE (ID), X (ID), Y (ID)
  100     FORMAT (I14, 4F14.4)
   30 CONTINUE
C.....PUT THE THREE TOTALS AT THE END OF THE OUT FILE.
      WRITE (3, *)
      WRITE (3, 200) T1, T2, T3
  200 FORMAT (1X, '          TOTALS ', F10.4, F28.4, F14.4)
C.....QUIT THE PROGRAM.
      STOP
      END

C.....DATA FILE:  F012P62A.DAT

 130 22.36
 140 10.00
 150 17.50
 145 20.62
 135 61.85
 127  7.07
 137 20.16
 147  9.01
 142 15.81
 132 18.20
 129 10.61
 139 25.50
 149 15.00
 143 17.68
 133 14.14
 131  7.50
 141 15.21
 144 30.10
 134 10.00
 126 37.50
 136 11.18
 146 26.10
 148 12.50
 138  7.50
 128 13.46

C.....DATAFILE:  F012P62B.DAT

 141 189.46
 131 270.00
 128  21.80
 138 270.00
 148 270.00
 143 188.13
 133  45.00
 135 104.04
 145 165.96
 146 286.70
 136 243.44
 126   0.00
 132 344.06
 142 161.57
 149 180.00
 139 191.31
 129 315.00
 134  90.00
 144 311.64
 147 326.31
 137 150.26
 127  45.00
 130  26.57
 140  90.00
 150 270.00

C.....OUTFILE:  F012P62.OUT              

              F012     ANTHONY F. ORTIZ     **P62**

           ID        LENGTH        AZIMUTH       LATITUDE      DEPARTURE

           126       37.5000         .0000       37.5000         .0000
           127        7.0700       45.0000        4.9992        4.9992
           128       13.4600       21.8000       12.4974        4.9986
           129       10.6100      315.0000        7.5024       -7.5024
           130       22.3600       26.5700       19.9985       10.0014
           131        7.5000      270.0000         .0000       -7.5000
           132       18.2000      344.0600       17.5002       -4.9983
           133       14.1400       45.0000        9.9985        9.9985
           134       10.0000       90.0000         .0000       10.0000
           135       61.8500      104.0400      -15.0048       60.0023
           136       11.1800      243.4400       -4.9990      -10.0001
           137       20.1600      150.2600      -17.5046       10.0007
           138        7.5000      270.0000         .0000       -7.5000
           139       25.5000      191.3100      -25.0048       -5.0010
           140       10.0000       90.0000         .0000       10.0000
           141       15.2100      189.4600      -15.0032       -2.4999
           142       15.8100      161.5700      -14.9991        4.9983
           143       17.6800      188.1300      -17.5023       -2.5003
           144       30.1000      311.6400       19.9999      -22.4947
           145       20.6200      165.9600      -20.0040        5.0024
           146       26.1000      286.7000        7.5001      -24.9992
           147        9.0100      326.3100        7.4968       -4.9978
           148       12.5000      270.0000         .0000      -12.5000
           149       15.0000      180.0000      -15.0000         .0000
           150       17.5000      270.0000         .0000      -17.5000

           TOTALS   456.5600                      -.0286         .0077




BACK TO COMP150 PAGE.