REAL*4 MATRIX(3) / 1.0, 2.0, 3.0 /
CALL FCBCAF(MATRIX)
PRINT *,
1 'UPDATED VALUES IN FORTRAN:', MATRIX
END
|
IDENTIFICATION DIVISION.
PROGRAM-ID. FCBCAF.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 IX PIC S9(9)
USAGE IS BINARY.
LINKAGE SECTION.
1 X.
2 MATRIX OCCURS 3 TIMES
USAGE IS COMPUTATIONAL-1.
PROCEDURE DIVISION USING X.
DISPLAY "COBOL ARG VALUES: ",
MATRIX(1), MATRIX(2), MATRIX(3).
PERFORM VARYING IX
FROM 1 BY 1
UNTIL IX > 3
SUBTRACT 1.0E0 FROM MATRIX(IX)
END-PERFORM
EXIT PROGRAM.
END PROGRAM FCBCAF.
|