Skip to content
Snippets Groups Projects

Draft: adding cpp version of codes

Open Pradipta Samanta requested to merge feature-add-cpp-codes into main
1 unresolved thread
4 files
+ 40
16
Compare changes
  • Side-by-side
  • Inline
Files
4
@@ -79,7 +79,11 @@ MODULE mo_math_utilities
PUBLIC :: line_intersect
PUBLIC :: lintersect
PUBLIC :: tdma_solver
#ifndef __USE_CPP_BINDINGS
PUBLIC :: tdma_solver_vec
#else
PUBLIC :: tdma_solver_vec_double
#endif
PUBLIC :: check_orientation
! vertical coordinates routines
@@ -242,14 +246,14 @@ CONTAINS
! C++ binding for tdma_solver_vec
INTERFACE
SUBROUTINE tdma_solver_vec(a, b, c, d, slev, elev, startidx, endidx, nrows, ncols, varout, opt_acc_queue) &
BIND(C, NAME="tdma_solver_vec")
SUBROUTINE tdma_solver_vec_double(a, b, c, d, slev, elev, startidx, endidx, nrows, ncols, varout, opt_acc_queue) &
BIND(C, NAME="tdma_solver_vec_double")
IMPORT :: c_double, c_int
REAL(c_double), INTENT(IN) :: a(*), b(*), c(*), d(*)
INTEGER(c_int), VALUE :: slev, elev, startidx, endidx, nrows, ncols
REAL(c_double), INTENT(OUT) :: varout(*)
INTEGER(c_int), OPTIONAL :: opt_acc_queue
END SUBROUTINE tdma_solver_vec
END SUBROUTINE tdma_solver_vec_double
END INTERFACE
CONTAINS
Loading