pack_data_I8_R4 Subroutine

  1. befor64_pack_data_m.F90
  2. befor64_pack_data_m
  3. pack_data_I8_R4

private pure subroutine pack_data_I8_R4(a1, a2, packed)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: a1(1:)
real(kind=R4P), intent(in) :: a2(1:)
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Called by

proc~~pack_data_i8_r4~4~~CalledByGraph proc~pack_data_i8_r4~4 pack_data_I8_R4 interface~pack_data~4 pack_data interface~pack_data~4->proc~pack_data_i8_r4~4

Contents

Source Code

pack_data_I8_R4

Source Code

   pure subroutine pack_data_I8_R4(a1, a2, packed)
   !< Pack different kinds of data into single I1P array.
   !<
   !<```fortran
   !< use befor64
   !< use penf
   !< integer(I8P)              :: a1(1)
   !< real(R4P)                 :: a2(1)
   !< integer(I1P), allocatable :: pack(:)
   !< a1(1) = 0
   !< a2(1) = 1
   !< call pack_data(a1=a1, a2=a2, packed=pack)
   !< print *, pack(size(pack, dim=1))
   !<```
   !=> 63 <<<
   integer(I8P),              intent(in)    :: a1(1:)    !< First data stream.
   real(R4P),                 intent(in)    :: a2(1:)    !< Second data stream.
   integer(I1P), allocatable, intent(inout) :: packed(:) !< Packed data into I1P array.
   integer(I1P), allocatable                :: p1(:)     !< Temporary packed data of first stream.
   integer(I1P), allocatable                :: p2(:)     !< Temporary packed data of second stream.

   p1 = transfer(a1,p1)
   p2 = transfer(a2,p2)
   packed = [p1,p2]
   endsubroutine pack_data_I8_R4