PROGRAM mlp8
USE, INTRINSIC :: iso_c_binding
INTERFACE
   REAL( c_float ) FUNCTION mean( a , b) BIND(C,NAME='mean ' )
     USE, INTRINSIC :: iso_c_binding
     REAL ( c_float ) , VALUE :: a , b
   END FUNCTION mean
END INTERFACE
REAL :: a , b , c
   a = 1.0
   b = 3.0
   c = mean( a , b)
   WRITE (*,*) ' Mean value computed by C is ' , c
ENDPROGRAM mlp8