copy_record Function

private pure function copy_record(me, idx) result(flux_data)

Copy a single record from the space weather data

Type Bound

sw_data_type

Arguments

Type IntentOptional Attributes Name
class(sw_data_type), intent(in) :: me
integer(kind=ip), intent(in) :: idx

Index of the record to copy

Return Value type(flux_data_type)

Output flux data structure


Called by

proc~~copy_record~~CalledByGraph proc~copy_record sw_data_type%copy_record proc~sw_get_flux_data sw_data_type%sw_get_flux_data proc~sw_get_flux_data->proc~copy_record proc~jacchia_roberts_density jacchia_roberts_type%jacchia_roberts_density proc~jacchia_roberts_density->proc~sw_get_flux_data proc~prepare_flux_data prepare_flux_data proc~jacchia_roberts_density->proc~prepare_flux_data proc~prepare_flux_data->proc~sw_get_flux_data

Source Code

   pure function copy_record(me, idx) result(flux_data)
      class(sw_data_type), intent(in) :: me
      integer(ip), intent(in) :: idx !! Index of the record to copy
      type(flux_data_type) :: flux_data !! Output flux data structure

      flux_data%mjd           = me%mjd(idx)
      flux_data%f107_obs      = me%f107_obs(idx)
      flux_data%f107_adj      = me%f107_adj(idx)
      flux_data%f107a_obs_ctr = me%f107a_obs_ctr(idx)
      flux_data%f107a_adj_ctr = me%f107a_adj_ctr(idx)
      flux_data%kp            = me%kp(:, idx)
      flux_data%ap_avg        = me%ap_avg(idx)
   end function copy_record