minall Function

function minall(a, b, c, d, e, f, g) result(value)

Uses

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: a
class(*), intent(in) :: b
class(*), intent(in) :: c
class(*), intent(in) :: d
class(*), intent(in) :: e
class(*), intent(in) :: f
class(*), intent(in) :: g

Return Value real(kind=qp)


Source Code

      function minall(a,b,c,d,e,f,g) result (value)
      use M_anything, only : x=>anyscalar_to_real128
      class(*),intent(in) :: a,b,c,d,e,f,g
      real(kind=qp)       :: value
         value=min( x(a),x(b),x(c),x(d),x(e),x(f),x(g) )
      end function minall