! File: submodule_ejecta_generic_io.f90 ! Authors: Francesco Torsello (FT) !************************************************************************ ! Copyright (C) 2020-2023 Francesco Torsello * ! * ! This file is part of SPHINCS_ID * ! * ! SPHINCS_ID 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. * ! * ! SPHINCS_ID 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 SPHINCS_ID. If not, see <https://www.gnu.org/licenses/>. * ! The copy of the GNU General Public License should be in the file * ! 'COPYING'. * !************************************************************************ SUBMODULE (ejecta_generic) io !*************************************************** ! !# This submodule contains the implementation of the ! methods of TYPE ejecta that handle I/O (input/output) ! ! FT xx.11.2021 ! !*************************************************** IMPLICIT NONE CONTAINS !------------------------------! !-- OVERRIDING SUBROUTINES --! !------------------------------! MODULE PROCEDURE print_summary_ejecta !************************************************ ! !# Prints a summary of the physical properties the system ! to the standard output and, optionally, to a formatted ! file whose name is given as the optional argument `filename` ! @todo to be implemented ! ! FT xx.11.2021 ! !************************************************ IMPLICIT NONE END PROCEDURE print_summary_ejecta END SUBMODULE io