Short floating-point number

Sample C usage (by Reference) Fortran function

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

#pragma linkage (cfort,FORTRAN)
#include <stdio.h>
float cfort( float * );
main()
{
  float x, y;
  x=5.0F;
  y = cfort(&x);
  printf
    ("Value returned to C: %f\n", y);
}

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