Differences

This shows you the differences between two versions of the page.

--- 2013:groups:sm:blha:api [2013/06/13 17:12]
johann_felix.graf_von_sodenfraunhofen formatting improved
+++ 2013:groups:sm:blha:api [2013/07/01 11:34]
johann_felix.graf_von_sodenfraunhofen Fix arguments in C/C++ code
@@ Line 15: / Line 15: @@
 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_Info(char olp_name[15], char olp_version[15], char cite_message[255]);
 #ifdef __cplusplus
@@ Line 32: / Line 33: @@
 void OLP_Start(char* fname, int &ierr);
 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 96: / Line 98: @@
     !....
 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
 </code>

Les Houches