writedsk.c 1.87 KB
Newer Older
Simone Butzer's avatar
Simone Butzer committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
/*------------------------------------------------------------------------
 * Copyright (C) 2015 For the list of authors, see file AUTHORS.
 *
 * This file is part of IFOS3D.
 * 
 * IFOS3D 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, version 2.0 of the License only.
 * 
 * IFOS3D 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 IFOS3D. See file COPYING and/or 
 * <http://www.gnu.org/licenses/gpl-2.0.html>.
--------------------------------------------------------------------------*/

/*------------------------------------------------------------------------
 *   Write one single amplitude on disk                                   
 *  ----------------------------------------------------------------------*/

#include "fd.h"

/*
different data formats of output:
format=1  :  SU (IEEE)
format=2  :  ASCII
format=3  :  BINARY (IEEE)
*/


void writedsk(FILE *fp_out, float amp, int format){
extern FILE *FP;


	switch(format){
                case 1 : /* SU*/ 
                        err(" Sorry, SU-format for snapshots not implemented yet. \n");
                        break;
		case 2 :  /*ASCII*/
                        fprintf(fp_out,"%e\n", amp); 
                        break;
		case 3 :   /* BINARY */
fwrite(&amp, sizeof(float), 1, fp_out);
			
              		break;
			
		case 4 :   /* BINARY Gradient*/

			fwrite(&amp, sizeof(float), 1, fp_out);
              		break;	
	                
		default :
			fprintf(FP," Don't know the format for the snapshot-data !\n");
			err(" No output was written. ");
	}
}