CTITLE PTST1R -- DUMMY EQUIVALENT FOR IBM                               00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        CALVIN JOYNER                                       00020000
CA    DESIGNER      CALVIN JOYNER                                       00030000
CA    LANGUAGE      VS FORTRAN                                          00040000
CA    SYSTEM        IBM ONLY                                            00050000
CA    WRITTEN       08-07-90                                            00060000
C     REVISED       00-00-00 XXX  XXXXX..                               00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL PTST1R(DUM1,DUM2,DUM3,DUM4)                                  00100000
CA                                                                      00110000
CA                                                                      00120000
CA    ONLY DUMMY PARAMETERS ARE NECEASSARY.                             00130000
CA                                                                      00140000
CA    THIS SUBROUTINE PROVIDES A MEANS OF OBTAINING A CLEAN LINK FOR    00150000
CA    THE FULLY RESOLVED PREP LOAD MODULE.  IF IT IS CALLED THE PROCESS 00160000
CA    WILL ABORT.                                                       00170000
CA                                                                      00180000
CAEND                                                                   00210000
          SUBROUTINE PTST1R(DUM1,DUM2,DUM3,DUM4)                        01390012
          CALL XDUMPX
          RETURN
          END