Function xpwr,x,pwr=pwr ;+ INTEGRAND ROUTINE for simple power law ; ; Intended for use in conjunction with ASTUSELIB ; version of the QSIMP integration routine. ; That routine provides for keyword "inheritance" ; so that additional keywords used in call of QSIMP ; are passed through to the integrand function to ; provide a larger range of integrand options. ; ; KEYWORD PWR: the power law index; default = 1 ; ; INPUT: x can be a scalar or vector ; ; OUTPUT: x^pwr ; ; History: 9/21/03: created RWO ;---------------------------------------------- if (n_elements(pwr) ne 1) then pwr = 1.0 x=float(x) ;; Ensures floating point output return,x^pwr end