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*4 | INTEGER*2 INTEGER*4 |
IIDINT JIDINT |
Truncation toward zero Truncation toward zero | REAL*8 REAL*8 | INTEGER*2 INTEGER*4 |
IIQINT JIQINT |
Truncation toward zero Truncation toward zero | REAL*16 REAL*16 | INTEGER*2 INTEGER*4 |
ININT JNINT |
Nearest integer, INT(a+.5*sign(a)) Nearest integer, INT(a+.5*sign(a)) | REAL*4 REAL*4 | INTEGER*2 INTEGER*4 |
IIDNNT JIDNNT |
Nearest integer, INT(a+.5*sign(a)) Nearest integer, INT(a+.5*sign(a)) | REAL*8 REAL*8 | INTEGER*2 INTEGER*4 |
IIQNNT JIQNNT |
Nearest integer, INT(a+.5*sign(a)) Nearest integer, INT(a+.5*sign(a)) | REAL*16 REAL*16 | INTEGER*2 INTEGER*4 |
IIFIX JIFIX |
Fix Fix | REAL*4 REAL*4 | INTEGER*2 INTEGER*4 |
IMAX1(a,a2,...) JMAX1(a,a2,...) |
Maximum of two or more arguments Maximum of two or more arguments | REAL*4 REAL*4 | INTEGER*2 INTEGER*4 |
IMIN1(a,a2,... JMIN1(a,a2,... |
Minimum of two or more arguments Minimum of two or more arguments | READ*4 READ*4 | INTEGER*2 INTEGER*4 |