IARGCOUNT ()

  Class:  Inquiry function - Specific

  Returns the count of actual arguments passed to the current
  routine.  The result is of type default integer.  Functions with a
  type of CHARACTER, COMPLEX(KIND=8), REAL(KIND=16), and
  COMPLEX(KIND=16) have an extra argument added that is used to
  return the function value.

  Formal (dummy) arguments that can be omitted must be declared
  VOLATILE.

  Formal arguments of type CHARACTER cannot be omitted.  Formal
  arguments that are adjustable arrays cannot be omitted.

  The standard way to pass and detect omitted arguments is to use the
  Fortran 95 features of OPTIONAL arguments and the PRESENT intrinsic
  function. Note that a declaration must be visible within the
  calling routine.

  The following example shows the IARGCOUNT intrinsic:

     CALL SUB (A,B)
     ...
     SUBROUTINE SUB (X,Y,Z)
     VOLATILE Z
     TYPE *, IARGCOUNT()       ! Displays the value 2