lll

seismic software,very useful

60,66d59
< #ifdef __convex__
<         #define fseek2g(x,y,z)  fseek64(x,y,z);
< #else
<         #define fseek2g(x,y,z)  fseek(x,y,z);
< #endif
< 
< 
72,74d64
< 	char cbuf[40][80];
< 	void create_segyched(char cbuf[40][80]);
< 	int i;
118a109,110
> 	bh.hns = ns;
> 
148,231d139
< void create_segyched(char cbuf[40][80]) {
< 
< 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                                                              ");
< }
<