w3ai19.f File Reference

Blocker Subroutine. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ai19 (line, l, nblk, n, next)
	Fills a record block with logical records or lines of information.

Detailed Description

Blocker Subroutine.

Author

Robert Allard

Date

1997-04-15

Definition in file w3ai19.f.

Function/Subroutine Documentation

w3ai19()

subroutine w3ai19	(	character * 1, dimension(*)	line,
		integer	l,
		character * 1, dimension(*)	nblk,
		integer	n,
		integer	next
	)

Fills a record block with logical records or lines of information.

Program history log:

• Robeert Allard 1974-02-01
• Ralph Jones 1990-09-15 Convert from ibm370 assembler to microsoft fortran 5.0.
• Ralph Jones 1990-10-07 Convert to sun fortran 1.3.
• Ralph Jones 1991-07-20 Convert to silicongraphics 3.3 fortran 77.
• Ralph Jones 1993-03-29 Add save statement.
• Ralph Jones 1994-04-22 Add xmovex and xstore to move and store character data faster on the cray.
• Bob Hollern 1997-04-15 Corrected the problem of iniializing nblk to @'s instead of blanks.

Parameters

[in]	LINE	Array address of logical record to be blocked.
[in]	L	Number of characters in line to be blocked.
[in]	N	Maximum character size of nblk.
[in,out]	NEXT	(in) flag, initialized to 0. (out) character count, error indicator.
[out]	NBLK	Block filled with logical records.

Exit states:

• NEXT = -1 Line will not fit into remainder of block; otherwise, next is set to (next + l).
• NEXT = -2 N is zero or less.
• NEXT = -3 L is zero or less.

Author

Robert Allard

Date

1997-04-15

Definition at line 32 of file w3ai19.f.