w3ai18.f File Reference

Line builder subroutine. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ai18 (item, i1, i2, line, l, k, n)
	Build a line of information composed of user specified character strings.

Detailed Description

Line builder subroutine.

Author

Robert Allard

Date

1974-02-01

Definition in file w3ai18.f.

Function/Subroutine Documentation

w3ai18()

subroutine w3ai18	(	character * (*)	item,
			i1,
			i2,
		character * (*)	line,
			l,
			k,
			n
	)

Build a line of information composed of user specified character strings.

Program history log:

• Robert Allard 1974-02-02
• Ralph Jones 1984-07-05 Recompile
• Ralph Jones 1996-08-06 Convert from ibm370 assembler to fortran for the cray, workstations, and pc's.

Parameters

[in]	ITEM	Character string to be added to line array.
[in]	I1	Number of character strings to be added to line array.
[in]	I2	Number of characters per string to add to line.
[in]	L	Character length of line to be built (2.le.l.le.256).
[in]	K	Number of blkank characters to precede a character string (0.le.k.le.256).
[in,out]	N	(in) Pointer set equal to 0 when beginning a line. (out) Character count, error indicator.
[out]	LINE	Array in which character string are placed while building aline; must be of type integer.

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).

Note

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.

Author

Robert Allard

Date

1974-02-01

Definition at line 55 of file w3ai18.f.