smumps_iXamax.F File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	smumps_ixamax (n, x, incx, grain)

Function/Subroutine Documentation

smumps_ixamax()

integer function smumps_ixamax	(	integer, intent(in)	n,
		real, dimension(*), intent(in)	x,
		integer, intent(in)	incx,
		integer, intent(in)	grain )

Definition at line 14 of file smumps_iXamax.F.

      IMPLICIT NONE
      REAL, intent(in) :: X(*)
      INTEGER, intent(in) :: INCX,N
      INTEGER, intent(in) :: GRAIN
      INTEGER isamax
      smumps_ixamax = isamax(n,x,incx)
      RETURN