Long floating-point number

Sample C++ usage (by Value) Fortran function

Sample C++ usage (by Value)	Fortran function
`extern "FORTRAN" { double cfort(double); } #include <stdio.h> main() { double x, y; x=12.5; y=cfort(x); printf ("Value returned to C: %f\n", y); }`	`FUNCTION CFORT ( ARG ) REAL8 CFORT REAL8 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG CFORT = ARG END`

extern "FORTRAN"
{ double cfort(double); }
#include <stdio.h>
main()
{
  double x, y;
  x=12.5;
  y=cfort(x);
  printf
    ("Value returned to C: %f\n", y);
}

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

Sample C++ usage (by Reference) Fortran function

Sample C++ usage (by Reference)	Fortran function
`extern "FORTRAN" { double cfort(double &);; } #include <stdio.h> main() { double x, y; x=12.5; y=cfort(x); printf ("Value returned to C: %f\n", y); }`	`FUNCTION CFORT ( ARG ) REAL8 CFORT REAL8 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG CFORT = ARG END`

extern "FORTRAN"
{ double cfort(double &);; }
#include <stdio.h>
main()
{
  double x, y;
  x=12.5;
  y=cfort(x);
  printf
    ("Value returned to C: %f\n", y);
}

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