<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5477466233   5725                                                                                                                                                                                                                                                                                                                                                                      examples/rdemo2.f                                                                                      644    1107     770          646  5477466233   7337                                                                                                                                                                                                                                                                                                                                                                            PROGRAM RDEMO2
C
C This program reads an integer, prints it out as an INTEGER, converts it into
C a real number, and prints it out as a REAL
C
      IMPLICIT NONE
      REAL X
      INTEGER I

      PRINT *,'Please enter an integer: '
      READ *, X
      PRINT *,'The number you entered (as a REAL) was: ', X
      
      I = X
      PRINT *,'The number you entered (as an INTEGER) was: ', I

      STOP
      END
                                                                                          examples/radius.f                                                                                      644    1107     770          666  5477466233   7440                                                                                                                                                                                                                                                                                                                                                                            PROGRAM RADIUS
C
C This program inputs a radius, and then prints the area of a circle with
C that radius and the volume of a sphere with that radius.
C
      IMPLICIT NONE
      REAL R

      PRINT *, 'Please enter a radius: '
      READ *, R
      PRINT *, 'The area of circle with that radius is ', 3.14*R*R
      PRINT *, 'The volume of a sphere with that radius is ',
     +         3.14*R*R*R*4./3.
      
      STOP
      END
                                                                          examples/radius2.f                                                                                     644    1107     770          721  5477466233   7512                                                                                                                                                                                                                                                                                                                                                                            PROGRAM RADIUS2
C
C This program inputs a radius, and then prints the area of a circle with
C that radius and the volume of a sphere with that radius.
C
      IMPLICIT NONE
      REAL R, PI
      PARAMETER (PI=3.14)

      PRINT *, 'Please enter a radius: '
      READ *, R
      PRINT *, 'The area of circle with that radius is ', PI*R*R
      PRINT *, 'The volume of a sphere with that radius is ',
     +         PI*R*R*R*4./3.
      
      STOP
      END
                                               examples/rdemo.f                                                                                       644    1107     770          645  5477466233   7254                                                                                                                                                                                                                                                                                                                                                                            PROGRAM RDEMO
C
C This program reads an integer, prints it out as an INTEGER, converts it into
C a real number, and prints it out as a REAL
C
      IMPLICIT NONE
      REAL X
      INTEGER I

      PRINT *,'Please enter an integer: '
      READ *, I
      PRINT *,'The number you entered (as an INTEGER) was: ', I
      
      X = I
      PRINT *,'The number you entered (as a REAL) was: ', X

      STOP
      END
 PI*R*R*R*4./3.
      
      STOP
      END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               