CALL SEQUENCE...
       fpow  XIN XOUT INPUT OUTPUT [ -a VAL0 ]
 
 
      AUTHORS -R.Laprise AND J.D.Henderson, MAY 14 1983.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/fpow.ptn,v 4.10 2014/09/25 20:20:47 dugas Exp $
 
 
      DESCRIPTION...
       A CCC FILE ARITHMETIC PROGRAM WHICH...
 
       ... PRODUCES FILE XOUT = XIN**POWER
           WHERE FILE XIN MUST CONTAIN REAL DATA OR
           POWER MUST BE ZERO OR ONE.
 
       NOTE: 0**0 IS SET TO 1 RATHER THAN BE INDETERMINATE.
 
 
      INPUT PARAMETER...
 
       POWER (a) = EXPONENT BY WHICH TO RAISE DATA VALUES (DEF=0.0)
 
       READ( 5,5010 ) POWER
 5010 FORMAT(10X,E10.0)
 
 
      EXAMPLE OF INPUT CARD...
 
  FPOW           2.5
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 MORE THAN ONE SIZE IN XIN
        2 FOUND COMPLEX DATA AND POWER IN NOT A POSITIVE INTEGER
        3 FOUND NEAGATIVE DATA FOR UNEVEN OR FRACTIONAL EXPONENT
        4 ERROR ABORT READING INPUT
        5 ERROR ABORT READING XIN OR TOO MANY LEVELS