[Fortran] Fix compilation error from getReactionType

Cantera · Aug 9, 2022 · c35d0ee · c35d0ee
1 parent 6e0028e
commit c35d0ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fortran/cantera_kinetics.f90 b/src/fortran/cantera_kinetics.f90
@@ -114,13 +114,13 @@ double precision function ctkin_productStoichCoeff(self, k, i)
       ctkin_productstoichcoeff = kin_productstoichcoeff(self%kin_id, k, i)
     end function ctkin_productstoichcoeff
 
-    integer function ctkin_getReactionType(self, i, buf)
+    subroutine ctkin_getReactionType(self, i, buf)
       implicit none
       type(phase_t), intent(inout) :: self
       integer, intent(in) :: i
       character*(*), intent(out) :: buf
       self%err = kin_getreactiontype(self%kin_id, i, buf)
-    end function ctkin_getReactionType
+    end subroutine ctkin_getReactionType
 
     subroutine ctkin_getFwdRatesOfProgress(self, fwdROP)
       implicit none