BalanceFortran.h

Go to the documentation of this file.

/*
 * (C) Copyright 2019-2021 UCAR
 *
 * This software is licensed under the terms of the Apache Licence Version 2.0
 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 */
 
#ifndef SOCA_TRANSFORMS_BALANCE_BALANCEFORTRAN_H_
#define SOCA_TRANSFORMS_BALANCE_BALANCEFORTRAN_H_
 
#include "soca/Fortran.h"
 
// Forward declarations
namespace eckit {
  class Configuration;
}
 
namespace soca {
 
  extern "C" {
    void soca_balance_setup_f90(F90balopmat &,
                                const eckit::Configuration * const *,
                                const F90flds &,
                                const F90geom &);
    void soca_balance_delete_f90(F90balopmat &);
    void soca_balance_mult_f90(const F90balopmat &, const F90balopmat &,
                               F90balopmat &);
    void soca_balance_multinv_f90(const F90balopmat &, const F90balopmat &,
                                  F90balopmat &);
    void soca_balance_multad_f90(const F90balopmat &, const F90balopmat &,
                                 F90balopmat &);
    void soca_balance_multinvad_f90(const F90balopmat &, const F90balopmat &,
                                    F90balopmat &);
  }
}  // namespace soca
#endif  // SOCA_TRANSFORMS_BALANCE_BALANCEFORTRAN_H_