test

FORTRAN 77 Language Reference

Functions Coerced to a Particular Type

Some VMS FORTRAN functions coerce to a particular INTEGER type.

Table 6-13 Translated Functions that VMS Coerces to a Particular Type

Specific Names 

Function 

Argument Type 

Result Type  
IINT JINT

Truncation toward zero 

Truncation toward zero 

REAL*4 REAL*4INTEGER*2 INTEGER*4
IIDINT JIDINT

Truncation toward zero 

Truncation toward zero 

REAL*8 REAL*8INTEGER*2 INTEGER*4
IIQINT JIQINT

Truncation toward zero 

Truncation toward zero 

REAL*16 REAL*16INTEGER*2 INTEGER*4
ININT JNINT

Nearest integer, INT(a+.5*sign(a))

Nearest integer, INT(a+.5*sign(a))

REAL*4 REAL*4INTEGER*2 INTEGER*4
IIDNNT JIDNNT

Nearest integer, INT(a+.5*sign(a))

Nearest integer, INT(a+.5*sign(a))

REAL*8 REAL*8INTEGER*2 INTEGER*4
IIQNNT JIQNNT

Nearest integer, INT(a+.5*sign(a))

Nearest integer, INT(a+.5*sign(a))

REAL*16 REAL*16INTEGER*2 INTEGER*4
IIFIX JIFIX

Fix 

Fix 

REAL*4 REAL*4INTEGER*2 INTEGER*4
IMAX1(a,a2,...) JMAX1(a,a2,...)

Maximum of two or more arguments 

Maximum of two or more arguments 

REAL*4 REAL*4INTEGER*2 INTEGER*4
IMIN1(a,a2,... JMIN1(a,a2,...

Minimum of two or more arguments 

Minimum of two or more arguments 

READ*4 READ*4INTEGER*2 INTEGER*4