function puff, ar_ray, tt ;+ ; ; function: puff ; ; purpose: Return 2D byte float or long array with dimensions ; changed by an integer factor (replacement for ; buggy userlib routine 'congrid'). ; ; author: paul@ncar, 5/93 (minor mod's by rob@ncar) ; ;============================================================================== ; ; Check number of parameters. ; if n_params() ne 2 then begin print print, "usage: ret = puff( array, tt )" print print, " Return 2D byte float or long array with dimensions" print, " changed by an integer factor." print print, " Arguments" print, " array - 2D byte float or long array," print, " Any scalar is ok" print, " tt - (tt>2) for increased dimensions" print, " (0