CTITLEFOWSDH -- WRITE CRAY HALFWORD ARRAY TO DISK                       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       03-18-86                                            00060000
C     REVISED       MM-DD-YY III.  ...                                  00070000
CA                                                                      00080000
CA                                                                      00090000
CA    CALL FOWSDH (KPWRKS, SEQDA, DATA, IWORD, KSAMP)                   00100000
CA         INPUT   KPWRKS = FIRST WORD OF DATA SET NAME ARRAY       C7  00110000
CA         INPUT   SEQDA  = SEQUENTIAL DISK ADDRESS                 I4  00120000
CA         INPUT   DATA   = ARRAY CONTAINING TRACE PART OF RECORD   R8  00130000
CA         INPUT   IWORD  = ARRAY CONTAINING HEADER INFORMATION     I2  00140000
CA         INPUT   KSAMP  = LENGTH (WORDS) OF TRACE PART OF RECORD  I8  00150000
CA                                                                      00160000
CA                                                                      00170000
CA       WRITE TRACE DATA TO DISK.                                      00180000
CA                                                                      00190000
CAEND                                                                   00200000
      SUBROUTINE FOWSDH (KPWRKS, SEQDA, DATA, IWORD, KSAMP)             00210000
C                                                                       00220000
      IMPLICIT INTEGER (A-Z)                                            00230000
C                                                                       00240000
      INTEGER*2    DATA  (20)                                           00250001
      INTEGER*2    IWORD (2)                                            00260000
C                                                                       00270000
C                 BUILD OUTPUT RECORD                                   00280000
C                                                                       00290000
      DO 20 I = 1, 14                                                   00300000
   20 DATA(I+6) = IWORD(I)                                              00310001
C                                                                       00320000
C                 WRITE OUT                                             00330000
C                                                                       00340000
      CALL FOWSSD (KPWRKS, SEQDA, DATA)                                 00350001
C                                                                       00360000
      RETURN                                                            00370000
C                                                                       00380000
      END                                                               00390000