CTITLEP32 -- PACK 32 BIT                                                00010002
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020002
CA    DESIGNER      STU NELAN                                           00030002
CA    LANGUAGE      FORTRAN                                             00040002
CA    SYSTEM        IBM (SEE CRAY LIBRARIES)                            00050002
CA    WRITTEN                                                           00060002
CA                                                                      00070002
CA    CALL P32 (IN, OUT, NUM)                                           00080002
CA                                                                      00090002
CA                                                                      00100002
CAEND                                                                   00110002
      SUBROUTINE P32 (IN, OUT, NUM)                                     00120000
      INTEGER IN(*)                                                     00130000
      INTEGER OUT(*)                                                    00140000
      CALL XDUMPX                                                       00150001
      CALL ARMVE (IN, OUT, NUM)                                         00160000
      RETURN                                                            00170000
      END                                                               00180000