W3AI18

The W3AI18 routine builds a line of information composed of
           user specified character strings.

USAGE:    CALL W3AI18(ITEM, I1, I2, LINE, L, K, N)

   Input argument list:
     ITEM   - CHARACTER STRING TO BE ADDED TO LINE ARRAY
     I1     - NUMBER OF CHARACTER STRINGS TO BE ADDED TO LINE ARRAY
     I2     - NUMBER OF CHARACTERS PER STRING TO ADD TO LINE
     L      - CHARACTER LENGTH OF LINE TO BE BUILT (2.LE.L.LE.256)
     K      - NUMBER OF BLKANK CHARACTERS TO PRECEDE A CHARACTER
              STRING (0.LE.K.LE.256)
     N      - POINTER SET EQUAL TO 0 WHEN BEGINNING A LINE

   Output argument list:
     LINE   - ARRAY IN WHICH CHARACTER STRING ARE PLACED WHILE
              BUILDING ALINE; MUST BE OF TYPE INTEGER
     N      - CHARACTER COUNT, ERROR INDICATOR

   Exit states:
     N = -1   CHARACTER STRING WILL NOT FIT IN THE LINE ARRAY;
              OTHERWISE, EACH TIME A CHACTER STRING IS ADDED
              TO THE LINE, N IS INCREMENTED BY (I2 + K)
REMARKS:
        Each character string included in the item array must
        start on a full word boundary and be equal in length.
        Each successive string must start on the nest fullword
        boundary following the end of the previous string.
        On a Cray this is 8.

        The dimensions of the item array should be at least the
        value of (i1*(i2+j))/4, where the integer j is in the
        range 0.le.j.le.3 and the sum (i2+j) is 4 or a multiple
        of 4. on a Cray this is 8 or a multiple of 8. On a Cray
        (i1*(i2+j))/8, range is 0.le.j.le.7

        The maximum dimension of line is 64 word or 256 bytes.
        on a Cray it is 32 words or 256 bytes.

        The user should set n = 0 each time a line is stated to
        tell w3ai18 to fill the line array with blank characters.
        Each time a character string is added to the line, the
        variable (n) is incremented by (i2 + k). if a character
        string will not fit in the line array, w3ai18 sets n = -1
        and returns to the user. The user will not be able to
        program a recovery procedure for the line being full if
        more than one character string is in the item array.

 
W3lib.tar Library contains Fortran 90 decoder/encoder routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007