CTITLEFFTFAX  -- DUMMY ROUTINE FOR THE IBM                              00010003
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR      JJ CHEN                                               00020003
CA    DESIGNER    JJ CHEN                                               00030003
CA    LANGUAGE    FORTRAN                                               00040000
CA    SYSTEM      IBM (SEE CRAY BENCHLIB)                               00050000
CA    WRITTEN     02/10/89                                              00060003
C     REVISED     MM-DD-YY  III  ...                                    00070001
CA                                                                      00080000
CA    THIS SUBROUTINE IS A DUMMY FOR THE IBM.                           00090000
CA                                                                      00100000
CA      CALL FFTFAX (N, IFAX, TRIGS)                                    00110003
CA                                                                      00120000
CA        INPUT  N      = LENGTH OF TRANSFORMS TO BE DONE           I4  00130002
CA        OUTPUT IFAX   = ARRAY OF FACTORS (DIMENSION 13)           I4  00140002
CA        OUTPUT TRIGS  = ARRAY OF TRIG TABLE (DIMENSION 2*N)       R4  00150002
CA                                                                      00160000
      SUBROUTINE FFTFAX (N, IFAX, TRIGS)                                00170003
C                                                                       00180000
      RETURN                                                            00190000
C                                                                       00200000
      END                                                               00210000