OpenAD/code_shallow_openad/maxMinDefs.f

      subroutine ad_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 ad_s_max_r(first,second,result)
      real first, second, result
      if (first .lt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine ad_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 ad_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 ad_s_min_r(first,second,result)
      real first, second, result
      if (first .gt. second) then
         result=second
      else
         result=first
      end if
      end subroutine

      subroutine ad_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 ad_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 ad_s_max_r(first,second,result)
11	real first, second, result
12	if (first .lt. second) then
13	result=second
14	else
15	result=first
16	end if
17	end subroutine
18
19	subroutine ad_s_max_d(first,second,result)
20	double precision first, second, result
21	if (first .lt. second) then
22	result=second
23	else
24	result=first
25	end if
26	end subroutine
27
28	subroutine ad_s_min_i(first,second,result)
29	integer first, second, result
30	if (first .gt. second) then
31	result=second
32	else
33	result=first
34	end if
35	end subroutine
36
37	subroutine ad_s_min_r(first,second,result)
38	real first, second, result
39	if (first .gt. second) then
40	result=second
41	else
42	result=first
43	end if
44	end subroutine
45
46	subroutine ad_s_min_d(first,second,result)
47	double precision first, second, result
48	if (first .gt. second) then
49	result=second
50	else
51	result=first
52	end if
53	end subroutine