CTITLEFGAPRT - PRINT A LIST OF CDPS PROCESSED, AND THEIR FOLDS.         00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C                                                                       00020000
CA    AUTHOR                 H. W. SWAN                                 00030000
CA    DESIGNER               H. W. SWAN                                 00040000
CA    SYSTEM                 IBM/CRAY                                   00050000
CA    LANGUAGE               VS FORTRAN VERSION 2.2                     00060000
CA    WRITTEN                12-03-87                                   00070000
C     REVISED     5-23-91    JJC - CHANGED IMPLICIT NONE TO (A-Z).      00080002
C     REVISED    12-17-91    JJC - MODIFIED TO MEET SPARC STANDARDS.    00090003
CA                                                                      00100000
CA    CALLING SEQUENCE:                                                 00110000
CA         CALL FGAPRT(UNIT, CDP, FOLD, NPR)                            00120000
CA                                                                      00130000
CA  IN/OUT  ARGUMENT  TYPE  DESCRIPTION                                 00140000
CA  ------  --------  ----  -----------                                 00150000
CA                                                                      00160000
CA    IN     UNIT     I4    THE FORTRAN UNIT NUMBER ON WHICH TO PRINT   00170000
CA    IN     CDP     (I4)   AN ARRAY OF 'NPR' CDPS WHICH WERE PROCESSED 00180000
CA    IN     FOLD    (I4)   AN ARRAY OF THEIR CORRESPONDING FOLDS       00190000
CA    IN     NPR      I4    THE LENGTH OF THE 'CDP' AND 'FOLD' ARRAYS   00200000
CA                                                                      00210000
CA  PURPOSE:                                                            00220000
CA    THIS SUBROUTINE PRINTS A LIST OF CDPS PROCESSED, PLUS THEIR FOLD. 00230000
CA                                                                      00240000
CA                                                                      00250000
      SUBROUTINE FGAPRT(UNIT, CDP, FOLD, NPR)                           00260000
C                                                                       00270001
CJJ   IMPLICIT NONE                                                     00280001
      IMPLICIT INTEGER (A-Z)                                            00290001
C                                                                       00300001
      INTEGER UNIT, CDP, FOLD, NPR, I                                   00310000
      DIMENSION CDP(NPR), FOLD(NPR)                                     00320000
                                                                        00330000
      IF( NPR .GT. 0)                                                   00340000
     *   WRITE (UNIT, 1000) (CDP(I), FOLD(I), I=1,NPR)                  00350000
 1000 FORMAT(T5, 10(I4,'(',I4,')',1X))                                  00360000
      RETURN                                                            00370000
      END                                                               00380000