newunit Function

public function newunit() result(nu)

Helper function to provide new unit, as long as F2008 newunit argument in open statement is not commonly available. To be used right in front of the open statement like this: myUnit = newunit() open(myUnit, ...)

Arguments

None

Return Value integer


Called by

proc~~newunit~~CalledByGraph proc~newunit newunit proc~tem_open tem_open proc~tem_open->proc~newunit proc~my_status_string my_status_string proc~my_status_string->proc~newunit proc~tem_restart_writeheader tem_restart_writeHeader proc~tem_restart_writeheader->proc~newunit proc~tem_connect_tonull tem_connect_toNull proc~tem_connect_tonull->proc~newunit proc~tem_probing_write tem_probing_write proc~tem_probing_write->proc~newunit proc~tem_logging_init_logger tem_logging_init_logger proc~tem_logging_init_logger->proc~newunit proc~my_status_string_vec my_status_string_vec proc~my_status_string_vec->proc~newunit proc~print_self_status print_self_status proc~print_self_status->proc~newunit proc~tem_init_restart tem_init_restart proc~tem_init_restart->proc~newunit proc~tem_stop_file_exists tem_stop_file_exists proc~tem_stop_file_exists->proc~newunit proc~tem_probing_delete tem_probing_delete proc~tem_probing_delete->proc~newunit

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private, parameter:: nu_start =22
logical, private :: connected