      SUBROUTINE AVERAGE(AP)
      DOUBLE PRECISION AP

      AP=350.0/5.0
      PRINT *, 'AP = ', AP
C      WRITE(*,15) AP
C 15   FORMAT (1X,'AP = ',F13.8)
      RETURN
      END
