jeffhammond / vapaa

A standalone implementation of the MPI Fortran 2018 module
MIT License
19 stars 1 forks source link

support Neko #40

Open jeffhammond opened 1 month ago

jeffhammond commented 1 month ago

Need these:

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)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^