#include <stdio.h>

extern "PLI" {
  double cpli(double);
}

main()
{
  double x, y;
  x=12.5;
  cpli(x);  /* by value */
}
 

CPLI: PROC(ARG) 
       RETURNS (FLOAT BINARY(53));
    DCL ARG FLOAT BINARY(53);
⋮
    RETURN (ARG);
    END;
 

#include <stdio.h>

extern "PLI" {
  void double cpli(double *);
}

main()
{
  double x;
  x=12.5;
  cpli(&x);  /* by reference */

}

CPLI: PROC(ARG);
    DCL ARG FLOAT BINARY(53);
⋮
    END;