PGOPT

Sets or retrieves page width and length for printing.

Required Arguments

IOPT — Page attribute option. (Input)

 

IOPT	Description of Attribute
‑1, 1	Page width.
‑2, 2	Page length.

Negative values of IOPT indicate the setting IPAGE is input. Positive values of IOPT indicate the setting IPAGE is output.

IPAGE — Value of page attribute. (Input, if IOPT is negative; output, if IOPT is positive.)

 

IOPT	Description of Attribute	Settings for IPAGE
‑1, 1	Page width (in characters)	10, 11, …
‑2, 2	Page length (in lines)	10, 11, …

FORTRAN 90 Interface

Generic: CALL PGOPT (IOPT, IPAGE)

Specific: The specific interface name is S_PGOPT.

FORTRAN 77 Interface

Single: CALL PGOPT (IOPT, IPAGE)

Description

Routine PGOPT is used to set or retrieve the page width or the page length for routines that perform printing.

Example

The following example illustrates the use of PGOPT to set the page width at 20 characters. Routine WRRRN is then used to print a 3 × 4 matrix A where aij= i + j/10.

 

USE PGOPT_INT

USE WRRRN_INT

 

IMPLICIT NONE

INTEGER ITRING, LDA, NCA, NRA

PARAMETER (ITRING=0, LDA=3, NCA=4, NRA=3)

!

INTEGER I, IOPT, IPAGE, J

REAL A(LDA,NCA)

!

DO 20 I=1, NRA

DO 10 J=1, NCA

A(I,J) = I + J*0.1

10 CONTINUE

20 CONTINUE

! Set page width.

IOPT = -1

IPAGE = 20

CALL PGOPT (IOPT, IPAGE)

! Print the matrix A.

CALL WRRRN (’A’, A)

END

Output

 

A

1 2

1 1.100 1.200

2 2.100 2.200

3 3.100 3.200

 

3 4

1 1.300 1.400

2 2.300 2.400

3 3.300 3.400