feed_real_record64 Subroutine

private pure subroutine feed_real_record64(state, class_code, sign_code, expo, mantissa)

Feed the fixed 14-byte canonical record of one real value.

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: state
integer(kind=int64), intent(in) :: class_code

One of the CLASS_* codes.
integer(kind=int64), intent(in) :: sign_code

1 for a negative finite value, 0 otherwise.
integer(kind=int64), intent(in) :: expo

Binary exponent; 0 unless the value is finite and non-zero.
integer(kind=int64), intent(in) :: mantissa

Scaled integer mantissa; 0 unless the value is finite and non-zero.

Calls

proc~~feed_real_record64~~CallsGraph proc~feed_real_record64 feed_real_record64 proc~feed_integer64 feed_integer64 proc~feed_real_record64->proc~feed_integer64 proc~fnv1a_byte64 fnv1a_byte64 proc~feed_integer64->proc~fnv1a_byte64 proc~u64_add u64_add proc~fnv1a_byte64->proc~u64_add

Called by

proc~~feed_real_record64~~CalledByGraph proc~feed_real_record64 feed_real_record64 proc~feed_real_dp64 feed_real_dp64 proc~feed_real_dp64->proc~feed_real_record64 proc~feed_real_sp64 feed_real_sp64 proc~feed_real_sp64->proc~feed_real_record64 proc~update64_cdp_0 array_hash64_t%update64_cdp_0 proc~update64_cdp_0->proc~feed_real_dp64 proc~update64_cdp_1 array_hash64_t%update64_cdp_1 proc~update64_cdp_1->proc~feed_real_dp64 proc~update64_csp_0 array_hash64_t%update64_csp_0 proc~update64_csp_0->proc~feed_real_sp64 proc~update64_csp_1 array_hash64_t%update64_csp_1 proc~update64_csp_1->proc~feed_real_sp64 proc~update64_rdp_0 array_hash64_t%update64_rdp_0 proc~update64_rdp_0->proc~feed_real_dp64 proc~update64_rdp_1 array_hash64_t%update64_rdp_1 proc~update64_rdp_1->proc~feed_real_dp64 proc~update64_rsp_0 array_hash64_t%update64_rsp_0 proc~update64_rsp_0->proc~feed_real_sp64 proc~update64_rsp_1 array_hash64_t%update64_rsp_1 proc~update64_rsp_1->proc~feed_real_sp64 none~update~2 array_hash64_t%update none~update~2->proc~update64_cdp_0 none~update~2->proc~update64_cdp_1 none~update~2->proc~update64_csp_0 none~update~2->proc~update64_csp_1 none~update~2->proc~update64_rdp_0 none~update~2->proc~update64_rdp_1 none~update~2->proc~update64_rsp_0 none~update~2->proc~update64_rsp_1 proc~update64_cdp_2 array_hash64_t%update64_cdp_2 none~update~2->proc~update64_cdp_2 proc~update64_cdp_3 array_hash64_t%update64_cdp_3 none~update~2->proc~update64_cdp_3 proc~update64_char_1 array_hash64_t%update64_char_1 none~update~2->proc~update64_char_1 proc~update64_csp_2 array_hash64_t%update64_csp_2 none~update~2->proc~update64_csp_2 proc~update64_csp_3 array_hash64_t%update64_csp_3 none~update~2->proc~update64_csp_3 proc~update64_int16_2 array_hash64_t%update64_int16_2 none~update~2->proc~update64_int16_2 proc~update64_int16_3 array_hash64_t%update64_int16_3 none~update~2->proc~update64_int16_3 proc~update64_int32_2 array_hash64_t%update64_int32_2 none~update~2->proc~update64_int32_2 proc~update64_int32_3 array_hash64_t%update64_int32_3 none~update~2->proc~update64_int32_3 proc~update64_int64_2 array_hash64_t%update64_int64_2 none~update~2->proc~update64_int64_2 proc~update64_int64_3 array_hash64_t%update64_int64_3 none~update~2->proc~update64_int64_3 proc~update64_int8_2 array_hash64_t%update64_int8_2 none~update~2->proc~update64_int8_2 proc~update64_int8_3 array_hash64_t%update64_int8_3 none~update~2->proc~update64_int8_3 proc~update64_logical_2 array_hash64_t%update64_logical_2 none~update~2->proc~update64_logical_2 proc~update64_logical_3 array_hash64_t%update64_logical_3 none~update~2->proc~update64_logical_3 proc~update64_rdp_2 array_hash64_t%update64_rdp_2 none~update~2->proc~update64_rdp_2 proc~update64_rdp_3 array_hash64_t%update64_rdp_3 none~update~2->proc~update64_rdp_3 proc~update64_rsp_2 array_hash64_t%update64_rsp_2 none~update~2->proc~update64_rsp_2 proc~update64_rsp_3 array_hash64_t%update64_rsp_3 none~update~2->proc~update64_rsp_3 proc~hash64_cdp_1 hash64_cdp_1 proc~hash64_cdp_1->none~update~2 proc~hash64_cdp_2 hash64_cdp_2 proc~hash64_cdp_2->none~update~2 proc~hash64_cdp_3 hash64_cdp_3 proc~hash64_cdp_3->none~update~2 proc~hash64_char_0 hash64_char_0 proc~hash64_char_0->none~update~2 proc~hash64_char_1 hash64_char_1 proc~hash64_char_1->none~update~2 proc~hash64_csp_1 hash64_csp_1 proc~hash64_csp_1->none~update~2 proc~hash64_csp_2 hash64_csp_2 proc~hash64_csp_2->none~update~2 proc~hash64_csp_3 hash64_csp_3 proc~hash64_csp_3->none~update~2 proc~hash64_int16_1 hash64_int16_1 proc~hash64_int16_1->none~update~2 proc~hash64_int16_2 hash64_int16_2 proc~hash64_int16_2->none~update~2 proc~hash64_int16_3 hash64_int16_3 proc~hash64_int16_3->none~update~2 proc~hash64_int32_1 hash64_int32_1 proc~hash64_int32_1->none~update~2 proc~hash64_int32_2 hash64_int32_2 proc~hash64_int32_2->none~update~2 proc~hash64_int32_3 hash64_int32_3 proc~hash64_int32_3->none~update~2 proc~hash64_int64_1 hash64_int64_1 proc~hash64_int64_1->none~update~2 proc~hash64_int64_2 hash64_int64_2 proc~hash64_int64_2->none~update~2 proc~hash64_int64_3 hash64_int64_3 proc~hash64_int64_3->none~update~2 proc~hash64_int8_1 hash64_int8_1 proc~hash64_int8_1->none~update~2 proc~hash64_int8_2 hash64_int8_2 proc~hash64_int8_2->none~update~2 proc~hash64_int8_3 hash64_int8_3 proc~hash64_int8_3->none~update~2 proc~hash64_logical_1 hash64_logical_1 proc~hash64_logical_1->none~update~2 proc~hash64_logical_2 hash64_logical_2 proc~hash64_logical_2->none~update~2 proc~hash64_logical_3 hash64_logical_3 proc~hash64_logical_3->none~update~2 proc~hash64_rdp_1 hash64_rdp_1 proc~hash64_rdp_1->none~update~2 proc~hash64_rdp_2 hash64_rdp_2 proc~hash64_rdp_2->none~update~2 proc~hash64_rdp_3 hash64_rdp_3 proc~hash64_rdp_3->none~update~2 proc~hash64_rsp_1 hash64_rsp_1 proc~hash64_rsp_1->none~update~2 proc~hash64_rsp_2 hash64_rsp_2 proc~hash64_rsp_2->none~update~2 proc~hash64_rsp_3 hash64_rsp_3 proc~hash64_rsp_3->none~update~2 proc~soa_hash64_int32_field soa_hash64_int32_field proc~soa_hash64_int32_field->none~update~2 proc~soa_hash64_int64_field soa_hash64_int64_field proc~soa_hash64_int64_field->none~update~2 proc~soa_hash64_logical_field soa_hash64_logical_field proc~soa_hash64_logical_field->none~update~2 proc~soa_hash64_real_dp_field soa_hash64_real_dp_field proc~soa_hash64_real_dp_field->none~update~2 proc~soa_hash64_real_sp_field soa_hash64_real_sp_field proc~soa_hash64_real_sp_field->none~update~2 proc~soa_hash_begin_64 soa_hash_begin_64 proc~soa_hash_begin_64->none~update~2 proc~update64_cdp_2->none~update~2 proc~update64_cdp_3->none~update~2 proc~update64_char_1->none~update~2 proc~update64_csp_2->none~update~2 proc~update64_csp_3->none~update~2 proc~update64_int16_2->none~update~2 proc~update64_int16_3->none~update~2 proc~update64_int32_2->none~update~2 proc~update64_int32_3->none~update~2 proc~update64_int64_2->none~update~2 proc~update64_int64_3->none~update~2 proc~update64_int8_2->none~update~2 proc~update64_int8_3->none~update~2 proc~update64_logical_2->none~update~2 proc~update64_logical_3->none~update~2 proc~update64_rdp_2->none~update~2 proc~update64_rdp_3->none~update~2 proc~update64_rsp_2->none~update~2 proc~update64_rsp_3->none~update~2 interface~array_hash64 array_hash64 interface~array_hash64->proc~hash64_cdp_1 interface~array_hash64->proc~hash64_cdp_2 interface~array_hash64->proc~hash64_cdp_3 interface~array_hash64->proc~hash64_char_0 interface~array_hash64->proc~hash64_char_1 interface~array_hash64->proc~hash64_csp_1 interface~array_hash64->proc~hash64_csp_2 interface~array_hash64->proc~hash64_csp_3 interface~array_hash64->proc~hash64_int16_1 interface~array_hash64->proc~hash64_int16_2 interface~array_hash64->proc~hash64_int16_3 interface~array_hash64->proc~hash64_int32_1 interface~array_hash64->proc~hash64_int32_2 interface~array_hash64->proc~hash64_int32_3 interface~array_hash64->proc~hash64_int64_1 interface~array_hash64->proc~hash64_int64_2 interface~array_hash64->proc~hash64_int64_3 interface~array_hash64->proc~hash64_int8_1 interface~array_hash64->proc~hash64_int8_2 interface~array_hash64->proc~hash64_int8_3 interface~array_hash64->proc~hash64_logical_1 interface~array_hash64->proc~hash64_logical_2 interface~array_hash64->proc~hash64_logical_3 interface~array_hash64->proc~hash64_rdp_1 interface~array_hash64->proc~hash64_rdp_2 interface~array_hash64->proc~hash64_rdp_3 interface~array_hash64->proc~hash64_rsp_1 interface~array_hash64->proc~hash64_rsp_2 interface~array_hash64->proc~hash64_rsp_3 interface~soa_hash_begin soa_hash_begin interface~soa_hash_begin->proc~soa_hash_begin_64 interface~soa_hash_field soa_hash_field interface~soa_hash_field->proc~soa_hash64_int32_field interface~soa_hash_field->proc~soa_hash64_int64_field interface~soa_hash_field->proc~soa_hash64_logical_field interface~soa_hash_field->proc~soa_hash64_real_dp_field interface~soa_hash_field->proc~soa_hash64_real_sp_field

Source Code

   pure subroutine feed_real_record64(state, class_code, sign_code, expo, mantissa)
      !! Feed the fixed 14-byte canonical record of one real value.
      integer(int64), intent(inout) :: state
      integer(int64), intent(in) :: class_code
         !! One of the CLASS_* codes.
      integer(int64), intent(in) :: sign_code
         !! 1 for a negative finite value, 0 otherwise.
      integer(int64), intent(in) :: expo
         !! Binary exponent; 0 unless the value is finite and non-zero.
      integer(int64), intent(in) :: mantissa
         !! Scaled integer mantissa; 0 unless the value is finite and non-zero.

      call feed_integer64(state, class_code, 1_default_int)
      call feed_integer64(state, sign_code, 1_default_int)
      call feed_integer64(state, expo, 4_default_int)
      call feed_integer64(state, mantissa, 8_default_int)
   end subroutine feed_real_record64