befor64_pack_data_m Module

  1. befor64_pack_data_m.F90
  2. befor64_pack_data_m
module~~befor64_pack_data_m~~UsesGraph module~befor64_pack_data_m befor64_pack_data_m module~penf~3 penf module~penf~3->module~befor64_pack_data_m module~penf_global_parameters_variables penf_global_parameters_variables module~penf_global_parameters_variables->module~penf~3 module~penf_b_size~4 penf_b_size module~penf_global_parameters_variables->module~penf_b_size~4 module~penf_stringify~3 penf_stringify module~penf_global_parameters_variables->module~penf_stringify~3 module~penf_b_size~4->module~penf~3 module~penf_b_size~4->module~penf_stringify~3 module~penf_stringify~3->module~penf~3 iso_fortran_env iso_fortran_env iso_fortran_env->module~penf_stringify~3
Help

KISS library for packing heterogeneous data into single (homogeneous) packed one.


Interfaces

Subroutines


Interfaces

public interface pack_data

Pack different kinds of data into single I1P array.

  • private pure subroutine pack_data_R8_R4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R8P), intent(in) :: a1(1:)

    Firs data stream.
    real(kind=R4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R8_I8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R8_I4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R8_I2(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I2P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R8_I1(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I1P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R4_R8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R4P), intent(in) :: a1(1:)

    Firs data stream.
    real(kind=R8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R4_I8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R4_I4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R4_I2(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I2P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_R4_I1(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    real(kind=R4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I1P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I8_R8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I8P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I8_R4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I8P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I8_I4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I8_I2(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I2P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I8_I1(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I8P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I1P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I4_R8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I4P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I4_R4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I4P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I4_I8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I4_I2(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I2P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I4_I1(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I4P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I1P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I2_R8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I2P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I2_R4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I2P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I2_I8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I2P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I2_I4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I2P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I2_I1(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I2P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I1P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I1_R8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I1P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I1_R4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I1P), intent(in) :: a1(1:)

    First data stream.
    real(kind=R4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I1_I8(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I1P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I8P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I1_I4(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I1P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I4P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

  • private pure subroutine pack_data_I1_I2(a1, a2, packed)

    Pack different kinds of data into single I1P array.

    Arguments

    Type IntentOptional AttributesName
    integer(kind=I1P), intent(in) :: a1(1:)

    First data stream.
    integer(kind=I2P), intent(in) :: a2(1:)

    Second data stream.
    integer(kind=I1P), intent(inout), allocatable:: packed(:)

    Packed data into I1P array.

Subroutines

private pure subroutine pack_data_R8_R4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: a1(1:)

Firs data stream.
real(kind=R4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R8_I8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R8_I4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R8_I2(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I2P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R8_I1(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I1P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R4_R8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R4P), intent(in) :: a1(1:)

Firs data stream.
real(kind=R8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R4_I8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R4_I4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R4_I2(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I2P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_R4_I1(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
real(kind=R4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I1P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I8_R8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I8P), intent(in) :: a1(1:)

First data stream.
real(kind=R8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I8_R4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I8P), intent(in) :: a1(1:)

First data stream.
real(kind=R4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I8_I4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I8_I2(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I2P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I8_I1(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I8P), intent(in) :: a1(1:)

First data stream.
integer(kind=I1P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I4_R8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in) :: a1(1:)

First data stream.
real(kind=R8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I4_R4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in) :: a1(1:)

First data stream.
real(kind=R4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I4_I8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I4_I2(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I2P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I4_I1(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in) :: a1(1:)

First data stream.
integer(kind=I1P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I2_R8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: a1(1:)

First data stream.
real(kind=R8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I2_R4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: a1(1:)

First data stream.
real(kind=R4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I2_I8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: a1(1:)

First data stream.
integer(kind=I8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I2_I4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: a1(1:)

First data stream.
integer(kind=I4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I2_I1(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: a1(1:)

First data stream.
integer(kind=I1P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I1_R8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I1P), intent(in) :: a1(1:)

First data stream.
real(kind=R8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I1_R4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I1P), intent(in) :: a1(1:)

First data stream.
real(kind=R4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I1_I8(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I1P), intent(in) :: a1(1:)

First data stream.
integer(kind=I8P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I1_I4(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I1P), intent(in) :: a1(1:)

First data stream.
integer(kind=I4P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

private pure subroutine pack_data_I1_I2(a1, a2, packed)

Pack different kinds of data into single I1P array.

Arguments

Type IntentOptional AttributesName
integer(kind=I1P), intent(in) :: a1(1:)

First data stream.
integer(kind=I2P), intent(in) :: a2(1:)

Second data stream.
integer(kind=I1P), intent(inout), allocatable:: packed(:)

Packed data into I1P array.

All Modules