File indexing completed on 2023-05-28 05:10:54 UTC
view on githubraw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre*0001 #ifndef ADCONTEXT_INCLUDED
0002 #define ADCONTEXT_INCLUDED
0003
0004 #include "complex.h"
0005
0006 void adContextTgt_init(double epsilon, double seed) ;
0007 void adContextTgt_initReal8(char* varname, double *indep, double *indepd) ;
0008 void adContextTgt_initReal8Array(char* varname, double *indep, double *indepd, int length) ;
0009 void adContextTgt_initReal4(char* varname, float *indep, float *indepd) ;
0010 void adContextTgt_initReal4Array(char* varname, float *indep, float *indepd, int length) ;
0011 void adContextTgt_initComplex16(char* varname, double complex *indep, double complex *indepd) ;
0012 void adContextTgt_initComplex16Array(char* varname, double complex *indep, double complex *indepd, int length) ;
0013 /* Commented out because sizeof(complex) == sizeof(double complex) == 16 */
0014 /* void adContextTgt_initComplex8(char* varname, complex *indep, complex *indepd) ; */
0015 /* void adContextTgt_initComplex8Array(char* varname, complex *indep, complex *indepd, int length) ; */
0016 void adContextTgt_startConclude() ;
0017 void adContextTgt_concludeReal8(char* varname, double dep, double depd) ;
0018 void adContextTgt_concludeReal8Array(char* varname, double *dep, double *depd, int length) ;
0019 void adContextTgt_concludeReal4(char* varname, float dep, float depd) ;
0020 void adContextTgt_concludeReal4Array(char* varname, float *dep, float *depd, int length) ;
0021 void adContextTgt_concludeComplex16(char* varname, double complex dep, double complex depd) ;
0022 void adContextTgt_concludeComplex16Array(char* varname, double complex *dep, double complex *depd, int length) ;
0023 /* Commented out because sizeof(complex) == sizeof(double complex) == 16 */
0024 /* void adContextTgt_concludeComplex8(char* varname, complex *dep, complex *depd) ; */
0025 /* void adContextTgt_concludeComplex8Array(char* varname, complex *dep, complex *depd, int length) ; */
0026 void adContextTgt_conclude() ;
0027 void adContextAdj_init(double seed) ;
0028 void adContextAdj_initReal8(char* varname, double *dep, double *depb) ;
0029 void adContextAdj_initReal8Array(char* varname, double *dep, double *depb, int length) ;
0030 void adContextAdj_initReal4(char* varname, float *dep, float *depb) ;
0031 void adContextAdj_initReal4Array(char* varname, float *dep, float *depb, int length) ;
0032 void adContextAdj_initComplex16(char* varname, double complex *dep, double complex *depb) ;
0033 void adContextAdj_initComplex16Array(char* varname, double complex *dep, double complex *depb, int length) ;
0034 /* Commented out because sizeof(complex) == sizeof(double complex) == 16 */
0035 /* void adContextAdj_initComplex8(char* varname, complex *dep, complex *depb) ; */
0036 /* void adContextAdj_initComplex8Array(char* varname, complex *dep, complex *depb, int length) ; */
0037 void adContextAdj_startConclude() ;
0038 void adContextAdj_concludeReal8(char* varname, double dep, double depb) ;
0039 void adContextAdj_concludeReal8Array(char* varname, double *dep, double *depb, int length) ;
0040 void adContextAdj_concludeReal4(char* varname, float dep, float depb) ;
0041 void adContextAdj_concludeReal4Array(char* varname, float *dep, float *depb, int length) ;
0042 void adContextAdj_concludeComplex16(char* varname, double complex dep, double complex depb) ;
0043 void adContextAdj_concludeComplex16Array(char* varname, double complex *dep, double complex *depb, int length) ;
0044 /* Commented out because sizeof(complex) == sizeof(double complex) == 16 */
0045 /* void adContextAdj_concludeComplex8(char* varname, complex *dep, complex *depb) ; */
0046 /* void adContextAdj_concludeComplex8Array(char* varname, complex *dep, complex *depb, int length) ; */
0047 void adContextAdj_conclude() ;
0048
0049 #endif
