Long floating-point number

Sample PL/I usage Fortran Function

Sample PL/I usage	Fortran Function
`P2FPLFP: PROC OPTIONS(MAIN); DCL P2FFLFP ENTRY OPTIONS(FORTRAN) RETURNS(FLOAT DEC(16)); DCL X FLOAT DEC(16); DCL Y FLOAT DEC(16); X = 5.000000000000000E0; Y = P2FFLFP(X); PUT SKIP LIST('VALUE RETURNED TO PL/I:', Y); END P2FPLFP;`	`FUNCTION P2FFLFP ( ARG ) REAL8 P2FFLFP REAL8 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG P2FFLFP = ARG END`

P2FPLFP: PROC OPTIONS(MAIN);
  DCL P2FFLFP ENTRY OPTIONS(FORTRAN)
      RETURNS(FLOAT DEC(16));
  DCL X       FLOAT DEC(16);
  DCL Y       FLOAT DEC(16);
  X = 5.000000000000000E0;
  Y = P2FFLFP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPLFP;

FUNCTION P2FFLFP ( ARG )
REAL*8 P2FFLFP
REAL*8 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFLFP = ARG
END