PROGRAM PWRTEST
      REAL*8 TWO
      WRITE(6,100)
  100 FORMAT(' CALLING POWER')
      TWO=2.0
      EP=POWER(TWO,7)
      WRITE(6,200)EP
  200 FORMAT(' 2.0^7= ',F9.4)
      STOP
      END