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;