cla__init_find_subc Subroutine

private subroutine cla__init_find_subc(cla)

Prepare subcommands for the find command.

Type Bound

cla_t

Arguments

Type IntentOptional Attributes Name
class(cla_t), intent(inout) :: cla

Source Code

   subroutine cla__init_find_subc(cla)
      implicit none
      class(cla_t), intent(inout) :: cla

      allocate(cla%cmd%subc(NUM_SUBC_FIND))
      cla%cmd%subc(1) = SUBC_MATCH
   end subroutine cla__init_find_subc