REAL FUNCTION POWER(X,Y)
      INTEGER Y
      REAL*8 Z, X
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN POWER')
      Z=1
  30  IF(Y.EQ.0)GO TO 10
      IF((Y-(Y/2)*2).GT.0)GO TO 20
      Y=Y/2
      X=X**2
  20  Y=Y-1
      Z=X*Z
      GOTO 30
  10  POWER=Z
      RETURN
      END