37#ifdef HAVE_ADIOS2_FORTRAN
43 logical :: dp_precision = .false.
47#ifdef HAVE_ADIOS2_FORTRAN
48 procedure :: define => buffer_define
49 procedure :: inquire => buffer_inquire
50 procedure :: write => buffer_write
51 procedure :: read => buffer_read
59 subroutine buffer_init(this, precision, gdim, glb_nelv, offset_el, nelv, &
61 class(
buffer_t),
intent(inout) :: this
62 logical,
intent(in) :: precision
63 integer,
intent(in) :: gdim, glb_nelv, offset_el, nelv, lx, ly, lz
67 class(
buffer_t),
intent(inout) :: this
68 integer,
intent(inout) :: n
69 real(kind=
rp),
intent(inout) :: x(n)
72#ifdef HAVE_ADIOS2_FORTRAN
74 subroutine buffer_define(this, variable, io, variable_name, ierr)
75 class(
buffer_t),
intent(inout) :: this
76 type(adios2_variable),
intent(inout) :: variable
77 type(adios2_io),
intent(inout) :: io
78 character(len=*),
intent(in) :: variable_name
79 integer,
intent(inout) :: ierr
80 end subroutine buffer_define
82 subroutine buffer_inquire(this, variable, io, variable_name, ierr)
83 class(
buffer_t),
intent(inout) :: this
84 type(adios2_variable),
intent(inout) :: variable
85 type(adios2_io),
intent(inout) :: io
86 character(len=*),
intent(in) :: variable_name
87 integer,
intent(inout) :: ierr
88 end subroutine buffer_inquire
90 subroutine buffer_write(this, engine, variable, ierr)
91 class(
buffer_t),
intent(inout) :: this
92 type(adios2_engine),
intent(in) :: engine
93 type(adios2_variable),
intent(in) :: variable
94 integer,
intent(inout) :: ierr
95 end subroutine buffer_write
97 subroutine buffer_read(this, engine, variable, ierr)
98 class(
buffer_t),
intent(inout) :: this
99 type(adios2_engine),
intent(in) :: engine
100 type(adios2_variable),
intent(in) :: variable
101 integer,
intent(inout) :: ierr
102 end subroutine buffer_read
107 class(
buffer_t),
intent(inout) :: this
113 logical,
intent(in) :: precision
116 this%dp_precision = precision
Generic buffer that is extended with buffers of varying rank.
subroutine buffer_fill(this, x, n)
subroutine buffer_copy(this, x)
subroutine buffer_init(this, precision, gdim, glb_nelv, offset_el, nelv, lx, ly, lz)
subroutine buffer_set_precision(this, precision)
integer, parameter, public rp
Global precision used in computations.