File indexing completed on 2023-05-28 05:10:55 UTC
view on githubraw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre*0001 #ifndef ADDEBUG_INCLUDED
0002 #define ADDEBUG_INCLUDED
0003
0004 #include "adComplex.h"
0005
0006 void adDebugTgt_init(double epsilon, double seed, int tested_process) ;
0007 void adDebugTgt_call(char *unitname, int traced, int forcetraced) ;
0008 void adDebugTgt_exit() ;
0009 int adDebugTgt_here(char* placename, int forcetraced) ;
0010
0011 void adDebugTgt_initReal4(char* varname, float *indep, float *indepd) ;
0012 void adDebugTgt_initReal8(char* varname, double *indep, double *indepd) ;
0013 void adDebugTgt_initComplex16(char* varname, cdcmplx *indep, cdcmplx *indepd) ;
0014 void adDebugTgt_initReal4Array(char* varname, float *indep, float *indepd, int length) ;
0015 void adDebugTgt_initReal8Array(char* varname, double *indep, double *indepd, int length) ;
0016 void adDebugTgt_initComplex16Array(char* varname, cdcmplx *indep, cdcmplx *indepd, int length) ;
0017 void adDebugTgt_concludeReal4(char *varname, float dep, float *depd) ;
0018 void adDebugTgt_concludeReal8(char *varname, double dep, double *depd) ;
0019 void adDebugTgt_concludeComplex16(char *varname, cdcmplx dep, cdcmplx *depd) ;
0020 void adDebugTgt_concludeReal4Array(char *varname, float *tvar, float *tvard, int length) ;
0021 void adDebugTgt_concludeReal8Array(char *varname, double *tvar, double *tvard, int length) ;
0022 void adDebugTgt_concludeComplex16Array(char *varname, cdcmplx *tvar, cdcmplx *tvard, int length) ;
0023 void adDebugTgt_conclude() ;
0024 void adDebugTgt_passiveReal4(char *varname, float var) ;
0025 void adDebugTgt_passiveReal8(char *varname, double var) ;
0026 void adDebugTgt_passiveComplex16(char *varname, cdcmplx var) ;
0027 void adDebugTgt_passiveReal4Array(char *varname, float *var, int length) ;
0028 void adDebugTgt_passiveReal8Array(char *varname, double *var, int length) ;
0029 void adDebugTgt_passiveComplex16Array(char *varname, cdcmplx *var, int length) ;
0030 void adDebugTgt_testReal4(char *varname, float var, float *vard) ;
0031 void adDebugTgt_testReal8(char *varname, double var, double *vard) ;
0032 void adDebugTgt_testComplex16(char *varname, cdcmplx var, cdcmplx *vard) ;
0033 void adDebugTgt_testReal4Array(char *varname, float *var, float *vard, int length) ;
0034 void adDebugTgt_testReal8Array(char *varname, double *var, double *vard, int length) ;
0035 void adDebugTgt_testComplex16Array(char *varname, cdcmplx *var, cdcmplx *vard, int length) ;
0036 void adDebugTgt_display(char *placename) ;
0037
0038 void adDebugBwd_init(double errmax, double seed) ;
0039 void adDebugBwd_call(char *funcname, int deltadepth) ;
0040 void adDebugBwd_exit() ;
0041 int adDebugBwd_here(char* placename) ;
0042
0043 void adDebugFwd_init(double errmax, double seed) ;
0044 void adDebugFwd_call(char *funcname) ;
0045 void adDebugFwd_exit() ;
0046 int adDebugFwd_here(char* placename) ;
0047
0048 void adDebugAdj_rwReal4(float *vard) ;
0049 void adDebugAdj_rwReal8(double *vard) ;
0050 void adDebugAdj_rwComplex16(cdcmplx *vard) ;
0051 void adDebugAdj_rReal4(float *vard) ;
0052 void adDebugAdj_rReal8(double *vard) ;
0053 void adDebugAdj_rComplex16(cdcmplx *vard) ;
0054 void adDebugAdj_wReal4(float *vard) ;
0055 void adDebugAdj_wReal8(double *vard) ;
0056 void adDebugAdj_wComplex16(cdcmplx *vard) ;
0057 void adDebugAdj_rwReal4Array(float *vard, int length) ;
0058 void adDebugAdj_rwReal8Array(double *vard, int length) ;
0059 void adDebugAdj_rwComplex16Array(cdcmplx *vard, int length) ;
0060 void adDebugAdj_rReal4Array(float *vard, int length) ;
0061 void adDebugAdj_rReal8Array(double *vard, int length) ;
0062 void adDebugAdj_rComplex16Array(cdcmplx *vard, int length) ;
0063 void adDebugAdj_wReal4Array(float *vard, int length) ;
0064 void adDebugAdj_wReal8Array(double *vard, int length) ;
0065 void adDebugAdj_wComplex16Array(cdcmplx *vard, int length) ;
0066 void adDebugAdj_rwDisplay(char *placename, int indent) ;
0067 void adDebugAdj_rDisplay(char *placename, int indent) ;
0068 void adDebugAdj_wDisplay(char *placename, int indent) ;
0069 void adDebugAdj_skip(char *placename) ;
0070 void adDebugAdj_conclude() ;
0071
0072 #endif