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

support Neko #40

Open
2 tasks
jeffhammond opened this issue May 17, 2024 · 0 comments
Open
2 tasks

support Neko #40

jeffhammond opened this issue May 17, 2024 · 0 comments
Assignees
@jeffhammond

Comments

@jeffhammond
Copy link
Owner

Need these:

  • MPI_Get_address
  • MPI_Type_create_struct

https://github.com/ExtremeFLOW/neko

/opt/mpich/llvm/bin/mpifort  -I/home/jehammond/FORTRAN/json-fortran-install/include -I/home/jehammond/vapaa/source -c -o comm/mpi_types.o comm/mpi_types.f90
error: Semantic errors in comm/mpi_types.f90
./comm/mpi_types.f90:123:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(1)%v_xyz, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:125:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(2)%v_xyz, disp(5), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:127:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(3)%v_xyz, disp(7), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:129:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(4)%v_xyz, disp(9), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:131:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(5)%v_xyz, disp(11), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:133:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(6)%v_xyz, disp(13), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:135:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(7)%v_xyz, disp(15), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:137:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_hex%v(8)%v_xyz, disp(17), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:142:18: error: No explicit type declared for 'mpi_aint_diff'
         disp(i) = MPI_Aint_diff(disp(i), base)
                   ^^^^^^^^^^^^^
./comm/mpi_types.f90:165:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_quad%v(1)%v_xyz, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:167:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_quad%v(2)%v_xyz, disp(5), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:169:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_quad%v(3)%v_xyz, disp(7), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:171:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_quad%v(4)%v_xyz, disp(9), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:186:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(9, len, disp, type, MPI_NMSH_QUAD, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:201:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_zone%glb_pt_ids, disp(5), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:214:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(6, len, disp, type, MPI_NMSH_ZONE, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:227:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_curve_el%curve_data, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:228:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(nmsh_curve_el%type, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:242:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(3, len, disp, type, MPI_NMSH_CURVE, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:260:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(4)
      call MPI_Get_address(re2v1_data%rgroup, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:261:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%x, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:262:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%y, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:263:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%z, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:274:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V1_DATA_XYZ, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:281:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(8)
      call MPI_Get_address(re2v2_data%rgroup, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:282:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%x, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:283:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%y, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:284:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%z, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:295:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V2_DATA_XYZ, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:312:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(4)
      call MPI_Get_address(re2v1_data%rgroup, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:313:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%x, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:314:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%y, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:325:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(3, len, disp, type, MPI_RE2V1_DATA_XY, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:332:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(4)
      call MPI_Get_address(re2v2_data%rgroup, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:333:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%x, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:334:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%y, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:345:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(3, len, disp, type, MPI_RE2V2_DATA_XY, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:364:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%point, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:365:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs CHARACTER(KIND=1,LEN=4_8)
      call MPI_Get_address(re2v1_data%type, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:379:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V1_DATA_CV, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:386:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(8)
      call MPI_Get_address(re2v2_data%elem, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:387:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(8)
      call MPI_Get_address(re2v2_data%zone, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:388:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%point, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:389:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs CHARACTER(KIND=1,LEN=8_8)
      call MPI_Get_address(re2v2_data%type, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:403:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V2_DATA_CV, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:422:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v1_data%bc_data, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:423:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs CHARACTER(KIND=1,LEN=4_8)
      call MPI_Get_address(re2v1_data%type, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:437:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V1_DATA_BC, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:444:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(8)
      call MPI_Get_address(re2v2_data%elem, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:445:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs REAL(8)
      call MPI_Get_address(re2v2_data%face, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:446:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(re2v2_data%bc_data, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:447:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs CHARACTER(KIND=1,LEN=8_8)
      call MPI_Get_address(re2v2_data%type, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:461:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(4, len, disp, type, MPI_RE2V2_DATA_BC, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:473:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs CHARACTER(KIND=1,LEN=80_8)
      call MPI_Get_address(stl_hdr%hdr, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:487:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(2, len, disp, type, MPI_STL_HEADER, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:499:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(tri%n, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:500:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(tri%v1, disp(2), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:501:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(tri%v2, disp(3), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:502:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes
      call MPI_Get_address(tri%v3, disp(4), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:503:5: warning: Reference to the procedure 'mpi_get_address' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: INTEGER(4) vs INTEGER(2)
      call MPI_Get_address(tri%attrib, disp(5), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:121:5: previous reference to 'mpi_get_address'
      call MPI_Get_address(nmsh_hex%el_idx, disp(1), ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:516:5: warning: Reference to the procedure 'mpi_type_create_struct' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
      call MPI_Type_create_struct(5, len, disp, type, MPI_STL_TRIANGLE, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./comm/mpi_types.f90:152:5: previous reference to 'mpi_type_create_struct'
      call MPI_Type_create_struct(17, len, disp, type, MPI_NMSH_HEX, ierr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@jeffhammond jeffhammond self-assigned this May 17, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees

@jeffhammond jeffhammond

Labels
None yet
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@jeffhammond