CTITLECFTFAX  -- DUMMY ROUTINE FOR THE IBM                              00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR      STU NELAN                                             00020000
CA    DESIGNER    STU NELAN                                             00030000
CA    LANGUAGE    FORTRAN                                               00040000
CA    SYSTEM      IBM (SEE CRAY BENCHLIB)                               00050000
CA    WRITTEN     08/25/88                                              00060000
C     REVISED     MM-DD-YY  III  ...                                    00070001
CA                                                                      00080000
CA    THIS SUBROUTINE IS A DUMMY FOR THE IBM.                           00090000
CA                                                                      00100000
CA      CALL CFTFAX (N, IFAX, TRIGS)                                    00110000
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 CFTFAX (N, IFAX, TRIGS)                                00170000
C                                                                       00180000
      RETURN                                                            00190000
C                                                                       00200000
      END                                                               00210000