      SUBROUTINE AVERAGE(AP)
      DOUBLE PRECISION AP

      AP=350/5 
      WRITE(*,15) AP
 15   FORMAT (1X,'AP = ',F13.8)
      RETURN
      END
