<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5477466231   5723                                                                                                                                                                                                                                                                                                                                                                      examples/average1.f                                                                                    644    1107     770          455  5477466230   7635                                                                                                                                                                                                                                                                                                                                                                      C Reads two numbers and then displays their average.

C Created:  Joe Zachary, September 17, 1992
C Modified:

      PROGRAM AVERGE

      PRINT *, 'Please enter two numbers separated by a comma: '
      READ *, X, Y
      AVE = (X + Y) / 2
      PRINT *, 'The average is ', AVE
      STOP

      END
                                                                                                                                                                                                                   examples/average2.f                                                                                    644    1107     770          451  5477466231   7633                                                                                                                                                                                                                                                                                                                                                                      C Reads two numbers and then displays their average.

C Created:  Joe Zachary, September 17, 1992
C Modified:

      PROGRAM AVERGE

      PRINT *, 'Please enter two numbers separated by a comma: '
      READ *, I, J
      K = (I + J) / 2
      PRINT *, 'The average is ', K
      STOP

      END
END
                                                                                                                                                                                                                   examples/average3.f                                                                                    644    1107     770          472  5477466231   7637                                                                                                                                                                                                                                                                                                                                                                      C Reads two numbers and then displays their average.

C Created:  Joe Zachary, September 17, 1992
C Modified:

      PROGRAM AVERGE

      REAL I, J

      PRINT *, 'Please enter two numbers separated by a comma: '
      READ *, I, J
      K = (I + J) / 2
      PRINT *, 'The average is ', K
      STOP

      END
                                                                                                                                                                                                      examples/cake.f                                                                                        644    1107     770         1242  5477466231   7061                                                                                                                                                                                                                                                                                                                                                                      C Scales Mr. Smith's Danish Apple Cake recipe

C Created:
C Modified:

      PROGRAM CAKE

C <<Put "IMPLICIT NONE" and the variable declarations here>>

C Read the number of guests and compute the scale factor by which the
C standard recipe amounts should be multiplied

      PRINT *, 'Please enter the number of guests:'
      READ *, GUESTS
      SCALE = GUESTS / 4.0

C Compute the amount of apples, butter, sugar, breadcrumbs, and cream
C required for the number of guests that are coming.

C <<You need to write this part>>

C Write out the ingredients

      PRINT *, 'The following ingredients are required:'

C <<You need to write this part>>

      STOP
      END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              