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	heimbach	1.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