PROGRAM 2


      PROGRAM ANGLE
C.....THIS PROGRAM CONVERTS A RADIAN VALUE TO DEGREES, MINUTES, AND SECONDS.
C.....F012     ANTHONY ORTIZ     **P17**
C.....DECLARE THE VARIABLES.
      INTEGER NDEG, NMIN
      REAL RAD, DEG, MIN, SEC, PI
C.....OPEN FILES F012P17.DAT AND F012P17.OUT.
      OPEN (3, FILE = 'F012P17.DAT')
      OPEN (4, FILE = 'F012P17.OUT')
C.....GET DATA VALUE FROM F012P17.DAT.
      READ (3, *) RAD
C.....CALCULATE THE VALUES OF THE VARIABLES DEG, NDEG, MIN, NMIN, AND SEC.
      PI = 3.141593
      DEG = RAD * 180 / PI
      NDEG = DEG
      MIN = (DEG - NDEG) * 60
      NMIN = MIN
      SEC = (MIN - NMIN) * 60
C.....PUT THE ID HEADER AND THE DATA VALUES IN F012P17.OUT.
      WRITE (4, *) 'F012           ANTHONY ORTIZ           **P17**'
      WRITE (4, *)
      WRITE (4, 100) RAD
      WRITE (4, *)
      WRITE (4, 200) NDEG, NMIN, SEC
  100 FORMAT (1X, 'THIS ANGLE IS EQUAL TO ', F10.5, ' RADIANS.')
  200 FORMAT (1X, 'THIS ANGLE IS EQUAL TO ', I6, ' DEGREES, ',
     $I2, ' MINUTES, ', F5.2, ' SECONDS.')
      STOP
      END

C.....DATA FILE:  F012P17.DAT

C.....OUTFILE:  F012P17.OUT

   F012     ANTHONY ORTIZ     **P17**

 THIS ANGLE IS EQUAL TO    4.29757 RADIANS.

 THIS ANGLE IS EQUAL TO    246 DEGREES, 13 MINUTES, 57.38 SECONDS.




BACK TO COMP150 PAGE.