next_available_io_id Function

public function next_available_io_id() result(io_id)

Function that provides the next available file unit.

Arguments

None

Return Value integer(kind=ip)

The returned value is not used for output for any other quantity.


Called by

proc~~next_available_io_id~~CalledByGraph proc~next_available_io_id next_available_io_id proc~output_igfb output_igfb proc~output_igfb->proc~next_available_io_id proc~output_cgfb output_cgfb proc~output_cgfb->proc~next_available_io_id proc~sobs_output sobs_output proc~sobs_output->proc~next_available_io_id proc~output_coords output_coords proc~output_coords->proc~next_available_io_id proc~osc_schw_output osc_schw_output proc~osc_schw_output->proc~next_available_io_id proc~output_rgf output_rgf proc~output_rgf->proc~next_available_io_id proc~read_all_modes read_all_modes proc~read_all_modes->proc~next_available_io_id proc~output_rgfb output_rgfb proc~output_rgfb->proc~next_available_io_id proc~sf_output sf_output proc~sf_output->proc~next_available_io_id proc~cobs_output cobs_output proc~cobs_output->proc~next_available_io_id proc~co_output co_output proc~co_output->proc~next_available_io_id proc~output output proc~output->proc~next_available_io_id proc~geod_schw_output geod_schw_output proc~geod_schw_output->proc~next_available_io_id proc~output_cgf output_cgf proc~output_cgf->proc~next_available_io_id interface~output_coords output_coords interface~output_coords->proc~output_coords interface~osc_schw_output osc_schw_output interface~osc_schw_output->proc~osc_schw_output interface~output_rgf output_rgf interface~output_rgf->proc~output_rgf interface~cobs_output cobs_output interface~cobs_output->proc~cobs_output interface~co_output co_output interface~co_output->proc~co_output interface~read_all_modes read_all_modes interface~read_all_modes->proc~read_all_modes interface~geod_schw_output geod_schw_output interface~geod_schw_output->proc~geod_schw_output interface~output_rgfb output_rgfb interface~output_rgfb->proc~output_rgfb interface~sobs_output sobs_output interface~sobs_output->proc~sobs_output interface~sf_output sf_output interface~sf_output->proc~sf_output interface~output_cgfb output_cgfb interface~output_cgfb->proc~output_cgfb interface~output_cgf output_cgf interface~output_cgf->proc~output_cgf interface~output_igfb output_igfb interface~output_igfb->proc~output_igfb

Contents

Source Code


Source Code

  function next_available_io_id () result(io_id)
  !! Function that provides the next available file unit.

    integer(ip) :: io_id
    !! The returned value is not used for output for any other quantity.

!$OMP CRITICAL
    io_id = next_id
    next_id = next_id + 1
!$OMP END CRITICAL

  end function next_available_io_id