extra.c
No OneTemporary
Actions

Subscribers

None

File Metadata

	/**
	* @file extra.c
	*
	* @brief
	*
	* @copyright
	* Copyright (©) 2021 EPFL (Ecole Polytechnique Fédérale de Lausanne)
	* SPC (Swiss Plasma Center)
	*
	* spclibs is free software: you can redistribute it and/or modify it under
	* the terms of the GNU Lesser General Public License as published by the Free
	* Software Foundation, either version 3 of the License, or (at your option)
	* any later version.
	*
	* spclibs 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 Lesser General Public License
	* along with this program. If not, see <https://www.gnu.org/licenses/>.
	*
	* @authors
	* (in alphabetical order)
	* @author Trach-Minh Tran <trach-minh.tran@epfl.ch>
	*/
	/**********************************************/
	#include <string.h>

	void quit_();
	void dump_(char filename, int l);

	void Dump(filename)
	char *filename;
	{
	/* The user's dump routine should go here. */
	int l = strlen(filename);
	dump_(filename, &l);

	} /* End DUMP */

	/**********************************************/

	void Quit()
	{
	/* The user's quit routine should go here. */

	quit_();

	} /* End QUIT */