Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

trying to fix fortran warning which somehow broke CI #2854

Closed
wants to merge 2 commits into from
Closed

trying to fix fortran warning which somehow broke CI #2854

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
c569e18
trying to fix fortran warning
JasonRuonanWang Sep 9, 2021
35eed1c
fix more fortran warnings
JasonRuonanWang Sep 9, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 6 additions & 2 deletions bindings/Fortran/modules/adios2_io_mod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@ module adios2_io_mod
external adios2_attribute_is_value_f2c
external adios2_attribute_length_f2c
external adios2_attribute_type_f2c
external adios2_available_attributes_f2c
external adios2_available_variables_f2c
external adios2_clear_parameters_f2c
external adios2_flush_all_engines_f2c
external adios2_get_parameter_f2c
Expand All @@ -32,6 +34,8 @@ module adios2_io_mod
external adios2_remove_all_variables_f2c
external adios2_remove_attribute_f2c
external adios2_remove_variable_f2c
external adios2_retrieve_attribute_names_f2c
external adios2_retrieve_variable_names_f2c
external adios2_set_engine_f2c
external adios2_set_parameter_f2c
external adios2_set_parameters_f2c
Expand Down Expand Up @@ -246,10 +250,10 @@ subroutine adios2_available_attributes(io, nattrs, attrnamelist, ierr)
max_name_len, ierr)
if (ierr == 0) then
allocate(character(len=max_name_len) :: attrnamelist(count))
call adios2_retrieve_attribute_names_f2c(namestruct, count, &
max_name_len, attrnamelist, ierr)
endif

call adios2_retrieve_attribute_names_f2c(namestruct, count, &
max_name_len, attrnamelist, ierr)
nattrs = count
end subroutine

Expand Down