2013:groups:sm:blha:api
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
|
2013:groups:sm:blha:api [2013/07/01 11:34] johann_felix.graf_von_sodenfraunhofen Fix arguments in C/C++ code |
2013:groups:sm:blha:api [2013/08/13 08:36] gudrun.heinrich |
||
|---|---|---|---|
| Line 14: | Line 14: | ||
| void OLP_Start(char* fname, int* ierr); | void OLP_Start(char* fname, int* ierr); | ||
| void OLP_SetParameter(char* line, double* real_part, double *cmplx_part, int* status); | void OLP_SetParameter(char* line, double* real_part, double *cmplx_part, int* status); | ||
| - | void OLP_EvalSubProcess2(int l, double* mom, double mu, double* r, int* status); | + | void OLP_EvalSubProcess2(int* l, double* mom, double* mu, double* r, double* acc); |
| void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | ||
| Line 33: | Line 33: | ||
| void OLP_Start(char* fname, int &ierr); | void OLP_Start(char* fname, int &ierr); | ||
| void OLP_SetParameter(char* line, double& real_part, double& cmplx_part, int& status); | void OLP_SetParameter(char* line, double& real_part, double& cmplx_part, int& status); | ||
| - | void OLP_EvalSubProcess2(int l, double mom[], double& mu, double r[], int& status); | + | void OLP_EvalSubProcess2(int l, double mom[], double mu, double r[], double &acc); |
| void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | ||
| } | } | ||
| Line 80: | Line 80: | ||
| implicit none | implicit none | ||
| character(kind=c_char,len=1), intent(in) :: variable_name | character(kind=c_char,len=1), intent(in) :: variable_name | ||
| - | real(kind=c_double), value, intent(in) :: real_part, complex_part | + | real(kind=c_double), intent(in) :: real_part, complex_part |
| integer(kind=c_int), intent(out) :: success | integer(kind=c_int), intent(out) :: success | ||
| Line 86: | Line 86: | ||
| end subroutine | end subroutine | ||
| - | subroutine OLP_EvalSubProcess2(label, momenta, mu, res, rstatus) & | + | subroutine OLP_EvalSubProcess2(label, momenta, mu, res, acc) & |
| & bind(C,name="OLP_EvalSubProcess2") | & bind(C,name="OLP_EvalSubProcess2") | ||
| use, intrinsic :: iso_c_binding | use, intrinsic :: iso_c_binding | ||
| Line 94: | Line 94: | ||
| real(kind=c_double), dimension(50), intent(in) :: momenta | real(kind=c_double), dimension(50), intent(in) :: momenta | ||
| real(kind=c_double), dimension(4), intent(out) :: res | real(kind=c_double), dimension(4), intent(out) :: res | ||
| - | integer(kind=c_int), intent(out) :: rstatus | + | real(kind=c_double), dimension(1), intent(out) :: acc |
| !.... | !.... | ||
2013/groups/sm/blha/api.txt ยท Last modified: 2013/08/14 11:37 by johann_felix.graf_von_sodenfraunhofen
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: Public Domain
