max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Close to having Basic callback working.

Browse Source 
Need to test Fortran, C, and C++.

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@9437 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
David L Parkhurst 2015-03-31 21:39:10 +00:00
parent 099e2fe058
commit 0fbbf16cba
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/IPhreeqc_interface.F90
View File

@ -824,7 +824,7 @@ INTEGER FUNCTION SetBasicFortranCallback(id, fcn)
INTEGER, INTENT(in) :: id
INTERFACE
DOUBLE PRECISION FUNCTION fcn(x1, x2, str, l)
INTEGER, INTENT(in) :: l
INTEGER, INTENT(in) :: l
DOUBLE PRECISION, INTENT(in) :: x1, x2
CHARACTER, INTENT(in) :: str(*)
END FUNCTION fcn
@ -834,8 +834,8 @@ INTEGER FUNCTION SetBasicFortranCallback(id, fcn)
INTEGER, INTENT(in) :: id
INTERFACE
DOUBLE PRECISION FUNCTION fcn(x1, x2, str, l)
INTEGER, INTENT(in) :: l
REAL, INTENT(in) :: x1, x2
INTEGER, INTENT(in) :: l
DOUBLE PRECISION, INTENT(in) :: x1, x2
CHARACTER, INTENT(in) :: str(*)
END FUNCTION fcn
END INTERFACE
@ -856,9 +856,9 @@ INTEGER FUNCTION SetBasicFortranCallback(id, fcn)
REAL(KIND=C_DOUBLE) FUNCTION fcn(x1, x2, str, l) BIND(C)
USE ISO_C_BINDING
IMPLICIT none
REAL(KIND=C_DOUBLE), INTENT(in) :: x1, x2
REAL(KIND=C_DOUBLE), INTENT(in) :: x1, x2
CHARACTER(KIND=C_CHAR), INTENT(in) :: str(*)
INTEGER(KIND=C_INT), INTENT(in) :: l
INTEGER(KIND=C_INT), INTENT(in), value :: l
END FUNCTION fcn
END INTERFACE
END FUNCTION SetBasicFortranCallbackF
@ -868,9 +868,9 @@ INTEGER FUNCTION SetBasicFortranCallback(id, fcn)
REAL(KIND=C_DOUBLE) FUNCTION fcn(x1, x2, str, l) BIND(C)
USE ISO_C_BINDING
IMPLICIT none
REAL(KIND=C_DOUBLE), INTENT(in) :: x1, x2
REAL(KIND=C_DOUBLE), INTENT(in) :: x1, x2
CHARACTER(KIND=C_CHAR), INTENT(in) :: str(*)
INTEGER(KIND=C_INT), INTENT(in) :: l
INTEGER(KIND=C_INT), INTENT(in), value :: l
END FUNCTION fcn
END INTERFACE
SetBasicFortranCallback = SetBasicFortranCallbackF(id, fcn)