Chapter 7. CF90 Defined Externals

This chapter describes global variables used by the CF90 compiler on UNICOS and UNICOS/mk systems

Conformance Checks

Additional segldr(1) and cld(1) directives for load time optimization and activating library features are described in the Application Programmer's I/O Guide.

Several segldr(1) directives are used to provide strict, intermediate, and minimal error checking of edit descriptors with input/output (I/O) list items during formatted READ and WRITE statements. The NOCHK versions provide the least error checking.

The version of NOCHK for formatted output is as follows:

% segldr -D EQUIV=$WNOCHK($WCHK)

The version of NOCHK for a formatted input is as follows:

% segldr -D EQUIV=$RNOCHK($RCHK)

For strict conformance to editing in FORTRAN 77, use the CHK77 versions, which are as follows:

% segldr -D EQUIV=$WCHK77($WCHK)
% segldr -D EQUIV=$RCHK77($RCHK)

For strict conformance to editing in Fortran 90, use the CHK90 versions, which are as follows:

% segldr -D EQUIV=$WCHK90($WCHK)
% segldr -D EQUIV=$RCHK90($RCHK)

The default checking is somewhat stricter than the NOCHK versions but is not as strict as the CHK77 and CHK90 versions.

Record Length

The RECL specifier in an OPEN statement can be used to specify the maximum record size for a file declared with sequential access. An alternate method is provided through segldr(1) directives. If RECL is present, the values provided by these directives are ignored. The use of RECL for sequential access files is recommended.

To set the maximum output record length X for a file opened as a sequential formatted file, use the following specification:

SET=$WBUFLN:X
COMMONS=$WFDCOM:X+9

The default size is 267.

To set the maximum input record length X for a file opened as a sequential formatted file, use the following specification:

SET=$RBUFLN:X
COMMONS=$RFDCOM:X+9

The default size is 267.