This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revision Both sides next revision | ||
2013:groups:sm:blha:api [2013/06/13 17:12] johann_felix.graf_von_sodenfraunhofen formatting improved |
2013:groups:sm:blha:api [2013/07/10 14:14] johann_felix.graf_von_sodenfraunhofen Fix call by value/call by reference in OLP_SetParameter |
||
---|---|---|---|
Line 15: | Line 15: | ||
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, int* status); | ||
+ | void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | ||
#ifdef __cplusplus | #ifdef __cplusplus | ||
Line 32: | 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[], int& status); |
+ | void OLP_Info(char olp_name[15], char olp_version[15], char cite_message[255]); | ||
} | } | ||
Line 78: | 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 96: | Line 98: | ||
!.... | !.... | ||
end subroutine OLP_EvalSubProcess2 | end subroutine OLP_EvalSubProcess2 | ||
+ | |||
+ | subroutine OLP_Info(olp_name, olp_version, cite_message) & | ||
+ | & bind(C,name="OLP_Info") | ||
+ | use, intrinsic :: iso_c_binding | ||
+ | implicit none | ||
+ | character(kind=c_char,len=1), intent(out) :: olp_name | ||
+ | character(kind=c_char,len=1), intent(out) :: olp_version | ||
+ | character(kind=c_char,len=1), intent(out) :: cite_message | ||
+ | |||
+ | ! ... | ||
+ | |||
+ | end subroutine OLP_Info | ||
end module olp | end module olp | ||
</code> | </code> | ||
+ |