Fortran Real Function