gpp4
1.3.1
|
FORTRAN API for library.c. More...
Functions | |
char * | ccp4_FtoCString (fpstr str1, int str1_len) |
void | ccp4_CtoFString (fpstr str1, int str1_len, const char *cstring) |
FORTRAN_SUBR (USTENV, ustenv,(fpstr str, int *result, int str_len),(fpstr str, int *result),(fpstr str, int str_len, int *result)) | |
FORTRAN_SUBR (USTIME, ustime,(int *isec),(int *isec),(int *isec)) | |
FORTRAN_SUBR (OUTBUF, outbuf,(),(),()) | |
FORTRAN_SUBR (CUNLINK, cunlink,(fpstr filename, int filename_len),(fpstr filename),(fpstr filename, int filename_len)) | |
FORTRAN_SUBR (CCPAL1, ccpal1,(void(*routne)(), int *n, int type[], int length[]),(void(*routne)(), int *n, int type[], int length[]),(void(*routne)(), int *n, int type[], int length[])) | |
FORTRAN_SUBR (QNAN, qnan,(union float_uint_uchar *realnum),(union float_uint_uchar *realnum),(union float_uint_uchar *realnum)) | |
FORTRAN_FUN (int, QISNAN, qisnan,(union float_uint_uchar *realnum),(union float_uint_uchar *realnum),(union float_uint_uchar *realnum)) | |
FORTRAN_SUBR (CCPBML, ccpbml,(int *ncols, union float_uint_uchar cols[]),(int *ncols, union float_uint_uchar cols[]),(int *ncols, union float_uint_uchar cols[])) | |
FORTRAN_SUBR (CCPWRG, ccpwrg,(int *ncols, union float_uint_uchar cols[], float wminmax[]),(int *ncols, union float_uint_uchar cols[], float wminmax[]),(int *ncols, union float_uint_uchar cols[], float wminmax[])) | |
FORTRAN_SUBR (HGETLIMITS, hgetlimits,(int *IValueNotDet, float *ValueNotDet),(int *IValueNotDet, float *ValueNotDet),(int *IValueNotDet, float *ValueNotDet)) | |
FORTRAN_SUBR (CMKDIR, cmkdir,(const fpstr path, const fpstr cmode, int *result, int path_len, int cmode_len),(const fpstr path, const fpstr cmode, int *result),(const fpstr path, int path_len, const fpstr cmode, int cmode_len, int *result)) | |
FORTRAN_SUBR (CCHMOD, cchmod,(const fpstr path, const fpstr cmode, int *result, int path_len, int cmode_len),(const fpstr path, const fpstr cmode, int *result),(const fpstr path, int path_len, const fpstr cmode, int cmode_len, int *result)) | |
FORTRAN API for library.c.
This file contains the wrappers for calling library.c from FORTRAN and some "missing" routines.
System dependent names are handled in the FORTRAN_SUBR, FORTRAN_FUN, FORTRAN_CALL macros defined in the header file. fpstr is a typedef which masks the intricacies of FORTRAN string passing.
void ccp4_CtoFString | ( | fpstr | str1, |
int | str1_len, | ||
const char * | cstring | ||
) |
Creates a Fortran string from an input C string for passing back to Fortran call. Characters after null-terminator may be junk, so pad with spaces. If input cstring is NULL, return blank string.
str1 | pointer Fortran to string |
str1_len | Fortran length of string |
cstring | input C string |
References ccp4_fatal(), ccp4_FtoCString(), ccp4_nan(), ccp4_utils_bml(), ccp4_utils_chmod(), ccp4_utils_hgetlimits(), ccp4_utils_isnan(), ccp4_utils_mkdir(), ccp4_utils_outbuf(), ccp4_utils_print(), ccp4_utils_setenv(), FORTRAN_CALL, FORTRAN_FUN, FORTRAN_SUBR, and float_uint_uchar::i.
Referenced by ccp4f_mem_tidy(), and FORTRAN_SUBR().
char* ccp4_FtoCString | ( | fpstr | str1, |
int | str1_len | ||
) |
Creates a null-terminated C string from an input string obtained from a Fortran call. Trailing blanks are removed. If input string is blank then return string "\0". Memory assigned by malloc, so can be freed.
str1 | pointer to string |
str1_len | Fortran length of string |
References ccp4_utils_flength(), and ccp4_utils_malloc().
Referenced by ccp4_CtoFString(), ccp4f_mem_tidy(), ccp4spg_mem_tidy(), and FORTRAN_SUBR().