C*RFILTIM.FOR*************************************************************
C     ROTATIONAL FILTERING
C     FILTERING OF IMAGES IN RECIPROCAL SPACE
C     DIMENSIONED FOR TRANSFORMS OF 256X256 IMAGES (MAX SIZE)
C       Modified for VAX   RAC      27MAR84
C       Redimensioned  ARRAY-->  =250000  - total input pixels   RH   18-Dec-93
C       Redimensioned  RHO  --> (251,251) - output array size    RH   18-Dec-93
C       Redimensioned  NLRP1-->  =126     - see NLR below        RH   18-Dec-93
C       Redimensioned  NLR  -->   NLRP1-1 - No. realspace radii  RH   18-Dec-93
C       Redimensioned  BESMX-->  =4001    - Max No. Bessels      RH   18-Dec-93
C       Redimensioned  MAXNR =   =40      - Max transform radius RH   18-Dec-93
C       Output power spectrum format changed to I5,F20.8)        RH   07-Jan-00
C       V2.0 04-Apr-00 irtorg mod to include zorigin             JMS  29MAr00