fft-split

extra.c
View Options

			/**
			* @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 */