CTITLESAPK01 - SUBROUTINE USED BY SDPICK                                00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA                                                                      00020000
CA   DESIGNER             P. C. LUH                                     00030000
CA   AUTHOR               P. C. LUH                                     00040000
CA   LANGUAGE             FORTRAN                                       00050000
CA   SYSTEM               IBM  ONLY                                     00060000
CA   DATE                 MM/DD/YY                                      00070000
C    REVISED              03/06/86  LBL  OLD NAME = BUGPRT.             00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE BUGPRT(KBUGF,KPBUGF,NBUGS,ISHOT,IBUGS,IPRINT)          00110000
      SUBROUTINE SAPK01(KBUGF,KPBUGF,NBUGS,ISHOT,IBUGS,IPRINT)          00120000
C                                                                       00121000
      DIMENSION IBUGS(1)                                                00130000
C                                                                       00140000
      IF(NBUGS.LE.0) GO TO                                          20  00150000
C                                                                       00151000
      DO 10 J=1,NBUGS                                                   00160000
      IF(IBUGS(J).NE.ISHOT) GO TO                                   10  00170000
      KBUGF=KPBUGF                                                      00180000
      IPRINT=1                                                          00190000
      GO TO                                                         20  00200000
   10 CONTINUE                                                          00210000
C                                                                       00211000
   20 RETURN                                                            00220000
C                                                                       00221000
      END                                                               00230000