OpenAD/code_shallow_openad/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.3	subroutine oad_s_max_i(first,second,result)
2	heimbach	1.1	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	utke	1.3	subroutine oad_s_max_r(first,second,result)
11	utke	1.2	c real first, second, result
12			double precision first, second, result
13	heimbach	1.1	if (first .lt. second) then
14			result=second
15			else
16			result=first
17			end if
18			end subroutine
19
20	utke	1.3	subroutine oad_s_max_d(first,second,result)
21	heimbach	1.1	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	utke	1.3	subroutine oad_s_min_i(first,second,result)
30	heimbach	1.1	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	utke	1.3	subroutine oad_s_min_r(first,second,result)
39	utke	1.2	c real first, second, result
40			double precision first, second, result
41	heimbach	1.1	if (first .gt. second) then
42			result=second
43			else
44			result=first
45			end if
46			end subroutine
47
48	utke	1.3	subroutine oad_s_min_d(first,second,result)
49	heimbach	1.1	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