test
maths.f90
Aller à la documentation de ce fichier.
00001 module maths
00002 
00003 use precision
00004 
00005 implicit none
00006 
00007 contains
00008 
00009 subroutine func(a,b,c,d)
00010 
00011 implicit none
00012 
00013 integer, intent(in) :: a, b
00014 integer, intent(out) :: c, d
00015 
00016 call add(a,b,c)
00017 d = plus(a,b)
00018 
00019 end subroutine func
00020 
00021 
00022 subroutine add(a,b,c)
00023 
00024 implicit none
00025 
00026 integer, intent(in) :: a, b
00027 integer, intent(out) :: c
00028 
00029 c = a+b
00030 
00031 end subroutine add
00032 
00033 
00034 integer function plus(a,b)
00035 
00036 implicit none
00037 
00038 integer, intent(in) :: a, b
00039 
00040 plus = a + b
00041 
00042 end function plus
00043 
00044 
00045 end module maths