test
|
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