IDENTIFICATION DIVISION.
PROGRAM-ID. CBFCSFP.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1 X USAGE IS COMPUTATIONAL-1.
PROCEDURE DIVISION.
MOVE 5.0E0 TO X.
CALL "CBFFSFP" USING X.
DISPLAY "UPDATED VALUE IN COBOL: ", X.
GOBACK.
END PROGRAM CBFCSFP.
|
SUBROUTINE CBFFSFP ( ARG )
REAL*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
ARG = ARG + 1.0E0
END
|