CTITLEFOWTRH -- WRITE CRAY HALFWORD ARRAY                               00010002
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020000
CA    DESIGNER      STU NELAN                                           00030000
CA    LANGUAGE      FORTRAN                                             00040000
CA    SYSTEM        IBM (SEE CRAY)                                      00050000
CA    WRITTEN       01-20-86                                            00060000
C     REVISED       MM-DD-YY III.  ...                                  00070000
CA                                                                      00080000
CA                                                                      00090000
CA    CALL FOWTRH (DCBAD, DATA, LEN, STATUS)                            00100000
CA         INPUT   DCBAD  = ADDRESS OF A BSAM DCB OPENED BY FOIWTR. I4  00110000
CA         INPUT   DATA   = ARRAY CONTAINING THE RECORD.           ANY  00120000
CA         INPUT   LEN    = LENGTH (WORDS) OF RECORD TO BE WRITTEN. I4  00130000
CA         OUTPUT  STATUS = STATUS CODE.                            I4  00140000
CA                          1 = OK.                                     00150000
CA                          2 = FILE NOT OPEN.                          00160000
CA                         (3 = WRITE ERROR.  ) NOT APP.                00170000
CA                          4 = VOLUME SWITCH.                          00180000
CA                         (6 = VOLUME SWITCH AND WRITE ERROR.)NOT APP. 00190000
CA                                                                      00200000
CA                                                                      00210000
CA       WRITE TRACE DATA.                                              00220000
CA       IMPORTANT NOTE:  WHEN PROCESSING IS FINISHED, BE SURE TO       00230000
CA                        CALL FOCWTR TO CLOSE THE DATA SET.            00240000
CA                                                                      00250000
CAEND                                                                   00260000
      SUBROUTINE FOWTRH (DCBAD, DATA, LEN, STATUS)                      00270000
C                                                                       00280000
      IMPLICIT INTEGER (A-Z)                                            00290000
C                                                                       00300000
      INTEGER      DATA  (1)                                            00310000
C                                                                       00320000
C                 WRITE OUT                                             00330000
C                                                                       00340000
C     WRITE (6,8010) LEN                                                00350000
C8010 FORMAT (2X,'FOWTRH -- LEN=',I10)                                  00360000
C     WRITE (6,8020) (DATA(I),I=1,LEN)                                  00370000
C8020 FORMAT (5X,10Z10)                                                 00380000
      CALL FOWTR (DCBAD, DATA, LEN, STATUS)                             00390000
C                                                                       00400000
      RETURN                                                            00410000
C                                                                       00420000
      END                                                               00430000