Merge pull request #438 from AtChem/fix_c_bind_bug

Fix c-bind bug in update_p()
AtChem · Jan 6, 2021 · be547fc · be547fc
2 parents abf98ac + 6fb2683
commit be547fc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/build/mech_converter.py b/build/mech_converter.py
@@ -432,8 +432,8 @@ def convert(input_file, mech_dir, mcm_dir):
     subroutine update_p(p, q, TEMP, N2, O2, M, RH, H2O, BLHEIGHT, DEC, JFAC, DILUTE, ROOFOPEN, ASA, J, RO2) bind(c,name='update_p')
 
         integer, parameter :: DP = selected_real_kind( p = 15, r = 307 )
-           real(c_double), intent(inout) :: p(:), q(:)
-        real(c_double), intent(in) :: TEMP, N2, O2, M, RH, H2O, BLHEIGHT, DEC, JFAC, DILUTE, ROOFOPEN, ASA, J(:), RO2
+           real(c_double), intent(inout) :: p(*), q(*)
+        real(c_double), intent(in) :: TEMP, N2, O2, M, RH, H2O, BLHEIGHT, DEC, JFAC, DILUTE, ROOFOPEN, ASA, J(*), RO2
         """)
         # Write out Generic Rate Coefficients and Complex reactions
         for item in mechanism_rates_coeff_list:

diff --git a/src/solverFunctions.f90 b/src/solverFunctions.f90
@@ -25,8 +25,8 @@ module solver_functions_mod
   abstract interface
     subroutine called_proc( i, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16 ) bind ( c )
       use, intrinsic :: iso_c_binding
-      real(c_double), intent(inout) :: i(:), i2(:)
-      real(c_double), intent(in) :: i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15(:), i16
+      real(c_double), intent(inout) :: i(*), i2(*)
+      real(c_double), intent(in) :: i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15(*), i16
     end subroutine called_proc
   end interface