/*-------------------------------------------------------------------- * The MB-system: mbsegygrid.c 6/12/2004 * $Id: mbsegygrid.c 1829 2010-02-05 02:53:39Z caress $ * * Copyright (c) 2004-2009 by * David W. Caress (caress@mbari.org) * Monterey Bay Aquarium Research Institute * Moss Landing, CA 95039 * and Dale N. Chayes (dale@ldeo.columbia.edu) * Lamont-Doherty Earth Observatory * Palisades, NY 10964 * * See README file for copying and redistribution conditions. *--------------------------------------------------------------------*/ /* * mbsegygrid inserts trace data from segy data files into a grid in * which the y-axis is some measure of trace number, range, or distance * along a profile, and the y-axis is time.. * * Author: D. W. Caress * Date: June 12, 2004 * * $Log: mbsegygrid.c,v $ * Revision 5.16 2008/11/16 21:51:18 caress * Updating all recent changes, including time lag analysis using mbeditviz and improvements to the mbgrid footprint gridding algorithm. * * Revision 5.15 2008/09/11 20:20:14 caress * Checking in updates made during cruise AT15-36. * * Revision 5.14 2007/10/08 16:48:07 caress * State of the code on 8 October 2007. * * Revision 5.13 2006/12/15 21:42:49 caress * Incremental CVS update. * * Revision 5.12 2006/08/09 22:41:27 caress * Fixed programs that read or write grids so that they do not use the GMT_begin() function; these programs will now work when GMT is built in the default fashion, when GMT is built in the default fashion, with "advisory file locking" enabled. * * Revision 5.11 2006/06/22 04:45:43 caress * Working towards 5.1.0 * * Revision 5.10 2006/06/16 19:30:58 caress * Check in after the Santa Monica Basin Mapping AUV Expedition. * * Revision 5.9 2006/04/19 18:30:34 caress * Fixed application of gain below seafloor. * * Revision 5.8 2006/04/11 19:19:30 caress * Various fixes. * * Revision 5.7 2006/01/18 15:17:00 caress * Added stdlib.h include. * * Revision 5.6 2005/06/15 15:35:01 caress * Added capability to scale shot to distance and time to depth. Also added -MGQ100 to the mbm_grdplot arguments so that the seismic image is more nicely displayed by grdimage. * * Revision 5.5 2005/06/04 05:59:26 caress * Added a time-varying gain option. * * Revision 5.4 2004/11/08 05:49:17 caress * Fixed problem with decimation. * * Revision 5.3 2004/10/06 19:10:52 caress * Release 5.0.5 update. * * Revision 5.2 2004/09/16 01:01:12 caress * Fixed many things. * * Revision 5.1 2004/07/15 19:33:56 caress * Improvements to support for Reson 7k data. * * Revision 5.0 2004/06/18 04:06:05 caress * Adding support for segy i/o and working on support for Reson 7k format 88. * * * * */ /* standard include files */ #include #include #include #include #include #include #include #include /* MBIO include files */ #include "../../include/mb_status.h" #include "../../include/mb_format.h" #include "../../include/mb_define.h" #include "../../include/mb_segy.h" /* GMT include files */ #include "gmt.h" /* local options */ #define MBSEGYGRID_USESHOT 0 #define MBSEGYGRID_USECMP 1 #define MBSEGYGRID_WINDOW_OFF 0 #define MBSEGYGRID_WINDOW_ON 1 #define MBSEGYGRID_WINDOW_SEAFLOOR 2 #define MBSEGYGRID_WINDOW_DEPTH 3 #define MBSEGYGRID_GAIN_OFF 0 #define MBSEGYGRID_GAIN_TZERO 1 #define MBSEGYGRID_GAIN_SEAFLOOR 2 #define MBSEGYGRID_GAIN_AGCSEAFLOOR 3 /* NaN value */ float NaN; int write_cdfgrd(int verbose, char *outfile, float *grid, int nx, int ny, double xmin, double xmax, double ymin, double ymax, double zmin, double zmax, double dx, double dy, char *xlab, char *ylab, char *zlab, char *titl, char *projection, int argc, char **argv, int *error); int get_segy_limits(int verbose, char *segyfile, int *tracemode, int *tracestart, int *traceend, int *chanstart, int *chanend, double *timesweep, double *timedelay, int *error); char *ctime(); char *getenv(); int fft(float *x, int *n, int *isign); int four1(float *data, int *n, int *isign); /* output stream for basic stuff (stdout if verbose <= 1, stderr if verbose > 1) */ FILE *outfp; static char rcs_id[] = "$Id: mbsegygrid.c 1829 2010-02-05 02:53:39Z caress $"; char program_name[] = "MBsegygrid"; char help_message[] = "MBsegygrid grids trace data from segy data files."; char usage_message[] = "MBsegygrid -Ifile -Oroot [-Ashotscale/timescale \n\ -Ddecimatex/decimatey -Gmode/gain[/window] -R \n\ -Smode[/start/end[/schan/echan]] -Tsweep[/delay] \n\ -Wmode/start/end -H -V]"; /*--------------------------------------------------------------------*/ int main (int argc, char **argv) { extern char *optarg; int errflg = 0; int c; int help = 0; int flag = 0; /* MBIO status variables */ int status = MB_SUCCESS; int verbose = 0; int error = MB_ERROR_NO_ERROR; char *message; /* segy data */ char segyfile[MB_PATH_MAXLINE]; void *mbsegyioptr; struct mb_segyasciiheader_struct asciiheader; struct mb_segyfileheader_struct fileheader; struct mb_segytraceheader_struct traceheader; float *trace = NULL; float *worktrace = NULL; float *ptrace = NULL; float *wtrace = NULL; /* grid controls */ char fileroot[MB_PATH_MAXLINE]; char gridfile[MB_PATH_MAXLINE]; int decimatex = 1; int decimatey = 1; int tracemode = MBSEGYGRID_USESHOT; int tracestart = 0; int traceend = 0; int chanstart = 0; int chanend = -1; double timesweep = 0.0; double timedelay = 0.0; double sampleinterval = 0.0; int windowmode = MBSEGYGRID_WINDOW_OFF; double windowstart, windowend; int gainmode = MBSEGYGRID_GAIN_OFF; double gain = 0.0; double gainwindow = 0.0; int agcmode = MB_NO; double agcwindow = 0.0; double agcmaxvalue = 0.0; int ntraces; int ngridx = 0; int ngridy = 0; int ngridxy = 0; float *grid = NULL; double xmin; double xmax; double ymin; double ymax; double dx; double dy; double gridmintot = 0.0; double gridmaxtot = 0.0; char projection[MB_PATH_MAXLINE]; char xlabel[MB_PATH_MAXLINE]; char ylabel[MB_PATH_MAXLINE]; char zlabel[MB_PATH_MAXLINE]; char title[MB_PATH_MAXLINE]; char plot_cmd[MB_PATH_MAXLINE]; int scale2distance = MB_NO; double shotscale = 1.0; double timescale = 1.0; int sinftracemode = MBSEGYGRID_USESHOT; int sinftracestart = 0; int sinftraceend = 0; int sinfchanstart = 0; int sinfchanend = -1; double sinftimesweep = 0.0; double sinftimedelay = 0.0; int nread; int tracecount, tracenum, channum, traceok; double tracemin, tracemax; double xwidth, ywidth; int ix, iy, iys, igainstart, igainend; int iystart, iyend; double factor, gtime, btime, stime, dtime, tmax; double btimesave = 0.0; double stimesave = 0.0; double dtimesave = 0.0; int plot_status; int worktrace_alloc; int iagchalfwindow; int i, j, k, n; /* set file to null */ segyfile[0] = '\0'; /* get NaN value */ GMT_make_fnan(NaN); /* process argument list */ while ((c = getopt(argc, argv, "A:a:B:b:D:d:G:g:I:i:O:o:S:s:T:t:VvW:w:Hh")) != -1) switch (c) { case 'H': case 'h': help++; break; case 'V': case 'v': verbose++; break; case 'A': case 'a': n = sscanf (optarg,"%lf/%lf", &shotscale, ×cale); if (n == 2) scale2distance = MB_YES; flag++; break; case 'B': case 'b': n = sscanf (optarg,"%lf/%lf", &agcmaxvalue, &agcwindow); if (n < 2) agcwindow = 0.0; agcmode = MB_YES; flag++; break; case 'D': case 'd': n = sscanf (optarg,"%d/%d", &decimatex, &decimatey); flag++; break; case 'G': case 'g': n = sscanf (optarg,"%d/%lf/%lf", &gainmode, &gain, &gainwindow); if (n < 3) gainwindow = 0.0; flag++; break; case 'I': case 'i': sscanf (optarg,"%s", segyfile); flag++; break; case 'O': case 'o': sscanf (optarg,"%s", fileroot); flag++; break; case 'S': case 's': n = sscanf (optarg,"%d/%d/%d/%d/%d", &tracemode, &tracestart, &traceend, &chanstart, &chanend); if (n < 5) { chanstart = 0; chanend = -1; } if (n < 3) { tracestart = 0; traceend = 0; } if (n < 1) { tracemode = MBSEGYGRID_USESHOT; } flag++; break; case 'T': case 't': n = sscanf (optarg,"%lf/%lf", ×weep, &timedelay); if (n < 2) timedelay = 0.0; flag++; break; case 'W': case 'w': n = sscanf (optarg,"%d/%lf/%lf", &windowmode, &windowstart, &windowend); flag++; break; case '?': errflg++; } /* set output stream to stdout or stderr */ if (verbose >= 2) outfp = stderr; else outfp = stdout; /* if error flagged then print it and exit */ if (errflg) { fprintf(outfp,"usage: %s\n", usage_message); fprintf(outfp,"\nProgram <%s> Terminated\n", program_name); error = MB_ERROR_BAD_USAGE; exit(error); } /* print starting message */ if (verbose == 1 || help) { fprintf(outfp,"\nProgram %s\n",program_name); fprintf(outfp,"Version %s\n",rcs_id); fprintf(outfp,"MB-system Version %s\n",MB_VERSION); } /* print starting debug statements */ if (verbose >= 2) { fprintf(outfp,"\ndbg2 Program <%s>\n",program_name); fprintf(outfp,"dbg2 Version %s\n",rcs_id); fprintf(outfp,"dbg2 MB-system Version %s\n",MB_VERSION); fprintf(outfp,"dbg2 Control Parameters:\n"); fprintf(outfp,"dbg2 verbose: %d\n",verbose); fprintf(outfp,"dbg2 help: %d\n",help); fprintf(outfp,"dbg2 segyfile: %s\n",segyfile); fprintf(outfp,"dbg2 fileroot: %s\n",fileroot); fprintf(outfp,"dbg2 decimatex: %d\n",decimatex); fprintf(outfp,"dbg2 decimatey: %d\n",decimatey); fprintf(outfp,"dbg2 tracemode: %d\n",tracemode); fprintf(outfp,"dbg2 tracestart: %d\n",tracestart); fprintf(outfp,"dbg2 traceend: %d\n",traceend); fprintf(outfp,"dbg2 chanstart: %d\n",chanstart); fprintf(outfp,"dbg2 chanend: %d\n",chanend); fprintf(outfp,"dbg2 timesweep: %f\n",timesweep); fprintf(outfp,"dbg2 timedelay: %f\n",timedelay); fprintf(outfp,"dbg2 ngridx: %d\n",ngridx); fprintf(outfp,"dbg2 ngridy: %d\n",ngridy); fprintf(outfp,"dbg2 ngridxy: %d\n",ngridxy); fprintf(outfp,"dbg2 windowmode: %d\n",windowmode); fprintf(outfp,"dbg2 windowstart: %f\n",windowstart); fprintf(outfp,"dbg2 windowend: %f\n",windowend); fprintf(outfp,"dbg2 agcmode: %d\n",agcmode); fprintf(outfp,"dbg2 agcmaxvalue: %f\n",agcmaxvalue); fprintf(outfp,"dbg2 agcwindow: %f\n",agcwindow); fprintf(outfp,"dbg2 gainmode: %d\n",gainmode); fprintf(outfp,"dbg2 gain: %f\n",gain); fprintf(outfp,"dbg2 gainwindow: %f\n",gainwindow); fprintf(outfp,"dbg2 scale2distance: %d\n",scale2distance); fprintf(outfp,"dbg2 shotscale: %f\n",shotscale); fprintf(outfp,"dbg2 timescale: %f\n",timescale); } /* if help desired then print it and exit */ if (help) { fprintf(outfp,"\n%s\n",help_message); fprintf(outfp,"\nusage: %s\n", usage_message); exit(error); } /* get segy limits if required */ if (traceend < 1 || traceend < tracestart || timesweep <= 0.0) { get_segy_limits(verbose, segyfile, &sinftracemode, &sinftracestart, &sinftraceend, &sinfchanstart, &sinfchanend, &sinftimesweep, &sinftimedelay, &error); if (traceend < 1 || traceend < tracestart) { tracemode = sinftracemode; tracestart = sinftracestart; traceend = sinftraceend; } if (chanend < 1 || chanend < chanstart) { chanstart = sinfchanstart; chanend = sinfchanend; } if (timesweep <= 0.0) { timesweep = sinftimesweep; timedelay = sinftimedelay; } } /* check specified parameters */ if (traceend < 1 || traceend < tracestart) { fprintf(outfp,"\nBad trace numbers: %d %d specified...\n", tracestart, traceend); fprintf(outfp,"\nProgram <%s> Terminated\n", program_name); exit(error); } if (timesweep <= 0.0) { fprintf(outfp,"\nBad time sweep: %f specified...\n", timesweep); fprintf(outfp,"\nProgram <%s> Terminated\n", program_name); exit(error); } /* initialize reading the segy file */ if (mb_segy_read_init(verbose, segyfile, &mbsegyioptr, &asciiheader, &fileheader, &error) != MB_SUCCESS) { mb_error(verbose,error,&message); fprintf(outfp,"\nMBIO Error returned from function :\n%s\n",message); fprintf(outfp,"\nSEGY File <%s> not initialized for reading\n",segyfile); fprintf(outfp,"\nProgram <%s> Terminated\n", program_name); exit(error); } /* calculate implied grid parameters */ strcpy(gridfile,fileroot); strcat(gridfile,".grd"); if (chanend >= chanstart) ntraces = (traceend - tracestart + 1) * (chanend - chanstart + 1); else ntraces = traceend - tracestart + 1; ngridx = ntraces / decimatex; sampleinterval = 0.000001 * (double) (fileheader.sample_interval); ngridy = timesweep / sampleinterval / decimatey + 1; ngridxy = ngridx * ngridy; xmin = (double) tracestart - 0.5; xmax = (double) traceend + 0.5; ymax = -(timedelay - 0.5 * sampleinterval / decimatey); ymin = ymax - ngridy * sampleinterval * decimatey; /*ymax = timedelay + timesweep + 0.5 * sampleinterval / decimatey;*/ /* get start and end samples */ if (windowmode == MBSEGYGRID_WINDOW_OFF) { iystart = 0; iyend = ngridy - 1; } else if (windowmode == MBSEGYGRID_WINDOW_ON) { iystart = MAX((windowstart) / sampleinterval, 0); iyend = MIN((windowend) / sampleinterval, ngridy - 1); } /* allocate memory for grid array */ status = mb_mallocd(verbose,__FILE__,__LINE__, 2 * ngridxy * sizeof(float), (void **)&grid, &error); status = mb_mallocd(verbose,__FILE__,__LINE__, ngridy * sizeof(float), (void **)&ptrace, &error); status = mb_mallocd(verbose,__FILE__,__LINE__, ngridy * sizeof(float), (void **)&wtrace, &error); /* output info */ if (verbose >= 0) { fprintf(outfp,"\nMBsegygrid Parameters:\n"); fprintf(outfp,"Input segy file: %s\n",segyfile); fprintf(outfp,"Output fileroot: %s\n",fileroot); fprintf(outfp,"Input Parameters:\n"); fprintf(outfp," trace mode: %d\n",tracemode); fprintf(outfp," trace start: %d\n",tracestart); fprintf(outfp," trace end: %d\n",traceend); fprintf(outfp," channel start: %d\n",chanstart); fprintf(outfp," channel end: %d\n",chanend); fprintf(outfp," trace decimation: %d\n",decimatex); fprintf(outfp," time sweep: %f seconds\n",timesweep); fprintf(outfp," time delay: %f seconds\n",timedelay); fprintf(outfp," sample interval: %f seconds\n",sampleinterval); fprintf(outfp," sample decimation: %d\n",decimatey); fprintf(outfp," window mode: %d\n",windowmode); fprintf(outfp," window start: %f seconds\n",windowstart); fprintf(outfp," window end: %f seconds\n",windowend); fprintf(outfp," agcmode: %d\n",agcmode); fprintf(outfp," gain mode: %d\n",gainmode); fprintf(outfp," gain: %f\n",gain); fprintf(outfp," gainwindow: %f\n",gainwindow); fprintf(outfp,"Output Parameters:\n"); fprintf(outfp," grid filename: %s\n",gridfile); fprintf(outfp," x grid dimension: %d\n",ngridx); fprintf(outfp," y grid dimension: %d\n",ngridy); fprintf(outfp," grid xmin: %f\n",xmin); fprintf(outfp," grid xmax: %f\n",xmax); fprintf(outfp," grid ymin: %f\n",ymin); fprintf(outfp," grid ymax: %f\n",ymax); fprintf(outfp," NaN values used to flag regions with no data\n"); if (scale2distance == MB_YES) { fprintf(outfp," shot and time scaled to distance in meters\n"); fprintf(outfp," shotscale: %f\n",shotscale); fprintf(outfp," timescale: %f\n",timescale); fprintf(outfp," scaled grid xmin %f\n",0.0); fprintf(outfp," scaled grid xmax: %f\n",shotscale * (xmax - xmin)); fprintf(outfp," scaled grid ymin: %f\n",0.0); fprintf(outfp," scaled grid ymax: %f\n",timescale * (ymax - ymin)); } } if (verbose > 0) fprintf(outfp,"\n"); /* proceed if all ok */ if (status == MB_SUCCESS) { /* fill grid with NaNs */ for (i=0;i= chanstart) { tracecount = (tracenum - tracestart) * (chanend - chanstart + 1) + (channum - chanstart); } else { tracecount = tracenum - tracestart; } ix = tracecount / decimatex; if (traceheader.elev_scalar < 0) factor = 1.0 / ((float) (-traceheader.elev_scalar)); else factor = (float) traceheader.elev_scalar; if (traceheader.src_depth > 0) { btime = factor * traceheader.src_depth / 750.0 + 0.001 * traceheader.delay_mils; dtime = factor * traceheader.src_depth / 750.0; btimesave = btime; dtimesave = dtime; } else if (traceheader.src_elev > 0) { btime = -factor * traceheader.src_elev / 750.0 + 0.001 * traceheader.delay_mils; dtime = -factor * traceheader.src_elev / 750.0; btimesave = btime; dtimesave = dtime; } else { btime = btimesave; dtime = dtimesave; } if (traceheader.src_wbd > 0) { stime = factor * traceheader.src_wbd / 750.0; stimesave = stime; } else { stime = stimesave; } iys = (btime - timedelay) / sampleinterval; /* now check if this is a trace of interest */ traceok = MB_YES; if (tracenum < tracestart || tracenum > traceend) traceok = MB_NO; else if (chanend >= chanstart && (channum < chanstart || channum > chanend)) traceok = MB_NO; else if (tracecount % decimatex != 0) traceok = MB_NO; /* get trace min and max */ tracemin = trace[0]; tracemax = trace[0]; for (i=0;i 0.0) factor = gain / tmax; else factor = 1.0; for (i=0;i<=traceheader.nsamps;i++) { trace[i] *= factor; } /*fprintf(stderr,"igainstart:%d igainend:%d tmax:%f factor:%f\n", igainstart,igainend,tmax,factor);*/ } /* apply agc if desired */ if (agcmode == MB_YES && agcwindow > 0.0) { if (worktrace == NULL || traceheader.nsamps > worktrace_alloc) { status = mb_reallocd(verbose,__FILE__,__LINE__, traceheader.nsamps * sizeof(float), (void **)&worktrace, &error); worktrace_alloc = traceheader.nsamps; } iagchalfwindow = 0.5 * agcwindow / sampleinterval; for (i=0;i<=traceheader.nsamps;i++) { igainstart = i - iagchalfwindow; igainstart = MAX(0, igainstart); igainend = i + iagchalfwindow; igainend = MIN(traceheader.nsamps - 1, igainend); tmax = 0.0; for (j=igainstart;j<=igainend;j++) { tmax = MAX(tmax, fabs(trace[j])); } if (tmax > 0.0) worktrace[i] = trace[i] * agcmaxvalue / tmax; else worktrace[i] = trace[i]; } for (i=0;i<=traceheader.nsamps;i++) { trace[i] = worktrace[i]; } } else if (agcmode == MB_YES) { tmax = 0.0; for (i=0;i<=traceheader.nsamps;i++) { tmax = MAX(tmax, fabs(trace[i])); } if (tmax > 0.0) factor = agcmaxvalue / tmax; else factor = 1.0; for (i=0;i<=traceheader.nsamps;i++) { trace[i] *= factor; } } /* process trace */ for (iy=0;iy= iystart && iy <= iyend) { ptrace[iy] += trace[i]; wtrace[iy] += 1.0; } } /* if this is the last trace to go in this column, add it to the grid */ if ((tracecount + 1) % decimatex == 0) { /* insert data into the grid */ for (iy=0;iy 0.0) { grid[k] = ptrace[iy] / wtrace[iy]; /*fprintf(stderr,"ix:%d iy:%d k:%d ptrace:%f wtrace:%f grid:%f\n", ix,iy,k,ptrace[iy],wtrace[iy],grid[k]);*/ gridmintot = MIN(grid[k], gridmintot); gridmaxtot = MAX(grid[k], gridmaxtot); } } } } } /* now process the trace */ if (status == MB_SUCCESS) nread++; } } /* write out the grid */ error = MB_ERROR_NO_ERROR; status = MB_SUCCESS; strcpy(projection, "SeismicProfile"); if (scale2distance == MB_YES) { strcpy(xlabel, "Distance (m)"); strcpy(ylabel, "Depth (m)"); xmax = shotscale * (xmax - xmin); xmin = 0.0; ymin = timescale * ymin; ymax = timescale * ymax; dx = shotscale * decimatex; dy = timescale * sampleinterval / decimatey; } else { strcpy(xlabel, "Trace Number"); strcpy(ylabel, "Travel Time (seconds)"); dx = (double) decimatex; dy = sampleinterval / decimatey; } strcpy(zlabel, "Trace Signal"); sprintf(title, "Seismic Grid from %s", segyfile); status = write_cdfgrd(verbose, gridfile, grid, ngridx, ngridy, xmin, xmax, ymin, ymax, gridmintot, gridmaxtot, dx, dy, xlabel, ylabel, zlabel, title, projection, argc, argv, &error); /* close the swath file */ status = mb_segy_close(verbose,&mbsegyioptr,&error); /* deallocate memory for grid array */ if (worktrace != NULL) status = mb_freed(verbose,__FILE__,__LINE__,(void **)&worktrace, &error); status = mb_freed(verbose,__FILE__,__LINE__,(void **)&grid, &error); status = mb_freed(verbose,__FILE__,__LINE__,(void **)&ptrace, &error); status = mb_freed(verbose,__FILE__,__LINE__,(void **)&wtrace, &error); /* run mbm_grdplot */ xwidth = MIN(0.01 * (double) ngridx, 55.0); ywidth = MIN(0.01 * (double) ngridy, 28.0); sprintf(plot_cmd, "mbm_grdplot -I%s -JX%f/%f -G1 -V -L\"File %s - %s:%s\"", gridfile, xwidth, ywidth, gridfile, title, zlabel); if (verbose) { fprintf(outfp, "\nexecuting mbm_grdplot...\n%s\n", plot_cmd); } plot_status = system(plot_cmd); if (plot_status == -1) { fprintf(outfp, "\nError executing mbm_grdplot on grid file %s\n", gridfile); } /* check memory */ if (verbose >= 4) status = mb_memory_list(verbose,&error); /* print output debug statements */ if (verbose >= 2) { fprintf(outfp,"\ndbg2 Program <%s> completed\n", program_name); fprintf(outfp,"dbg2 Ending status:\n"); fprintf(outfp,"dbg2 status: %d\n",status); } /* end it all */ exit(error); } /*--------------------------------------------------------------------*/ /* * function get_segy_limits gets info for default segy gridding */ int get_segy_limits(int verbose, char *segyfile, int *tracemode, int *tracestart, int *traceend, int *chanstart, int *chanend, double *timesweep, double *timedelay, int *error) { char *function_name = "get_segy_limits"; int status = MB_SUCCESS; char sinffile[MB_PATH_MAXLINE]; char command[MB_PATH_MAXLINE]; char line[MB_PATH_MAXLINE]; FILE *sfp; int datmodtime = 0; int sinfmodtime = 0; struct stat file_status; int fstat; double delay0, delay1, delaydel; int shot0, shot1, shotdel; int shottrace0, shottrace1, shottracedel; int rp0, rp1, rpdel; int rptrace0, rptrace1, rptracedel; int nscan; /* print input debug statements */ if (verbose >= 2) { fprintf(outfp,"\ndbg2 Function <%s> called\n", function_name); fprintf(outfp,"dbg2 Input arguments:\n"); fprintf(outfp,"dbg2 verbose: %d\n",verbose); fprintf(outfp,"dbg2 segyfile: %s\n",segyfile); } /* set sinf filename */ sprintf(sinffile, "%s.sinf", segyfile); /* check status of segy and sinf file */ datmodtime = 0; sinfmodtime = 0; if ((fstat = stat(segyfile, &file_status)) == 0 && (file_status.st_mode & S_IFMT) != S_IFDIR) { datmodtime = file_status.st_mtime; } if ((fstat = stat(sinffile, &file_status)) == 0 && (file_status.st_mode & S_IFMT) != S_IFDIR) { sinfmodtime = file_status.st_mtime; } /* if sinf file is missing or out of date, make it */ if (datmodtime > 0 && datmodtime > sinfmodtime) { if (verbose >= 1) fprintf(stderr,"\nGenerating sinf file for %s\n",segyfile); sprintf(command, "mbsegyinfo -I %s -O", segyfile); system(command); } /* read sinf file if possible */ sprintf(sinffile, "%s.sinf", segyfile); if ((sfp = fopen(sinffile, "r")) != NULL) { /* read the sinf file */ while (fgets(line, MB_PATH_MAXLINE, sfp) != NULL) { if (strncmp(line, " Trace length (sec):", 21) == 0) { nscan = sscanf(line, " Trace length (sec):%lf", timesweep); } else if (strncmp(line, " Delay (sec):", 16) == 0) { nscan = sscanf(line, " Delay (sec): %lf %lf %lf", &delay0, &delay1, &delaydel); } else if (strncmp(line, " Shot number:", 16) == 0) { nscan = sscanf(line, " Shot number: %d %d %d", &shot0, &shot1, &shotdel); } else if (strncmp(line, " Shot trace:", 15) == 0) { nscan = sscanf(line, " Shot trace: %d %d %d", &shottrace0, &shottrace1, &shottracedel); } else if (strncmp(line, " RP number:", 14) == 0) { nscan = sscanf(line, " RP number: %d %d %d", &rp0, &rp1, &rpdel); } else if (strncmp(line, " RP trace:", 13) == 0) { nscan = sscanf(line, " RP trace: %d %d %d", &rptrace0, &rptrace1, &rptracedel); } } fclose(sfp); } /* set the trace mode */ if (rpdel > 1) { *tracemode = MBSEGYGRID_USECMP; *tracestart = rp0; *traceend = rp1; *chanstart = rptrace0; *chanend = rptrace1; } else { *tracemode = MBSEGYGRID_USESHOT; *tracestart = shot0; *traceend = shot1; *chanstart = shottrace0; *chanend = shottrace1; } /* set the sweep and delay */ if (delaydel > 0.0) { *timesweep += delaydel; } *timedelay = delay0; /* print output debug statements */ if (verbose >= 2) { fprintf(outfp,"\ndbg2 MBIO function <%s> completed\n", function_name); fprintf(outfp,"dbg2 Return values:\n"); fprintf(outfp,"dbg2 tracemode: %d\n",*tracemode); fprintf(outfp,"dbg2 tracestart: %d\n",*tracestart); fprintf(outfp,"dbg2 traceend: %d\n",*traceend); fprintf(outfp,"dbg2 chanstart: %d\n",*chanstart); fprintf(outfp,"dbg2 chanend: %d\n",*chanend); fprintf(outfp,"dbg2 timesweep: %f\n",*timesweep); fprintf(outfp,"dbg2 timedelay: %f\n",*timedelay); fprintf(outfp,"dbg2 error: %d\n",*error); fprintf(outfp,"dbg2 Return status:\n"); fprintf(outfp,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/ /* * function write_cdfgrd writes output grid to a * GMT version 2 netCDF grd file */ int write_cdfgrd(int verbose, char *outfile, float *grid, int nx, int ny, double xmin, double xmax, double ymin, double ymax, double zmin, double zmax, double dx, double dy, char *xlab, char *ylab, char *zlab, char *titl, char *projection, int argc, char **argv, int *error) { char *function_name = "write_cdfgrd"; int status = MB_SUCCESS; struct GRD_HEADER grd; double w, e, s, n; #ifdef GMT_MINOR_VERSION GMT_LONG pad[4]; #else int pad[4]; #endif time_t right_now; char date[MB_PATH_MAXLINE], user[MB_PATH_MAXLINE], *user_ptr, host[MB_PATH_MAXLINE]; char remark[MB_PATH_MAXLINE]; char *ctime(); char *getenv(); int i; /* print input debug statements */ if (verbose >= 2) { fprintf(outfp,"\ndbg2 Function <%s> called\n", function_name); fprintf(outfp,"dbg2 Input arguments:\n"); fprintf(outfp,"dbg2 verbose: %d\n",verbose); fprintf(outfp,"dbg2 outfile: %s\n",outfile); fprintf(outfp,"dbg2 grid: %lu\n",(size_t)grid); fprintf(outfp,"dbg2 nx: %d\n",nx); fprintf(outfp,"dbg2 ny: %d\n",ny); fprintf(outfp,"dbg2 xmin: %f\n",xmin); fprintf(outfp,"dbg2 xmax: %f\n",xmax); fprintf(outfp,"dbg2 ymin: %f\n",ymin); fprintf(outfp,"dbg2 ymax: %f\n",ymax); fprintf(outfp,"dbg2 zmin: %f\n",zmin); fprintf(outfp,"dbg2 zmax: %f\n",zmax); fprintf(outfp,"dbg2 dx: %f\n",dx); fprintf(outfp,"dbg2 dy: %f\n",dy); fprintf(outfp,"dbg2 xlab: %s\n",xlab); fprintf(outfp,"dbg2 ylab: %s\n",ylab); fprintf(outfp,"dbg2 zlab: %s\n",zlab); fprintf(outfp,"dbg2 titl: %s\n",titl); fprintf(outfp,"dbg2 argc: %d\n",(int)argc); fprintf(outfp,"dbg2 *argv: %lu\n",(size_t)*argv); } /* inititialize grd header */ GMT_program = program_name; GMT_grd_init (&grd, 1, argv, FALSE); GMT_io_init (); GMT_grdio_init (); GMT_make_fnan (GMT_f_NaN); GMT_make_dnan (GMT_d_NaN); /* copy values to grd header */ grd.nx = nx; grd.ny = ny; grd.node_offset = 1; /* pixel registration */ grd.x_min = xmin; grd.x_max = xmax; grd.y_min = ymin; grd.y_max = ymax; grd.z_min = zmin; grd.z_max = zmax; grd.x_inc = dx; grd.y_inc = dy; grd.z_scale_factor = 1.0; grd.z_add_offset = 0.0; strcpy(grd.x_units,xlab); strcpy(grd.y_units,ylab); strcpy(grd.z_units,zlab); strcpy(grd.title,titl); strcpy(grd.command,"\0"); strncpy(date,"\0",MB_PATH_MAXLINE); right_now = time((time_t *)0); strncpy(date,ctime(&right_now),24);date[24]='\0'; if ((user_ptr = getenv("USER")) == NULL) user_ptr = getenv("LOGNAME"); if (user_ptr != NULL) strcpy(user,user_ptr); else strcpy(user, "unknown"); gethostname(host,MB_PATH_MAXLINE); sprintf(remark,"\n\tProjection: %s\n\tGrid created by %s\n\tMB-system Version %s\n\tRun by <%s> on <%s> at <%s>", projection,program_name,MB_VERSION,user,host,date); strncpy(grd.remark, remark, 159); /* set extract wesn,pad */ w = 0.0; e = 0.0; s = 0.0; n = 0.0; for (i=0;i<4;i++) pad[i] = 0; /* write grid to GMT netCDF grd file */ /*for (i=0;i= 2) { fprintf(outfp,"\ndbg2 MBIO function <%s> completed\n", function_name); fprintf(outfp,"dbg2 Return values:\n"); fprintf(outfp,"dbg2 error: %d\n",*error); fprintf(outfp,"dbg2 Return status:\n"); fprintf(outfp,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/