befor64_pack_data_m Module


Uses

  • module~~befor64_pack_data_m~~UsesGraph module~befor64_pack_data_m befor64_pack_data_m module~penf~2 penf module~befor64_pack_data_m->module~penf~2 module~penf_b_size penf_b_size module~penf~2->module~penf_b_size module~penf_stringify~3 penf_stringify module~penf~2->module~penf_stringify~3 module~penf_global_parameters_variables~2 penf_global_parameters_variables module~penf~2->module~penf_global_parameters_variables~2 module~penf_b_size->module~penf_global_parameters_variables~2 module~penf_stringify~3->module~penf_b_size module~penf_stringify~3->module~penf_global_parameters_variables~2 iso_fortran_env iso_fortran_env module~penf_stringify~3->iso_fortran_env

Contents


Interfaces

public interface pack_data

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

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: a1(1:)
    real(kind=R4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R8_I8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: a1(1:)
    integer(kind=I8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R8_I4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: a1(1:)
    integer(kind=I4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R8_I2(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: a1(1:)
    integer(kind=I2P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R8_I1(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: a1(1:)
    integer(kind=I1P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R4_R8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: a1(1:)
    real(kind=R8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R4_I8(a1, a2, packed)

    Arguments

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

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: a1(1:)
    integer(kind=I4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R4_I2(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: a1(1:)
    integer(kind=I2P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_R4_I1(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: a1(1:)
    integer(kind=I1P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I8_R8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: a1(1:)
    real(kind=R8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • 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(:)
  • private pure subroutine pack_data_I8_I4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: a1(1:)
    integer(kind=I4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I8_I2(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: a1(1:)
    integer(kind=I2P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I8_I1(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: a1(1:)
    integer(kind=I1P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I4_R8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: a1(1:)
    real(kind=R8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I4_R4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: a1(1:)
    real(kind=R4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I4_I8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: a1(1:)
    integer(kind=I8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I4_I2(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: a1(1:)
    integer(kind=I2P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I4_I1(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: a1(1:)
    integer(kind=I1P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I2_R8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: a1(1:)
    real(kind=R8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I2_R4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: a1(1:)
    real(kind=R4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I2_I8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: a1(1:)
    integer(kind=I8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I2_I4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: a1(1:)
    integer(kind=I4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I2_I1(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: a1(1:)
    integer(kind=I1P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I1_R8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: a1(1:)
    real(kind=R8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I1_R4(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: a1(1:)
    real(kind=R4P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • private pure subroutine pack_data_I1_I8(a1, a2, packed)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: a1(1:)
    integer(kind=I8P), intent(in) :: a2(1:)
    integer(kind=I1P), intent(inout), allocatable:: packed(:)
  • 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(:)
  • private pure subroutine pack_data_I1_I2(a1, a2, packed)

    Arguments

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

Subroutines

private pure subroutine pack_data_R8_R4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R8_I8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R8_I4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R8_I2(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R8_I1(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R4_R8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R4_I8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R4_I4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R4_I2(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_R4_I1(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I8_R8(a1, a2, packed)

Arguments

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

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(:)

private pure subroutine pack_data_I8_I4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I8_I2(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I8_I1(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I4_R8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I4_R4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I4_I8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I4_I2(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I4_I1(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I2_R8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I2_R4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I2_I8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I2_I4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I2_I1(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I1_R8(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I1_R4(a1, a2, packed)

Arguments

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

private pure subroutine pack_data_I1_I8(a1, a2, packed)

Arguments

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

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(:)

private pure subroutine pack_data_I1_I2(a1, a2, packed)

Arguments

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