OpenAD/code_shallow_openad3/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	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