codiMpiTypes.hpp

/*
 * CoDiPack, a Code Differentiation Package
 *
 * Copyright (C) 2015-2024 Chair for Scientific Computing (SciComp), University of Kaiserslautern-Landau
 * Homepage: http://www.scicomp.uni-kl.de
 * Contact:  Prof. Nicolas R. Gauger (codi@scicomp.uni-kl.de)
 *
 * Lead developers: Max Sagebaum, Johannes Blühdorn (SciComp, University of Kaiserslautern-Landau)
 *
 * This file is part of CoDiPack (http://www.scicomp.uni-kl.de/software/codi).
 *
 * CoDiPack is free software: you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * CoDiPack is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *
 * See the GNU General Public License for more details.
 * You should have received a copy of the GNU
 * General Public License along with CoDiPack.
 * If not, see <http://www.gnu.org/licenses/>.
 *
 * For other licensing options please contact us.
 *
 * Authors:
 *  - SciComp, University of Kaiserslautern-Landau:
 *    - Max Sagebaum
 *    - Johannes Blühdorn
 *    - Former members:
 *      - Tim Albring
 */
#pragma once
 
#include <medi/medi.hpp>
 
#include "../../config.h"
#include "../../misc/macros.hpp"
#include "../../traits/tapeTraits.hpp"
#include "codiForwardMeDiPackTool.hpp"
#include "codiReverseMeDiPackTool.hpp"
 
namespace codi {
 
  template<typename T_Type,
           typename T_Tool = typename std::conditional<codi::TapeTraits::IsForwardTape<typename T_Type::Tape>::value,
                                                       CoDiPackForwardTool<T_Type>, CoDiPackReverseTool<T_Type> >::type>
  struct CoDiMpiTypes {
    public:
 
      using Type = CODI_DD(T_Type, CODI_DEFAULT_LHS_EXPRESSION);
      using Tool = CODI_DD(T_Tool, medi::ADToolInterface);  
 
      using MPIType = medi::MpiTypeDefault<Tool>;  
 
    private:
 
      MPI_Datatype codiMpiType;
      MPI_Datatype modifiedMpiType;
      MPI_Datatype primalMpiType;
      MPI_Datatype adjointMpiType;
 
      Tool adTool;
 
    public:
 
      MPIType* MPI_TYPE;                 
      medi::AMPI_Datatype MPI_INT_TYPE;  
 
      CoDiMpiTypes()
          : codiMpiType(createByteType(sizeof(Type))),
            modifiedMpiType(codiMpiType),
            primalMpiType(createByteType(sizeof(typename Type::Real))),
            adjointMpiType(primalMpiType),
            adTool(primalMpiType, adjointMpiType),
            MPI_TYPE(nullptr),
            MPI_INT_TYPE() {
        MPI_TYPE = new MPIType(&adTool, codiMpiType, modifiedMpiType);
        MPI_INT_TYPE = Tool::OpHelper::createIntType(MPI_TYPE);
      }
 
      ~CoDiMpiTypes() {
        Tool::OpHelper::freeIntType(MPI_INT_TYPE);
 
        if (nullptr != MPI_TYPE) {
          delete MPI_TYPE;
          MPI_TYPE = nullptr;
        }
 
        MPI_Type_free(&codiMpiType);
        MPI_Type_free(&primalMpiType);
      }
 
    private:
 
      static MPI_Datatype createByteType(size_t size) {
        MPI_Datatype type;
        MPI_Type_contiguous(size, MPI_BYTE, &type);
        MPI_Type_commit(&type);
 
        return type;
      }
  };
}