Complex: two adjacent short floating-point numbers

Sample PL/I usage Fortran Function

Sample PL/I usage	Fortran Function
`P2FPSCP: PROC OPTIONS(MAIN); DCL P2FFSCP ENTRY OPTIONS(FORTRAN) RETURNS(COMPLEX FLOAT DEC(6)); DCL X COMPLEX FLOAT DEC(6); DCL Y COMPLEX FLOAT DEC(6); X = 5.0E0 + 15.0E0I; Y = P2FFSCP(X); PUT SKIP LIST('VALUE RETURNED TO PL/I:', Y); END P2FPSCP;`	`FUNCTION P2FFSCP ( ARG ) COMPLEX8 P2FFSCP COMPLEX8 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG P2FFSCP = ARG END`

P2FPSCP: PROC OPTIONS(MAIN);
  DCL P2FFSCP ENTRY OPTIONS(FORTRAN)
      RETURNS(COMPLEX FLOAT DEC(6));
  DCL X       COMPLEX FLOAT DEC(6);
  DCL Y       COMPLEX FLOAT DEC(6);
  X = 5.0E0 + 15.0E0I;
  Y = P2FFSCP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPSCP;

FUNCTION P2FFSCP ( ARG )
COMPLEX*8 P2FFSCP
COMPLEX*8 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFSCP = ARG
END