/*------------------------------------------------------------------------
 * Copyright (C) 2011 For the list of authors, see file AUTHORS.
 *
 * This file is part of SOFI3D.
 *
 * SOFI3D 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.
 *
 * SOFI3D 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 SOFI3D. See file COPYING and/or
 * <http://www.gnu.org/licenses/gpl-2.0.html>.
 --------------------------------------------------------------------------*/
/*------------------------------------------------------------------------
 *   Write seismograms merged from each PE collectively to disk
 *
 *  ----------------------------------------------------------------------*/

#include "fd.h"
#include "segy.h"

/* ****************************  UNDER CONSTRUCTION !!!  ***************************** */


void  outseis_glob(FILE *fp, FILE *fpdata, float **section,
                   int **recpos, int **recpos_loc, int ntr, float ** srcpos,
                   int nsrc, int ns, int seis_form[6], int ishot, int comp){
    
    /* declaration of extern variables */

    
    /* declaration of local variables */
    int i,j;
    //float x;
    float temp_float;

    
    
    
    for(i=1;i<=ntr;i++){ /* Loop over global receivers */
        for(j=1;j<=ns;j++){ /* Loop over time samples */
            temp_float=section[i][j];
            fwrite(&temp_float,sizeof(float),1,fpdata);
        }
    }
    fclose(fpdata);
    
    
    fclose(fpdata);
}