c     Got ICE on Alpha only with -mieee (currently not tested).
c     Fixed by rth 1998-07-30 alpha.md change.
      subroutine a(b,c)
      b = max(b,c)
      end