#include <stdio.h>
void cobrtn (double);

int main()
{
  double x;
  x=3.14159265;
  cobrtn(x);    /* x by value */
}

IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X COMP-2.
PROCEDURE DIVISION USING BY VALUE X
      DISPLAY Y.
      GOBACK.
END PROGRAM COBRTN.