Generic Procedures

• group a number of procedures with similar functionality (``the overload set'') under one name;
• the compiler decides which specific procedure to call based on the type, number, rank and kind of non-optional arguments (decision made at compile time);
• the overload set must be unambiguous.

 
module gi  
interface plus1  
 module procedure iplus1  
 module procedure rplus1  
 module procedure dplus1  
end interface ! plus1  
contains  
integer function iplus1(x)  
   integer, intent(in) :: x  
   iplus1 = x + 1  
end function iplus1     
real function rplus1(x)  
   real, intent(in) :: x  
   rplus1 = x + 1.0  
end function rplus1     
double precision function dplus1(x)  
   double precision, intent(in) :: x  
   dplus1 = x + 1.0d0  
end function dplus1     
end module gi

The call plus1(2) will return an integer result, while plus1(2.0) will return a real result.