Part III. MemCom ftn Fortran API

The new ftn Fortran API of the database manager (DB) is now fully 64 bit compliant while being compatible with the Fortran77 standard. However, a Fortran 90 or Fortran 95 compiler is required to compile applications with the the ftn API.

Warning

	Warning
Never place literal constants in arguments passed to subroutines and functions, unless the constants corresponds exactly to the requested data type. But note that the data types mcf_size, mcf_ssize, mcf_ptr, and mcf_off are platform-dependent. The argument `size` in the call to subroutine `mcf_db_get_set` is a 4 byte or an 8 byte integer, depending on the platform. Thus, on a 64 bit platform the call with the `size` argument set to 1234 call mcf_db_get_set(handle,name,1234, buf,lbuf,stat) will cause a segmentation fault, while mcf_size size size=1234 call mcf_db_get_set(handle,name,1234,buf,lbuf,stat) will work properly.

Never place literal constants in arguments passed to subroutines and functions, unless the constants corresponds exactly to the requested data type. But note that the data types mcf_size, mcf_ssize, mcf_ptr, and mcf_off are platform-dependent.

The argument size in the call to subroutine mcf_db_get_set is a 4 byte or an 8 byte integer, depending on the platform. Thus, on a 64 bit platform the call with the size argument set to 1234

call mcf_db_get_set(handle,name,1234, buf,lbuf,stat)

will cause a segmentation fault, while

mcf_size size
size=1234
call mcf_db_get_set(handle,name,1234,buf,lbuf,stat)

will work properly.

The ftn API functions are found in the library libmemcomftn, see Appendix Installation for details. Note that the ftn API and the old Fortran f77 API can be mixed, i.e new Fortran ftn API functions and old Fortran f77 API functions can be mixed in an application (for details on how to link Fortran programs with both the new Fortran ftn API and the old Fortran f77 function calls see Appendix Installation).