Fortran: adios2_type_string_array

[sprock]

Hello,
I see that the variable type in the title is not present in 2.10.x (notwithstanding what the docs say). Is there somewhere an example showing how to store an array of strings in an attribute?

Thanks,
Sprock

[pnorbert]

Sorry for having that outdated documentation.
attribute%type is adios2_type_string and attribute%length is the number of elements in the array, and attributes%is_value is .false. for array attributes.

The testing/adios2/bindings/fortran/TestBPWriteReadAttributes.F90 writes a string array (ctest -R Bindings.Fortran.BPWriteReadAttributes.MPI)

    character(len=15), parameter, dimension(3) :: data_Strings = &
                                                  (/'Attribute oneXX', 'Attribute twoXX', 'Attribute three'/)
...
    type(adios2_attribute), dimension(14) :: attributes
...
    call adios2_define_attribute(attributes(8), ioWrite, 'att_Strings_array', &
                                 data_Strings, 3, ierr)

Output:

$ bpls -la testing/adios2/bindings/fortran/fattr_types.bp
...
  string   att_Strings_array  attr   = {"Attribute oneXX", "Attribute twoXX", "Attribute three"}

Reading side

    character(len=15), dimension(3):: iString_array
    type(adios2_attribute), dimension(14) :: attributes_in
...
    call adios2_inquire_attribute(attributes_in(8), ioRead, 'att_Strings_array', ierr) 

    if(attributes_in(8)%valid .eqv. .false.) then
       write(*,*) 'attribute string array not found'
       stop 1
    end if
    if(attributes_in(8)%type /= adios2_type_string) then
       write(*,*) 'attribute string array wrong type'
       stop 1
    end if
    if(attributes_in(8)%length /= 3) then
       write(*,*) 'attribute string array length is not 3'
       stop 1
    end if
    if(attributes_in(8)%is_value .eqv. .true.) then
       write(*,*) 'attribute string array must be array'
       stop 1
    end if
    call adios2_attribute_data( iString_array, attributes_in(8), ierr)
    do i=1,3
       if( iString_array(i) /= data_Strings(i) ) then
          write(*,*) 'attribute string array data error'
          stop 1
       end if
    end do