REAL*4 MATRIX(3) / 1.0, 2.0, 3.0 /
CALL F2PPAF(MATRIX)
PRINT *,
1 'UPDATED VALUES IN FORTRAN:', MATRIX
END
|
F2PPAF: PROC (X) OPTIONS(FORTRAN);
DCL X(3) FLOAT DEC(6);
DCL IX FIXED BIN(31);
PUT SKIP
LIST('PL/I ARG VALUE:', X);
DO IX = 1 TO 3 BY 1;
X(IX) = X(IX) - 1.0E0;
END;
RETURN;
END F2PPAF;
|