idhdrs.c

seismic software,very useful

/* create identification headers for segy data */
/* input:
* 	ns	-- 	number of samples per trace
*  output:
*	ch	--	c card header
*	bh	--	binary header
*
*  author:	zhiming li 	8-14-92		      
*/

#include "su.h"
#include "segy.h"
#include "header.h"


void idhdrs(segychdr *ch, segybhdr *bh, int ns) {

	char cbuf[40][80];

	/* create 400 bytes of binary header */	
	bzero(bh,BNYBYTES);
	bh->hns = ns;
	bh->format  = 1;


	/* create 3200 bytes of c cards */
		
sprintf(cbuf[0], "%-79s\n",
"C 1 CLIENT                        COMPANY                       CREW NO     ");
sprintf(cbuf[1], "%-79s\n",
"C 2 LINE            AREA                       MAP ID                       ");
sprintf(cbuf[2], "%-79s\n",
"C 3 REEL NO           DAY-START OF REEL     YEAR      OBSERVER              ");
sprintf(cbuf[3], "%-79s\n",
"C 4 INSTRUMENT  MFG            MODEL            SERIAL NO                   ");
sprintf(cbuf[4], "%-79s\n",
"C 5 DATA TRACES/RECORD        AUXILIARY TRACES/RECORD         CDP FOLD      ");
sprintf(cbuf[5], "%-79s\n",
"C 6 SAMPLE INTERVAL         SAMPLES/TRACE       BITS/IN      BYTES/SAMPLE   ");
sprintf(cbuf[6], "%-79s\n",
"C 7 RECORDING FORMAT        FORMAT THIS REEL        MEASUREMENT SYSTEM      ");
sprintf(cbuf[7], "%-79s\n",
"C 8 SAMPLE CODE                                                             ");
sprintf(cbuf[8], "%-79s\n",
"C 9 GAIN  TYPE                                                              ");
sprintf(cbuf[9], "%-79s\n",
"C10 FILTERS                                                                 ");
sprintf(cbuf[10], "%-79s\n",
"C11 SOURCE  TYPE            NUMBER/POINT        POINT INTERVAL              ");
sprintf(cbuf[11], "%-79s\n",
"C12     PATTERN                            LENGTH        WIDTH              ");
sprintf(cbuf[12], "%-79s\n",
"C13 SWEEP  START     HZ  END     HZ  LENGTH      MS  CHANNEL NO     TYPE    ");
sprintf(cbuf[13], "%-79s\n",
"C14 TAPER  START LENGTH       MS  END LENGTH       MS  TYPE                 ");
sprintf(cbuf[14], "%-79s\n",
"C15 SPREAD  OFFSET        MAX DISTANCE        GROUP INTERVAL                ");
sprintf(cbuf[15], "%-79s\n",
"C16 GEOPHONES  PER GROUP     SPACING     FREQUENCY     MFG          MODEL   ");
sprintf(cbuf[16], "%-79s\n",
"C17      TYPE                              LENGTH        WIDTH              ");
sprintf(cbuf[17], "%-79s\n",
"C18 TRACES SORTED BY               PROJECT                LINE ID           ");
sprintf(cbuf[18], "%-79s\n",
"C19 AMPLITUDE RECOVERY                                                      ");
sprintf(cbuf[19], "%-79s\n",
"C20 MAP PROJECTION                      ZONE ID       COORDINATE UNITS      ");
sprintf(cbuf[20], "%-79s\n",
"C21 FIELD SUM       NAVIGATION SYSTEM               RECORDING PARTY         ");
sprintf(cbuf[21], "%-79s\n",
"C22 CABLE TYPE                   DEPTH        SHOOTING DIRECTION            ");
sprintf(cbuf[22], "%-79s\n",
"C23                                                                         ");
sprintf(cbuf[23], "%-79s\n",
"C24                                                                         ");
sprintf(cbuf[24], "%-79s\n",
"C25                                                                         ");
sprintf(cbuf[25], "%-79s\n",
"C26                                                                         ");
sprintf(cbuf[26], "%-79s\n",
"C27                                                                         ");
sprintf(cbuf[27], "%-79s\n",
"C28                                                                         ");
sprintf(cbuf[28], "%-79s\n",
"C29                                                                         ");
sprintf(cbuf[29], "%-79s\n",
"C30                                                                         ");
sprintf(cbuf[30], "%-79s\n",
"C31                                                                         ");
sprintf(cbuf[31], "%-79s\n",
"C32                                                                         ");
sprintf(cbuf[32], "%-79s\n",
"C33                                                                         ");
sprintf(cbuf[33], "%-79s\n",
"C34                                                                         ");
sprintf(cbuf[34], "%-79s\n",
"C35                                                                         ");
sprintf(cbuf[35], "%-79s\n",
"C36                                                                         ");
sprintf(cbuf[36], "%-79s\n",
"C37                                                                         ");
sprintf(cbuf[37], "%-79s\n",
"C38                                                                         ");
sprintf(cbuf[38], "%-79s\n",
"C39                                                                         ");
sprintf(cbuf[39], "%-79s\n",
"C40 END EBCDIC                                                              ");


	bcopy(cbuf,ch,3200);

}