OpenAD/code_heat_transport_MPI/maxMinDefs.f

      subroutine oad_s_max_i(first,second,result)
      integer first, second, result
      if (first .lt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine oad_s_max_r(first,second,result)
c      real first, second, result
      double precision first, second, result
      if (first .lt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine oad_s_max_d(first,second,result)
      double precision first, second, result
      if (first .lt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine oad_s_min_i(first,second,result)
      integer first, second, result
      if (first .gt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine oad_s_min_r(first,second,result)
c      real first, second, result
      double precision first, second, result
      if (first .gt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine oad_s_min_d(first,second,result)
      double precision first, second, result
      if (first .gt. second) then
         result=second
      else
         result=first
      end if
      end subroutine
1	utke	1.1	subroutine oad_s_max_i(first,second,result)
2			integer first, second, result
3			if (first .lt. second) then
4			result=second
5			else
6			result=first
7			end if
8			end subroutine
9
10			subroutine oad_s_max_r(first,second,result)
11			c real first, second, result
12			double precision first, second, result
13			if (first .lt. second) then
14			result=second
15			else
16			result=first
17			end if
18			end subroutine
19
20			subroutine oad_s_max_d(first,second,result)
21			double precision first, second, result
22			if (first .lt. second) then
23			result=second
24			else
25			result=first
26			end if
27			end subroutine
28
29			subroutine oad_s_min_i(first,second,result)
30			integer first, second, result
31			if (first .gt. second) then
32			result=second
33			else
34			result=first
35			end if
36			end subroutine
37
38			subroutine oad_s_min_r(first,second,result)
39			c real first, second, result
40			double precision first, second, result
41			if (first .gt. second) then
42			result=second
43			else
44			result=first
45			end if
46			end subroutine
47
48			subroutine oad_s_min_d(first,second,result)
49			double precision first, second, result
50			if (first .gt. second) then
51			result=second
52			else
53			result=first
54			end if
55			end subroutine