CTITLEFILTGS -- DUMMY ROUTINE ON IBM                                    00000100
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                      L. B. LIN                             00000200
CA    DESIGNER                    L. B. LIN                             00000300
CA    LANGUAGE                    FORTRAN                               00000400
CA    SYSTEM                      IBM (SEE CRAY)                        00000500
CA    WRITTEN                     10/21/85                              00000600
CA    REVISED                                                           00000700
CA                                                                      00000800
CA                                                                      00000900
CA    CALL FILTGS (A, B, C, D, E, F, G, H)                              00001000
CA                                                                      00001100
CA    FILTGS IS A CRAY ASSEMBLY ROUTINE.  IT IS ADDED TO THE            00001200
CA    IBM LIBRARY AS A DUMMY SUBROUTINE SOLELY TO AVOID BEING           00001300
CA    RECOGNIZED AS AN UNRESOLVED EXTERNAL.                             00001400
C                                                                       00004400
C                                                                       00004500
C                                                                       00004600
      SUBROUTINE FILTGS (A, B, C, D, E, F, G, H)                        00004700
      WRITE (6, 100)                                                    00004900
  100 FORMAT(//,1X,'*** "FILTGS" SHOULD NEVER BE CALLED ON IBM ROUTE')  00005000
      CALL XDUMPX                                                       00005010
      RETURN                                                            00005100
      END                                                               00005200