FUNCTION AMIN1 (A,B)
      AMIN1=A
      IF(B.LT.A) AMIN1=B
      RETURN
      END