CTITLECCWMOD -- SET ADDRESSING DATA IN A VPSS CCW                       00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR/DESIGNER      BOB KELLY                                    00020001
CA    LANGUAGE             VS/FORTRAN                                   00030001
CA    SYSTEM               IBM (SEE CRAY)                               00040001
CA    WRITTEN               8-07-85                                     00050001
C     REVISED  MM-DD-YY XXX.  .....                                     00060001
C                                                                       00070001
CA                                                                      00080001
CA    CALL CCWMOD (SOURCE,CCW)                                          00090001
CA                                                                      00100001
CA    INPUT  SOURCE  THE DATA ADDRESS TO BE PUT IN THE CCW              00110001
CA           CCW     THE VPSS CCW IN QUESTION                           00120001
CA                                                                      00130001
CA    THIS SUBROUTINE MOVES A DATA ADDRESS INTO AN ALREADY EXISTING     00140001
CA    VPSS CCW. IT DIFFERENTIATES BETWEEN THE OLD STYLE CCW AND THE NEW 00150001
CA    31 BIT PSEUDO CCW BY LOOKING AT THE CALLER'S ADDRESSING MODE.     00160001
CA                                                                      00170001
CA    IF THE CALLER IS IN AMODE 24, THE OLD STYLE CCW WILL BE CHECKED.  00180001
CA    IF THE CALLER IS IN AMODE 31, THE NEW PSEUDO CCW WILL BE CHECKED. 00190001
CA                                                                      00200001
      SUBROUTINE CCWMOD (SOURCE,CCW)                                    00210000
      IMPLICIT INTEGER (A-Z)                                            00220000
      IF (TSTMOD(2).EQ.0) THEN                                          00230000
         CALL S1MVCH (SOURCE,2,CCW,2,3)                                 00240000
      ELSE                                                              00250000
         CALL S1MVCH (SOURCE,1,CCW,1,4)                                 00260000
      END IF                                                            00270000
      RETURN                                                            00280000
      END                                                               00290000