input_unit_exist Function

private function input_unit_exist(nml, exist)

Determine if a particular namelist already opened.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: nml

Namelist to be opened.
logical, intent(out) :: exist

Determination if namelist is open.

Return Value integer

I/O dummy indices.


Called by

proc~~input_unit_exist~2~~CalledByGraph proc~input_unit_exist~2 input_unit_exist proc~get_indexed_double_namelist_unit get_indexed_double_namelist_unit proc~get_indexed_double_namelist_unit->proc~input_unit_exist~2 proc~get_indexed_namelist_unit~2 get_indexed_namelist_unit proc~get_indexed_namelist_unit~2->proc~input_unit_exist~2 proc~init_param init_param proc~init_param->proc~get_indexed_double_namelist_unit proc~init_param->proc~get_indexed_namelist_unit~2 program~alps alps program~alps->proc~init_param