IncrementFortran.h

Go to the documentation of this file.

/*
 * (C) Copyright 2020-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_INCREMENT_INCREMENTFORTRAN_H_
#define SOCA_INCREMENT_INCREMENTFORTRAN_H_
 
#include "oops/base/Variables.h"
#include "soca/Fortran.h"
 
// Forward declarations
namespace atlas {
  namespace field {
    class FieldSetImpl;
  }
}
namespace eckit {
  class Configuration;
}
 
namespace util {
  class DateTime;
  class Duration;
}
 
namespace soca {
 
  extern "C" {
    void soca_increment_create_f90(F90flds &, const F90geom &,
                               const oops::Variables &);
    void soca_increment_delete_f90(F90flds &);
    void soca_increment_copy_f90(const F90flds &, const F90flds &);
    void soca_increment_ones_f90(const F90flds &);
    void soca_increment_zero_f90(const F90flds &);
    void soca_increment_self_add_f90(const F90flds &, const F90flds &);
    void soca_increment_self_sub_f90(const F90flds &, const F90flds &);
    void soca_increment_self_mul_f90(const F90flds &, const double &);
    void soca_increment_accumul_f90(const F90flds &, const double &,
                                    const F90flds &);
    void soca_increment_axpy_f90(const F90flds &, const double &,
                                 const F90flds &);
    void soca_increment_dot_prod_f90(const F90flds &, const F90flds &,
                                     double &);
    void soca_increment_self_schur_f90(const F90flds &, const F90flds &);
    void soca_increment_random_f90(const F90flds &);
    void soca_increment_dirac_f90(const F90flds &,
                              const eckit::Configuration * const &);
    void soca_increment_diff_incr_f90(const F90flds &, const F90flds &,
                                  const F90flds &);
    void soca_increment_change_resol_f90(const F90flds &, const F90flds &);
    void soca_increment_read_file_f90(const F90flds &,
                                  const eckit::Configuration * const &,
                                  util::DateTime * const *);
    void soca_increment_write_file_f90(const F90flds &,
                                   const eckit::Configuration * const &,
                                   const util::DateTime * const *);
    void soca_increment_set_atlas_f90(const F90flds &,
                                  const F90geom &,
                                  const oops::Variables &,
                                  atlas::field::FieldSetImpl *);
    void soca_increment_to_atlas_f90(const F90flds &,
                                 const F90geom &,
                                 const oops::Variables &,
                                 atlas::field::FieldSetImpl *);
    void soca_increment_from_atlas_f90(const F90flds &,
                                   const F90geom &,
                                   const oops::Variables &,
                                   atlas::field::FieldSetImpl *);
    void soca_increment_gpnorm_f90(const F90flds &, const int &, double &);
    void soca_increment_getpoint_f90(const F90flds &, const F90iter &, double &,
                           const int &);
    void soca_increment_setpoint_f90(F90flds &, const F90iter &, const double &,
                           const int &);
    void soca_increment_sizes_f90(const F90flds &, int &,
                              int &, int &, int &);
    void soca_increment_rms_f90(const F90flds &, double &);
    void soca_increment_serial_size_f90(const F90flds &,
                                        const F90geom &,
                                        size_t &);
    void soca_increment_serialize_f90(const F90flds &,
                                      const F90geom &,
                                      const size_t &,
                                      double[]);
    void soca_increment_deserialize_f90(const F90flds &,
                                        const F90geom &,
                                        const size_t &,
                                        const double[],
                                        size_t &);
  }
}  // namespace soca
#endif  // SOCA_INCREMENT_INCREMENTFORTRAN_H_