DataIO.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html
 
#include "DenseMatrix.h"
#include "DataIO.h"
#include "MooseMesh.h"
#include "FEProblemBase.h"
#include "NonlinearSystemBase.h"
 
#include "libmesh/vector_value.h"
#include "libmesh/tensor_value.h"
#include "libmesh/fe_type.h"
 
#include "libmesh/elem.h"
#include "libmesh/petsc_vector.h"
#include "libmesh/enum_solver_package.h"
#include "libmesh/petsc_solver_exception.h"
#include "libmesh/bounding_box.h"
 
#include "mtwist.h"
 
template <>
void
dataStore<mt_state>(std::ostream & stream, mt_state & foo, void * ctx)
{
  dataStore(stream, foo.statevec, ctx);
  dataStore(stream, foo.stateptr, ctx);
  dataStore(stream, foo.initialized, ctx);
}
 
template <>
void
dataStore(std::ostream & stream, std::string & v, void * /*context*/)
{
  // Write the size of the string
  unsigned int size = v.size();
  stream.write((char *)&size, sizeof(size));
 
  // Write the string (Do not store the null byte)
  stream.write(v.c_str(), sizeof(char) * size);
}
 
template <>
void
dataStore(std::ostream & stream, VariableName & v, void * context)
{
  auto & name = cast_ref<std::string &>(v);
  dataStore(stream, name, context);
}
 
template <>
void
dataStore(std::ostream & stream, UserObjectName & v, void * context)
{
  auto & name = cast_ref<std::string &>(v);
  dataStore(stream, name, context);
}
 
template <>
void
dataStore(std::ostream & stream, FEType & v, void * context)
{
  auto order = v.order.get_order();
  dataStore(stream, order, context);
 
  auto family = v.family;
  dataStore(stream, family, context);
 
#ifdef LIBMESH_ENABLE_INFINITE_ELEMENTS
  auto radial_order = v.radial_order.get_order();
  dataStore(stream, radial_order, context);
 
  auto radial_family = v.radial_family;
  dataStore(stream, radial_family, context);
 
  auto inf_map = v.inf_map;
  dataStore(stream, inf_map, context);
#endif
 
  auto p_refinement = v.p_refinement;
  dataStore(stream, p_refinement, context);
}
 
template <>
void
dataStore(std::ostream & stream, RankTwoTensor & rtt, void * context)
{
  dataStore(stream, rtt._coords, context);
}
 
template <>
void
dataStore(std::ostream & stream, RankThreeTensor & rtht, void * context)
{
  dataStore(stream, rtht._vals, context);
}
 
template <>
void
dataStore(std::ostream & stream, RankFourTensor & rft, void * context)
{
  dataStore(stream, rft._vals, context);
}
 
template <>
void
dataStore(std::ostream & stream, ADReal & dn, void * context)
{
  dataStore(stream, dn.value(), context);
 
  if (ADReal::do_derivatives)
  {
    auto & derivatives = dn.derivatives();
    std::size_t size = derivatives.size();
    dataStore(stream, size, context);
    for (MooseIndex(size) i = 0; i < size; ++i)
    {
      dataStore(stream, derivatives.raw_index(i), context);
      dataStore(stream, derivatives.raw_at(i), context);
    }
  }
}
 
template <>
void
dataStore(std::ostream & stream, const Elem *& e, void * context)
{
  // TODO: Write out the unique ID of this elem
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  if (e)
  {
    id = e->id();
    if (id == libMesh::DofObject::invalid_id)
      mooseError("Can't output Elems with invalid ids!");
  }
 
  dataStore(stream, id, context);
}
 
template <>
void
dataStore(std::ostream & stream, const Node *& n, void * context)
{
  // TODO: Write out the unique ID of this node
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  if (n)
  {
    id = n->id();
    if (id == libMesh::DofObject::invalid_id)
      mooseError("Can't output Nodes with invalid ids!");
  }
 
  dataStore(stream, id, context);
}
 
template <>
void
dataStore(std::ostream & stream, Elem *& e, void * context)
{
  // TODO: Write out the unique ID of this elem
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  if (e)
  {
    id = e->id();
    if (id == libMesh::DofObject::invalid_id)
      mooseError("Can't output Elems with invalid ids!");
  }
 
  dataStore(stream, id, context);
}
 
template <>
void
dataStore(std::ostream & stream, Node *& n, void * context)
{
  // TODO: Write out the unique ID of this node
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  if (n)
  {
    id = n->id();
    if (id == libMesh::DofObject::invalid_id)
      mooseError("Can't output Nodes with invalid ids!");
  }
 
  dataStore(stream, id, context);
}
 
template <>
void
dataStore(std::ostream & stream, std::stringstream & s, void * /* context */)
{
  const std::string & s_str = s.str();
 
  size_t s_size = s_str.size();
  stream.write((char *)&s_size, sizeof(s_size));
 
  stream.write(s_str.c_str(), sizeof(char) * (s_str.size()));
}
 
#ifdef MOOSE_LIBTORCH_ENABLED
template <>
void
dataStore(std::ostream & stream, torch::Tensor & t, void * context)
{
  const auto tensor = LibtorchUtils::toCPUContiguous(t);
  mooseAssert(tensor.scalar_type() == at::kDouble,
              "Restart storage currently supports only double tensors.");
 
  auto rank = cast_int<unsigned int>(tensor.dim());
  dataStore(stream, rank, nullptr);
  for (unsigned int dim = 0; dim < rank; ++dim)
  {
    auto size = cast_int<unsigned int>(tensor.sizes()[dim]);
    dataStore(stream, size, nullptr);
  }
 
  const auto flattened = tensor.reshape({tensor.numel()});
  const auto t_accessor = flattened.accessor<Real, 1>();
  for (int64_t i = 0; i < flattened.numel(); ++i)
  {
    Real r = t_accessor[i];
    dataStore(stream, r, context);
  }
}
#endif
 
template <typename T>
void
dataStore(std::ostream & stream, TensorValue<T> & v, void * context)
{
  for (const auto i : make_range(Moose::dim))
    for (const auto j : make_range(Moose::dim))
    {
      T r = v(i, j);
      dataStore(stream, r, context);
    }
}
 
template void dataStore(std::ostream & stream, TensorValue<Real> & v, void * context);
template void dataStore(std::ostream & stream, TensorValue<ADReal> & v, void * context);
 
template <typename T>
void
dataStore(std::ostream & stream, DenseMatrix<T> & v, void * context)
{
  unsigned int m = v.m();
  unsigned int n = v.n();
  stream.write((char *)&m, sizeof(m));
  stream.write((char *)&n, sizeof(n));
  for (unsigned int i = 0; i < m; i++)
    for (unsigned int j = 0; j < n; j++)
    {
      T r = v(i, j);
      dataStore(stream, r, context);
    }
}
 
template void dataStore(std::ostream & stream, DenseMatrix<Real> & v, void * context);
template void dataStore(std::ostream & stream, DenseMatrix<ADReal> & v, void * context);
 
template <typename T>
void
dataStore(std::ostream & stream, VectorValue<T> & v, void * context)
{
  // Obviously if someone loads data with different LIBMESH_DIM than was used for saving them, it
  // won't work.
  for (const auto i : make_range(Moose::dim))
  {
    T r = v(i);
    dataStore(stream, r, context);
  }
}
 
template void dataStore(std::ostream & stream, VectorValue<Real> & v, void * context);
template void dataStore(std::ostream & stream, VectorValue<ADReal> & v, void * context);
 
template <>
void
dataStore(std::ostream & stream, const Point & p, void * context)
{
  for (const auto i : make_range(Moose::dim))
    dataStore(stream, p(i), context);
}
 
void
dataStore(std::ostream & stream, libMesh::BoundingBox & bbox, void * context)
{
  dataStore(stream, cast_ref<std::pair<Point, Point> &>(bbox), context);
}
 
template <>
void
dataStore(std::ostream & stream, Point & p, void * context)
{
  dataStore(stream, const_cast<const Point &>(p), context);
}
 
template <>
void
dataStore(std::ostream & stream, libMesh::Parameters & p, void * context)
{
  // First store the size of the map
  unsigned int size = p.n_parameters();
  stream.write((char *)&size, sizeof(size));
 
  auto it = p.begin();
  auto end = p.end();
 
  for (; it != end; ++it)
  {
    auto & key = const_cast<std::string &>(it->first);
    auto type = it->second->type();
 
    dataStore(stream, key, context);
    dataStore(stream, type, context);
 
#define storescalar(ptype)                                                                         \
  else if (it->second->type() == demangle(typeid(ptype).name())) dataStore(                        \
      stream,                                                                                      \
      (dynamic_cast<libMesh::Parameters::Parameter<ptype> *>(MooseUtils::get(it->second)))->get(), \
      context)
 
    if (false)
      ;
    storescalar(Real);
    storescalar(short);
    storescalar(int);
    storescalar(long);
    storescalar(unsigned short);
    storescalar(unsigned int);
    storescalar(unsigned long);
 
#undef storescalar
  }
}
 
template <>
void
dataStore(std::ostream & stream,
          std::unique_ptr<libMesh::NumericVector<Number>> & v,
          void * context)
{
  // Classes may declare unique pointers to vectors as restartable data and never actually create
  // vector instances. This happens for example in the `TimeIntegrator` class where subvector
  // instances are only created if multiple time integrators are present
  bool have_vector = v.get();
  dataStore(stream, have_vector, context);
  if (!have_vector)
    return;
 
  mooseAssert(context, "Needs a context of the communicator");
  const auto & comm = *static_cast<const libMesh::Parallel::Communicator *>(context);
  mooseAssert(&comm == &v->comm(), "Inconsistent communicator");
 
  if (v->type() == GHOSTED)
    mooseError("Cannot store ghosted numeric vectors");
 
  // Store the communicator size for sanity checking later
  unsigned int comm_size = comm.size();
  dataStore(stream, comm_size, nullptr);
 
  // Store the solver package so that we know what vector type to construct
  libMesh::SolverPackage solver_package;
  if (dynamic_cast<libMesh::PetscVector<Number> *>(v.get()))
    solver_package = libMesh::PETSC_SOLVERS;
  else
    mooseError("Can only store unique_ptrs of PetscVectors");
  int solver_package_int = solver_package;
  dataStore(stream, solver_package_int, nullptr);
 
  // Store the sizes
  dof_id_type size = v->size();
  dataStore(stream, size, nullptr);
  dof_id_type local_size = v->local_size();
  dataStore(stream, local_size, nullptr);
 
  // Store the vector itself
  dataStore(stream, *v, nullptr);
}
 
// global load functions
 
template <>
void
dataLoad<mt_state>(std::istream & stream, mt_state & foo, void * ctx)
{
  dataLoad(stream, foo.statevec, ctx);
  dataLoad(stream, foo.stateptr, ctx);
  dataLoad(stream, foo.initialized, ctx);
}
 
template <>
void
dataLoad(std::istream & stream, std::string & v, void * /*context*/)
{
  // Read the size of the string
  unsigned int size = 0;
  stream.read((char *)&size, sizeof(size));
 
  // Resize the string data
  v.resize(size);
 
  // Read the string
  stream.read(&v[0], sizeof(char) * size);
}
 
template <>
void
dataLoad(std::istream & stream, VariableName & v, void * context)
{
  auto & name = cast_ref<std::string &>(v);
  dataLoad(stream, name, context);
}
 
template <>
void
dataLoad(std::istream & stream, UserObjectName & v, void * context)
{
  auto & name = cast_ref<std::string &>(v);
  dataLoad(stream, name, context);
}
 
template <>
void
dataLoad(std::istream & stream, FEType & v, void * context)
{
  int order = 0;
  dataLoad(stream, order, context);
  v.order = order;
 
  dataLoad(stream, v.family, context);
 
#ifdef LIBMESH_ENABLE_INFINITE_ELEMENTS
  int radial_order = 0;
  dataLoad(stream, radial_order, context);
  v.radial_order = radial_order;
 
  dataLoad(stream, v.radial_family, context);
  dataLoad(stream, v.inf_map, context);
#endif
 
  dataLoad(stream, v.p_refinement, context);
}
 
template <>
void
dataLoad(std::istream & stream, ADReal & dn, void * context)
{
  dataLoad(stream, dn.value(), context);
 
  if (ADReal::do_derivatives)
  {
    auto & derivatives = dn.derivatives();
    std::size_t size = 0;
    stream.read((char *)&size, sizeof(size));
    derivatives.resize(size);
 
    for (MooseIndex(derivatives) i = 0; i < derivatives.size(); ++i)
    {
      dataLoad(stream, derivatives.raw_index(i), context);
      dataLoad(stream, derivatives.raw_at(i), context);
    }
  }
}
 
template <>
void
dataLoad(std::istream & stream, const Elem *& e, void * context)
{
  if (!context)
    mooseError("Can only load Elem objects using a MooseMesh context!");
 
  MooseMesh * mesh = static_cast<MooseMesh *>(context);
 
  // TODO: Write out the unique ID of this element
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  dataLoad(stream, id, context);
 
  if (id != libMesh::DofObject::invalid_id)
    e = mesh->elemPtr(id);
  else
    e = NULL;
}
 
template <>
void
dataLoad(std::istream & stream, const Node *& n, void * context)
{
  if (!context)
    mooseError("Can only load Node objects using a MooseMesh context!");
 
  MooseMesh * mesh = static_cast<MooseMesh *>(context);
 
  // TODO: Write out the unique ID of this nodeent
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  dataLoad(stream, id, context);
 
  if (id != libMesh::DofObject::invalid_id)
    n = mesh->nodePtr(id);
  else
    n = NULL;
}
 
template <>
void
dataLoad(std::istream & stream, Elem *& e, void * context)
{
  if (!context)
    mooseError("Can only load Elem objects using a MooseMesh context!");
 
  MooseMesh * mesh = static_cast<MooseMesh *>(context);
 
  // TODO: Write out the unique ID of this element
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  dataLoad(stream, id, context);
 
  if (id != libMesh::DofObject::invalid_id)
    e = mesh->elemPtr(id);
  else
    e = NULL;
}
 
template <>
void
dataLoad(std::istream & stream, Node *& n, void * context)
{
  if (!context)
    mooseError("Can only load Node objects using a MooseMesh context!");
 
  MooseMesh * mesh = static_cast<MooseMesh *>(context);
 
  // TODO: Write out the unique ID of this nodeent
  dof_id_type id = libMesh::DofObject::invalid_id;
 
  dataLoad(stream, id, context);
 
  if (id != libMesh::DofObject::invalid_id)
    n = mesh->nodePtr(id);
  else
    n = NULL;
}
 
template <>
void
dataLoad(std::istream & stream, std::stringstream & s, void * /* context */)
{
  size_t s_size = 0;
  stream.read((char *)&s_size, sizeof(s_size));
 
  std::unique_ptr<char[]> s_s = std::make_unique<char[]>(s_size);
  stream.read(s_s.get(), s_size);
 
  // Clear the stringstream before loading new data into it.
  s.str(std::string());
  s.write(s_s.get(), s_size);
}
 
#ifdef MOOSE_LIBTORCH_ENABLED
template <>
void
dataLoad(std::istream & stream, torch::Tensor & t, void * context)
{
  unsigned int rank = 0;
  dataLoad(stream, rank, nullptr);
 
  std::vector<int64_t> sizes(rank);
  for (unsigned int dim = 0; dim < rank; ++dim)
  {
    unsigned int size = 0;
    dataLoad(stream, size, nullptr);
    sizes[dim] = size;
  }
 
  t = torch::empty(sizes, at::kDouble);
  auto flattened = t.reshape({t.numel()});
  auto t_accessor = flattened.accessor<Real, 1>();
  for (int64_t i = 0; i < flattened.numel(); ++i)
  {
    Real r = 0;
    dataLoad(stream, r, context);
    t_accessor[i] = r;
  }
}
#endif
 
template <typename T>
void
dataLoad(std::istream & stream, TensorValue<T> & v, void * context)
{
  // Obviously if someone loads data with different LIBMESH_DIM than was used for saving them, it
  // won't work.
  for (const auto i : make_range(Moose::dim))
    for (const auto j : make_range(Moose::dim))
    {
      T r = 0;
      dataLoad(stream, r, context);
      v(i, j) = r;
    }
}
 
template void dataLoad(std::istream & stream, TensorValue<Real> & v, void * context);
template void dataLoad(std::istream & stream, TensorValue<ADReal> & v, void * context);
 
template <typename T>
void
dataLoad(std::istream & stream, DenseMatrix<T> & v, void * context)
{
  unsigned int m = 0, n = 0;
  stream.read((char *)&m, sizeof(m));
  stream.read((char *)&n, sizeof(n));
  v.resize(m, n);
  for (unsigned int i = 0; i < m; i++)
    for (unsigned int j = 0; j < n; j++)
    {
      T r = 0;
      dataLoad(stream, r, context);
      v(i, j) = r;
    }
}
 
template void dataLoad(std::istream & stream, DenseMatrix<Real> & v, void * context);
template void dataLoad(std::istream & stream, DenseMatrix<ADReal> & v, void * context);
 
template <typename T>
void
dataLoad(std::istream & stream, VectorValue<T> & v, void * context)
{
  // Obviously if someone loads data with different LIBMESH_DIM than was used for saving them, it
  // won't work.
  for (const auto i : make_range(Moose::dim))
  {
    T r = 0;
    dataLoad(stream, r, context);
    v(i) = r;
  }
}
 
template void dataLoad(std::istream & stream, VectorValue<Real> & v, void * context);
template void dataLoad(std::istream & stream, VectorValue<ADReal> & v, void * context);
 
template <>
void
dataLoad(std::istream & stream, Point & p, void * context)
{
  for (const auto i : make_range(Moose::dim))
    dataLoad(stream, p(i), context);
}
 
void
dataLoad(std::istream & stream, libMesh::BoundingBox & bbox, void * context)
{
  dataLoad(stream, cast_ref<std::pair<Point, Point> &>(bbox), context);
}
 
template <>
void
dataLoad(std::istream & stream, libMesh::Parameters & p, void * context)
{
  p.clear();
 
  // First read the size of the map
  unsigned int size = 0;
  stream.read((char *)&size, sizeof(size));
 
  for (unsigned int i = 0; i < size; i++)
  {
    std::string key, type;
    dataLoad(stream, key, context);
    dataLoad(stream, type, context);
 
#define loadscalar(ptype)                                                                          \
  else if (type == demangle(typeid(ptype).name())) do                                              \
  {                                                                                                \
    ptype & value = p.set<ptype>(key);                                                             \
    dataLoad(stream, value, context);                                                              \
  }                                                                                                \
  while (0)
 
    if (false)
      ;
    loadscalar(Real);
    loadscalar(short);
    loadscalar(int);
    loadscalar(long);
    loadscalar(unsigned short);
    loadscalar(unsigned int);
    loadscalar(unsigned long);
 
#undef loadscalar
  }
}
 
template <>
void
dataLoad(std::istream & stream, std::unique_ptr<libMesh::NumericVector<Number>> & v, void * context)
{
  bool have_vector;
  dataLoad(stream, have_vector, context);
 
  if (!have_vector)
    return;
 
  mooseAssert(context, "Needs a context of the communicator");
  const auto & comm = *static_cast<const libMesh::Parallel::Communicator *>(context);
  if (v)
    mooseAssert(&comm == &v->comm(), "Inconsistent communicator");
 
  // Load the communicator size for consistency checks
  unsigned int comm_size;
  dataLoad(stream, comm_size, nullptr);
  mooseAssert(comm.size() == comm_size, "Inconsistent communicator size");
 
  // Load the solver package to build the vector
  int solver_package_int;
  dataLoad(stream, solver_package_int, nullptr);
  libMesh::SolverPackage solver_package = static_cast<libMesh::SolverPackage>(solver_package_int);
 
  // Load the sizes
  dof_id_type size, local_size;
  dataLoad(stream, size, nullptr);
  dataLoad(stream, local_size, nullptr);
 
  // Construct the vector given the type, only if we need to. v could be non-null here
  // if we're advancing back and loading a backup
  if (!v)
  {
    v = NumericVector<Number>::build(comm, solver_package);
    v->init(size, local_size);
  }
  else
    mooseAssert(v->type() != GHOSTED, "Cannot be ghosted");
 
  // Make sure that the sizes are consistent; this will happen if we're calling this
  // on a vector that has already been loaded previously
  mooseAssert(v->size() == size, "Inconsistent size");
  mooseAssert(v->local_size() == local_size, "Inconsistent local size");
 
  // Now that we have an initialized vector, fill the entries
  dataLoad(stream, *v, nullptr);
}
 
template <>
void
dataLoad(std::istream & stream, Vec & v, void * context)
{
  PetscInt local_size;
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecGetLocalSize(v, &local_size));
  PetscScalar * array;
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecGetArray(v, &array));
  for (PetscInt i = 0; i < local_size; i++)
    dataLoad(stream, array[i], context);
 
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecRestoreArray(v, &array));
}
 
template <>
void
dataStore(std::ostream & stream, Vec & v, void * context)
{
  PetscInt local_size;
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecGetLocalSize(v, &local_size));
  PetscScalar * array;
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecGetArray(v, &array));
  for (PetscInt i = 0; i < local_size; i++)
    dataStore(stream, array[i], context);
 
  LibmeshPetscCallA(PETSC_COMM_WORLD, VecRestoreArray(v, &array));
}