module sum_mod
  use kind
  implicit none
  
  
contains 
  function summing(a,b) result(c)
    REAL(dp),intent(in)::a,b
    real(dp)::c
    
    c=a+b
  end function summing
end module sum_mod