pack_data_I1_I4 Subroutine

  1. befor64_pack_data_m.F90
  2. befor64_pack_data_m
  3. pack_data_I1_I4

private pure subroutine pack_data_I1_I4(a1, a2, packed)

Arguments

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

Called by

proc~~pack_data_i1_i4~2~~CalledByGraph proc~pack_data_i1_i4~2 pack_data_I1_I4 interface~pack_data~2 pack_data interface~pack_data~2->proc~pack_data_i1_i4~2

Contents

Source Code

pack_data_I1_I4

Source Code

   pure subroutine pack_data_I1_I4(a1, a2, packed)
   !< Pack different kinds of data into single I1P array.
   !<
   !<```fortran
   !< use befor64
   !< use penf
   !< integer(I1P)              :: a1(1)
   !< integer(I4P)              :: a2(1)
   !< integer(I1P), allocatable :: pack(:)
   !< a1(1) = 0
   !< a2(1) = 1
   !< call pack_data(a1=a1, a2=a2, packed=pack)
   !< print *, pack(2)
   !<```
   !=> 1 <<<
   integer(I1P),              intent(in)    :: a1(1:)    !< First data stream.
   integer(I4P),              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_I1_I4