SUBROUTINE FOREXP (BASE, EXPONENT, RESULT) C C Raises a given base to a specified exponent power. C C Designed for use with the C-Language system. C IMPLICIT REAL*4 (A-Z) C RESULT = BASE ** EXPONENT RETURN END