new_argument_parser Function

  1. targ.f90
  2. targ
  3. new_argument_parser

public function new_argument_parser(nopt) result(self)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in), optional :: nopt

Return Value type(targ_type)


Contents

Source Code

new_argument_parser

Source Code

function new_argument_parser(nopt) result(self)
   integer, intent(in), optional :: nopt
   type(targ_type) :: self

   self%nopt = 0
   if (present(nopt)) then
      allocate(self%opt(nopt))
   else
      allocate(self%opt(initial_size))
   end if

end function new_argument_parser