In my code, the following function is not being recognised:
ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc)
INTRINSIC LOG10
REAL(kind=dp), INTENT(IN) :: temp ! temperature [K]
REAL(kind=dp), INTENT(IN) :: cair ! air concentration...