X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/8f40f9f58e06254d6616be4ce9c5db867546c6ad..7732de61a2ce4aab721ec4ae2e737a5761a530f1:/src/smpi/smpi_f77.cpp

diff --git a/src/smpi/smpi_f77.cpp b/src/smpi/smpi_f77.cpp
index 93dfe83e16..9b2aaac760 100644
--- a/src/smpi/smpi_f77.cpp
+++ b/src/smpi/smpi_f77.cpp
@@ -6,7 +6,7 @@
 
 #include <limits.h>
 #include <stdio.h>
-
+#include "smpi_mpi_dt_private.h"
 #include "private.h"
 #include "xbt.h"
 
@@ -66,43 +66,44 @@ static void smpi_init_fortran_types(){
      datatype_lookup = xbt_dict_new_homogeneous(NULL);
      win_lookup = xbt_dict_new_homogeneous(NULL);
      info_lookup = xbt_dict_new_homogeneous(NULL);
-     smpi_type_c2f(MPI_BYTE);
-     smpi_type_c2f(MPI_CHAR);
+     smpi_type_c2f(MPI_BYTE);//MPI_BYTE
+     smpi_type_c2f(MPI_CHAR);//MPI_CHARACTER
      #if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
-     smpi_type_c2f(MPI_INT);
-     smpi_type_c2f(MPI_INT);
+     smpi_type_c2f(MPI_INT);//MPI_LOGICAL
+     smpi_type_c2f(MPI_INT);//MPI_INTEGER
      #else
-     smpi_type_c2f(MPI_LONG);
-     smpi_type_c2f(MPI_LONG);
+     smpi_type_c2f(MPI_LONG);//MPI_LOGICAL
+     smpi_type_c2f(MPI_LONG);//MPI_INTEGER
      #endif
-     smpi_type_c2f(MPI_INT8_T);
-     smpi_type_c2f(MPI_INT16_T);
-     smpi_type_c2f(MPI_INT32_T);
-     smpi_type_c2f(MPI_INT64_T);
-     smpi_type_c2f(MPI_FLOAT);
-     smpi_type_c2f(MPI_FLOAT);
-     smpi_type_c2f(MPI_DOUBLE);
-     smpi_type_c2f(MPI_DOUBLE);
-     smpi_type_c2f(MPI_C_FLOAT_COMPLEX);
-     smpi_type_c2f(MPI_C_DOUBLE_COMPLEX);
+     smpi_type_c2f(MPI_INT8_T);//MPI_INTEGER1
+     smpi_type_c2f(MPI_INT16_T);//MPI_INTEGER2
+     smpi_type_c2f(MPI_INT32_T);//MPI_INTEGER4
+     smpi_type_c2f(MPI_INT64_T);//MPI_INTEGER8
+     smpi_type_c2f(MPI_FLOAT);//MPI_REAL
+     smpi_type_c2f(MPI_FLOAT);//MPI_REAL4
+     smpi_type_c2f(MPI_DOUBLE);//MPI_REAL8
+     smpi_type_c2f(MPI_DOUBLE);//MPI_DOUBLE_PRECISION
+     smpi_type_c2f(MPI_C_FLOAT_COMPLEX);//MPI_COMPLEX
+     smpi_type_c2f(MPI_C_DOUBLE_COMPLEX);//MPI_DOUBLE_COMPLEX
      #if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
-     smpi_type_c2f(MPI_2INT);
+     smpi_type_c2f(MPI_2INT);//MPI_2INTEGER
      #else
-     smpi_type_c2f(MPI_2LONG);
+     smpi_type_c2f(MPI_2LONG);//MPI_2INTEGER
      #endif
-     smpi_type_c2f(MPI_UINT8_T);
-     smpi_type_c2f(MPI_UINT16_T);
-     smpi_type_c2f(MPI_UINT32_T);
-     smpi_type_c2f(MPI_UINT64_T);
-     smpi_type_c2f(MPI_2FLOAT);
-     smpi_type_c2f(MPI_2DOUBLE);
-     smpi_type_c2f(MPI_DOUBLE);
-     smpi_type_c2f(MPI_DOUBLE);
-     smpi_type_c2f(MPI_INT);
-     smpi_type_c2f(MPI_DATATYPE_NULL);
-     smpi_type_c2f(MPI_DATATYPE_NULL);
-     smpi_type_c2f(MPI_DATATYPE_NULL);
-     smpi_type_c2f(MPI_DATATYPE_NULL);
+     smpi_type_c2f(MPI_UINT8_T);//MPI_LOGICAL1
+     smpi_type_c2f(MPI_UINT16_T);//MPI_LOGICAL2
+     smpi_type_c2f(MPI_UINT32_T);//MPI_LOGICAL4
+     smpi_type_c2f(MPI_UINT64_T);//MPI_LOGICAL8
+     smpi_type_c2f(MPI_2FLOAT);//MPI_2REAL
+     smpi_type_c2f(MPI_2DOUBLE);//MPI_2DOUBLE_PRECISION
+     smpi_type_c2f(MPI_PTR);//MPI_AINT
+     smpi_type_c2f(MPI_UINT64_T);//MPI_OFFSET
+     smpi_type_c2f(MPI_UINT64_T);//MPI_COUNT
+     smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_REAL16
+     smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_COMPLEX8
+     smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_COMPLEX16
+     smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_COMPLEX32
+     smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_PACKED
      op_lookup = xbt_dict_new_homogeneous(NULL);
      smpi_op_c2f(MPI_MAX);
      smpi_op_c2f(MPI_MIN);
@@ -283,6 +284,7 @@ void mpi_finalize_(int* ierr) {
      xbt_dict_free(&group_lookup);
      xbt_dict_free(&comm_lookup);
      xbt_dict_free(&win_lookup);
+     xbt_dict_free(&info_lookup);
    }
 }