PROGRAM pb1_1
      INCLUDE 'glob.f'
      REAL my_height_feet
      REAL my_height_meters
      FEET_PER_METER = 3.28
      METER_PER_FOOT = (1.0 / FEET_PER_METER)
C I/O in Fortran95 easier than when I learned Fortran in about 1970
C Much else is, no doubt, easier also!!!
      READ *, my_height_feet
      my_height_meters = cvt_feet_to_meters(my_height_feet)
      WRITE (*, *) 'FORTRAN output'
      WRITE (*, *) 'my_height_feet = ', my_height_feet 
      WRITE (*, *) 'my_height_meters = ', my_height_meters
      STOP
      END

      REAL FUNCTION cvt_feet_to_meters(feet)
      REAL feet
      INCLUDE 'glob.f'
      cvt_feet_to_meters = feet * METER_PER_FOOT
      RETURN 
      END