gpp4  1.3.1
Macros | Functions
ccp4_general_f.c File Reference

Fortran API to ccp4_general.c. More...

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#include "ccp4_errno.h"
#include "ccp4_fortran.h"
#include "ccp4_parser.h"
#include "ccp4_program.h"
#include "ccp4_utils.h"
#include "ccp4_general.h"
#include "cmtzlib.h"
#include "csymlib.h"

Macros

#define TMP_LENGTH
 

Functions

void ccp4f_mem_tidy (void)
 
 FORTRAN_SUBR (CCPFYP, ccpfyp,(),(),())
 
 FORTRAN_SUBR (CCP4H_INIT_CLIB, ccp4h_init_clib,(int *ihtml, int *isumm),(int *ihtml, int *isumm),(int *ihtml, int *isumm))
 
 FORTRAN_SUBR (CCPUPC, ccpupc,(fpstr string, int string_len),(fpstr string),(fpstr string, int string_len))
 
 FORTRAN_SUBR (CCPLWC, ccplwc,(fpstr string, int string_len),(fpstr string),(fpstr string, int string_len))
 
 FORTRAN_SUBR (CCPERR, ccperr,(const int *istat, const fpstr errstr, int errstr_len),(const int *istat, const fpstr errstr),(const int *istat, const fpstr errstr, int errstr_len))
 
 FORTRAN_SUBR (QPRINT, qprint,(const int *iflag, const fpstr msg, int msg_len),(const int *iflag, const fpstr msg),(const int *iflag, const fpstr msg, int msg_len))
 
 FORTRAN_SUBR (UIDATE, uidate,(int *imonth, int *iday, int *iyear),(int *imonth, int *iday, int *iyear),(int *imonth, int *iday, int *iyear))
 
 FORTRAN_SUBR (CCPDAT, ccpdat,(fpstr caldat, int caldat_len),(fpstr caldat),(fpstr caldat, int caldat_len))
 
 FORTRAN_SUBR (CCPTIM, ccptim,(int *iflag, float *cpu, float *elaps),(int *iflag, float *cpu, float *elaps),(int *iflag, float *cpu, float *elaps))
 
 FORTRAN_SUBR (UTIME, utime,(fpstr ctime, int ctime_len),(fpstr ctime),(fpstr ctime, int ctime_len))
 
 FORTRAN_SUBR (UCPUTM, ucputm,(float *sec),(float *sec),(float *sec))
 
 FORTRAN_SUBR (CCP4_VERSION, ccp4_version,(const fpstr version, int version_len),(const fpstr version),(const fpstr version, int version_len))
 
 FORTRAN_SUBR (CCP4_PROG_VERSION, ccp4_prog_version,(const fpstr version, int *iflag, int version_len),(const fpstr version, int *iflag),(const fpstr version, int version_len, int *iflag))
 
 FORTRAN_SUBR (CCPVRS, ccpvrs,(const int *ilp, const fpstr prog, const fpstr vdate, int prog_len, int vdate_len),(const int *ilp, const fpstr prog, const fpstr vdate),(const int *ilp, const fpstr prog, int prog_len, const fpstr vdate, int vdate_len))
 
 FORTRAN_SUBR (CCPRCS, ccprcs,(const int *ilp, const fpstr prog, const fpstr rcsdat, int prog_len, int rcsdat_len),(const int *ilp, const fpstr prog, const fpstr rcsdat),(const int *ilp, const fpstr prog, int prog_len, const fpstr rcsdat, int rcsdat_len))
 
 FORTRAN_SUBR (CCPPNM, ccppnm,(const fpstr pnm, int pnm_len),(const fpstr pnm, int pnm_len),(const fpstr pnm, int pnm_len))
 
 FORTRAN_FUN (ftn_logical, CCPEXS, ccpexs,(const fpstr name, int name_len),(const fpstr name),(const fpstr name, int name_len))
 
 FORTRAN_FUN (ftn_logical, CCPLIC, ccplic,(const fpstr name, int name_len),(const fpstr name),(const fpstr name, int name_len))
 
 FORTRAN_SUBR (GETELAPSED, getelapsed,(void),(void),(void))
 
 FORTRAN_FUN (int, CCP4VERBOSITYLEVEL, ccp4verbositylevel,(int *level),(int *level),(int *level))
 

Detailed Description

Fortran API to ccp4_general.c.

Date
Created Oct. 2001
Author
Martyn Winn

Macro Definition Documentation

◆ TMP_LENGTH

#define TMP_LENGTH
Value:
128 /* this is defined outside the subroutine
as some complers didn't like it insde. */

Function Documentation

◆ ccp4f_mem_tidy()

void ccp4f_mem_tidy ( void  )

Free all memory malloc'd from static pointers in Fortran interface. To be called before program exit. The function can be registered with atexit.

References ccp4_errno, ccp4_FtoCString(), ccp4_strerror(), ccp4_utils_malloc(), ccp4_utils_noinpbuf(), ccp4_utils_print(), ccp4fyp(), ccp4spg_mem_tidy(), ccperror(), FORTRAN_CALL, FORTRAN_SUBR(), html_log_output(), MtzMemTidy(), and summary_output().

◆ FORTRAN_SUBR() [1/3]

FORTRAN_SUBR ( UIDATE  ,
uidate  ,
(int *imonth, int *iday, int *iyear)  ,
(int *imonth, int *iday, int *iyear)  ,
(int *imonth, int *iday, int *iyear)   
)

Fortran wrapper to integer data function.

Parameters
imonthMonth (1-12).
idayDay (1-31).
iyearYear (4 digit).

References ccp4_utils_idate().

Referenced by ccp4f_mem_tidy().

◆ FORTRAN_SUBR() [2/3]

FORTRAN_SUBR ( CCPDAT  ,
ccpdat  ,
(fpstr caldat, int caldat_len)  ,
(fpstr caldat)  ,
(fpstr caldat, int caldat_len)   
)

Fortran wrapper to string data function.

Parameters
caldatDate string in format dd/mm/yy.

References ccp4_CtoFString(), and ccp4_utils_date().

◆ FORTRAN_SUBR() [3/3]

FORTRAN_SUBR ( GETELAPSED  ,
getelapsed  ,
(void)  ,
(void)  ,
(void)   
)

Print timing information to stdout wraps ccp4ProgramTime

References ccp4ProgramTime().