REAL*8 X
X = 5.0D0
CALL FCBCLFP(X)
PRINT *,
1 'UPDATED VALUE IN FORTRAN:', X
END
|
IDENTIFICATION DIVISION.
PROGRAM-ID. FCBCLFP.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
1 X USAGE IS COMPUTATIONAL-2.
PROCEDURE DIVISION USING X.
DISPLAY "COBOL ARG VALUE: ", X.
ADD 1.0E0 TO X.
EXIT PROGRAM.
END PROGRAM FCBCLFP.
|