Ignore:
Timestamp:
12/08/17 14:16:16 (6 years ago)
Author:
yushan
Message:

unify type : MPI_Fint

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_openmp/src/interface/c/icdata.cpp

    r1334 r1369  
    5656      ep_lib::MPI_Comm return_comm; 
    5757       
    58       //ep_lib::fc_comm_map.clear(); 
    5958 
    6059      if (!cstr2string(client_id, len_client_id, str)) return; 
     
    6766      #elif _usingEP 
    6867      ep_lib::fc_comm_map.clear(); 
    69       if (initialized) local_comm=ep_lib::EP_Comm_f2c(static_cast<int>(*f_local_comm)); 
     68      if (initialized) local_comm=ep_lib::EP_Comm_f2c((f_local_comm)); 
    7069      else local_comm=MPI_COMM_NULL; 
    7170      #endif 
     
    7776      *f_return_comm=MPI_Comm_c2f(return_comm); 
    7877      #elif _usingEP 
    79       *f_return_comm=ep_lib::EP_Comm_c2f(return_comm); 
     78      *f_return_comm=*static_cast<MPI_Fint*>(ep_lib::EP_Comm_c2f(return_comm)); 
    8079      #endif 
    8180      CTimer::get("XIOS init").suspend(); 
     
    9493     comm=MPI_Comm_f2c(*f_comm); 
    9594     #elif _usingEP 
    96      comm = ep_lib::EP_Comm_f2c(static_cast< int >(*f_comm)); 
     95     comm = ep_lib::EP_Comm_f2c(f_comm); 
    9796     #endif 
    9897     CClient::registerContext(str, comm); 
Note: See TracChangeset for help on using the changeset viewer.