Changeset 182 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran

Timestamp:

04/20/11 18:34:34 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/impi_interface.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/impi_interface.f90

@@ -83 +83 @@
       INTEGER (kind = C_INT)                 :: datatype, count, err
       INTEGER (kind = C_INT) , DIMENSION(mpi_status_size) :: status
-      CALL MPI_GET_COUNT(status, datatype, count, err)
+      
+      ! ATTTENTION GROS BUG ICI  SOUS GNU MAIS PAS INTEL ???????? voir datatype
+      ! PRINT *, datatype, MPI_CHARACTER
+      CALL MPI_GET_COUNT(status, MPI_CHARACTER, count, err)
    END SUBROUTINE xios_mpi_get_count