IDENTIFICATION DIVISION.
PROGRAM-ID. CBFCAF.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X.
    2  MATRIX    OCCURS 3 TIMES
                 USAGE IS COMPUTATIONAL-1.
PROCEDURE DIVISION.
  MOVE 0.0E0 TO MATRIX(1).
  MOVE 1.0E0 TO MATRIX(2).
  MOVE 2.0E0 TO MATRIX(3).
  CALL "CBFFAF" USING X.
  DISPLAY "UPDATED VALUES IN COBOL: ",
    MATRIX(1), MATRIX(2), MATRIX(3).
  GOBACK.
END PROGRAM CBFCAF.
 

SUBROUTINE CBFFAF ( ARG )
REAL*4 ARG(3)
PRINT *, 'FORTRAN ARG VALUES:', ARG
DO J = 1, 3
  ARG(J) = ARG(J) + 1.0
ENDDO
END