This detailes the differences between the IRIS distribution of rdseed4.7.5 the changes made for inclusion in Computer Programs in Seismology (CPS).
diff CPS/rdseed4.7.5/FILE IRIS/rdseed/FILE -------------------------------------------------------------------------------- cmp: ../rdseed/GETOPT.CYGWIN/getopt-1.0.3: No such file or directory -------------------------------------------------------------------------------- Ah/makefile ../rdseed/Ah/makefile 0a1 > CC=gcc -------------------------------------------------------------------------------- Decoders/makefile ../rdseed/Decoders/makefile 0a1 > CC=gcc -------------------------------------------------------------------------------- Decoders/process_data.c ../rdseed/Decoders/process_data.c 906c906 < Strupr(decode); /* make all upper case comparisons */ --- > strupr(decode); /* make all upper case comparisons */ -------------------------------------------------------------------------------- Decoders/process_event_requests.c ../rdseed/Decoders/process_event_requests.c 41,42c41,42 < Strupr(start_phase_point[i].name); < if (i < end_phase_count) Strupr(end_phase_point[i].name); --- > strupr(start_phase_point[i].name); > if (i < end_phase_count) strupr(end_phase_point[i].name); 175c175 < strncpy(cbuf, type72->phasename, 30); cbuf[30] = '\0'; Strupr(cbuf); --- > strncpy(cbuf, type72->phasename, 30); cbuf[30] = '\0'; strupr(cbuf); 185c185 < strncpy(cbuf, tmp72->phasename, 30); cbuf[30] = '\0'; Strupr(cbuf); --- > strncpy(cbuf, tmp72->phasename, 30); cbuf[30] = '\0'; strupr(cbuf); -------------------------------------------------------------------------------- Include/rdseed.h ../rdseed/Include/rdseed.h 397,401d396 < /* Begin Change R B Herrmann November 24, 2007 */ < void Strupr(char *string); < char *alloc_linklist_element (size_t size, char *caller); < /* End Change R B Herrmann November 24, 2007 */ < -------------------------------------------------------------------------------- Include/sac.h ../rdseed/Include/sac.h 113,152c113,152 < int nzyear; /* F zero time of file, yr */ < int nzjday; /* F zero time of file, day */ < int nzhour; /* F zero time of file, hr */ < int nzmin; /* F zero time of file, min */ < int nzsec; /* F zero time of file, sec */ < int nzmsec; /* F zero time of file, msec*/ < int internal4; /* internal use */ < int internal5; /* internal use */ < int internal6; /* internal use */ < int npts; /* RF number of samples */ < int internal7; /* internal use */ < int internal8; /* internal use */ < int unused13; /* reserved for future use*/ < int unused14; /* reserved for future use*/ < int unused15; /* reserved for future use*/ < int iftype; /* RA type of file */ < int idep; /* type of amplitude */ < int iztype; /* zero time equivalence */ < int unused16; /* reserved for future use*/ < int iinst; /* recording instrument */ < int istreg; /* stn geographic region */ < int ievreg; /* event geographic region*/ < int ievtyp; /* event type */ < int iqual; /* quality of data */ < int isynth; /* synthetic data flag */ < int unused17; /* reserved for future use*/ < int unused18; /* reserved for future use*/ < int unused19; /* reserved for future use*/ < int unused20; /* reserved for future use*/ < int unused21; /* reserved for future use*/ < int unused22; /* reserved for future use*/ < int unused23; /* reserved for future use*/ < int unused24; /* reserved for future use*/ < int unused25; /* reserved for future use*/ < int unused26; /* reserved for future use*/ < int leven; /* RA data-evenly-spaced flag*/ < int lpspol; /* station polarity flag */ < int lovrok; /* overwrite permission */ < int lcalda; /* calc distance, azimuth */ < int unused27; /* reserved for future use*/ --- > long nzyear; /* F zero time of file, yr */ > long nzjday; /* F zero time of file, day */ > long nzhour; /* F zero time of file, hr */ > long nzmin; /* F zero time of file, min */ > long nzsec; /* F zero time of file, sec */ > long nzmsec; /* F zero time of file, msec*/ > long internal4; /* internal use */ > long internal5; /* internal use */ > long internal6; /* internal use */ > long npts; /* RF number of samples */ > long internal7; /* internal use */ > long internal8; /* internal use */ > long unused13; /* reserved for future use*/ > long unused14; /* reserved for future use*/ > long unused15; /* reserved for future use*/ > long iftype; /* RA type of file */ > long idep; /* type of amplitude */ > long iztype; /* zero time equivalence */ > long unused16; /* reserved for future use*/ > long iinst; /* recording instrument */ > long istreg; /* stn geographic region */ > long ievreg; /* event geographic region*/ > long ievtyp; /* event type */ > long iqual; /* quality of data */ > long isynth; /* synthetic data flag */ > long unused17; /* reserved for future use*/ > long unused18; /* reserved for future use*/ > long unused19; /* reserved for future use*/ > long unused20; /* reserved for future use*/ > long unused21; /* reserved for future use*/ > long unused22; /* reserved for future use*/ > long unused23; /* reserved for future use*/ > long unused24; /* reserved for future use*/ > long unused25; /* reserved for future use*/ > long unused26; /* reserved for future use*/ > long leven; /* RA data-evenly-spaced flag*/ > long lpspol; /* station polarity flag */ > long lovrok; /* overwrite permission */ > long lcalda; /* calc distance, azimuth */ > long unused27; /* reserved for future use*/ -------------------------------------------------------------------------------- Main/ah_resp.c ../rdseed/Main/ah_resp.c 639c639 < Strupr(t_34->description); --- > strupr(t_34->description); -------------------------------------------------------------------------------- Main/output_css.c ../rdseed/Main/output_css.c 184c184 < Strupr(temp); --- > strupr(temp); -------------------------------------------------------------------------------- Main/output_resp.c ../rdseed/Main/output_resp.c 98d97 < 104,123d102 < /* ADDITION R B HERRMANN November 16, 2007 < to provide more information the dataless SEED about the stations < */ < fprintf(stderr,"%3s %5s %2s %3s %s %s %10.6f %11.6f %7.1f %5.1f %5.1f %10.4g %s \n",current_station->network_code ? current_station->network_code : "**", < current_station->station, < (strlen(current_channel->location) != 0 ) ? current_channel->location : "**", < current_channel->channel, < current_channel->start, < (current_channel->end != NULL) ? current_channel->end : "2999,000,00:00:00.0000", < current_channel->latitude, < current_channel->longitude, < current_channel->elevation, < current_channel->dip, < current_channel->azimuth, < current_channel->samplerate, < outfile_name); < < /* END ADDITION R B HERRMANN November 16, 2007 < */ < -------------------------------------------------------------------------------- Main/output_sac.c ../rdseed/Main/output_sac.c 1094,1096d1093 < /* CHANGE R B HERRMANN NOVEMBER 16, 2007 < IF one does a rdseed followed by a rdseed the SAC file is appended < sac will not be able touse this file 1098,1101d1094 < */ < fptr = fopen(fname, "w"); < /* END CHANGE R B HERRMANN NOVEMBER 16, 2007 < */ 1153,1176d1145 < /* RBH 13 SEP 2007 */ < fprintf(fptr,"* ****\n"); < fprintf(fptr,"* NETWORK (KNETWK): %s\n", < current_station->network_code? current_station->network_code: ""); < fprintf(fptr,"* STATION (KSTNM ): %s\n",current_station->station); < fprintf(fptr,"* COMPONENT (KCMPNM): %s\n",current_channel->channel); < fprintf(fptr,"* LOCATION (KHOLE ): %s\n", < current_channel->location? current_channel->location:""); < fprintf(fptr,"* START : %22s\n",current_channel->start); < fprintf(fptr,"* END : %22s\n", < current_channel->end? current_channel->end: "No Ending Time"); < fprintf(fptr,"* INPUT UNIT : METER\n"); < fprintf(fptr,"* OUTPUT UNIT : COUNT\n"); < fprintf(fptr,"* LATITUDE (DEG) : %10.5f\n",current_channel->latitude); < fprintf(fptr,"* LONGITUDE (DEG) : %10.5f\n",current_channel->longitude); < fprintf(fptr,"* ELEVATION (M) : %10.5f\n",current_channel->elevation); < fprintf(fptr,"* DEPTH (M) : %10.5f\n",current_channel->local_depth); < fprintf(fptr,"* DIP (DEG) : %10.5f\n",current_channel->dip); < fprintf(fptr,"* AZIMUTH (DEG) : %10.5f\n",current_channel->azimuth); < fprintf(fptr,"* INSTRUMENT COMMENT: %s\n",current_channel->inst_comment); < fprintf(fptr,"* CHANNEL_FLAG : %s\n",current_channel->channel_flag); < fprintf(fptr,"* ****\n"); < /* RBH 13 SEP 2007 */ < -------------------------------------------------------------------------------- Main/rdseed.c ../rdseed/Main/rdseed.c 2248c2248 < Strupr(location_point[location_count]); --- > strupr(location_point[location_count]); 2658c2658 < Strupr(station_point[i]); --- > strupr(station_point[i]); 2702c2702 < Strupr(channel_point[i]); --- > strupr(channel_point[i]); 2859c2859 < /* SEED reader | Strupr | main program */ --- > /* SEED reader | strupr | main program */ 2862c2862 < void Strupr(string) --- > strupr(string) -------------------------------------------------------------------------------- Main/summary.c ../rdseed/Main/summary.c 650c650 < Strupr(stn_ptr->ts_head->chn_list); --- > strupr(stn_ptr->ts_head->chn_list); 1209,1210c1209,1210 < Strupr(chn_list); < Strupr(channel); --- > strupr(chn_list); > strupr(channel); 1241,1242c1241,1242 < Strupr(l); < Strupr(location); --- > strupr(l); > strupr(location); -------------------------------------------------------------------------------- Man/rdseed.1 ../rdseed/Man/rdseed.1 38,44d37 < .B \-C STN < .br < .B \-C CHN < .br < .B \-C STN CHN < Output station/channel comments. < .TP 59a53,55 > .B \-R > retrieve all response information in a "evalresp" compatible format. > .TP 68,70d63 < Used together with the < .B \-d < flag. The combination \f2-d -o 1\f1 gives SAC binary output files for waveforms. 81,83d73 < .B \-E < Output filename includes endtime, e.g., 2002.169.17.31.08.0480_2002.169.18.00.39.2480.IU.WCI..BHE.D.SAC instead of the default 2002.169.17.31.08.0480.IU.WCI..BHE.D.SAC for the \f2-d -o 1\f1 requested output. < .TP 97,110d86 < .TP < .B \-k < Strip records with zero samples. < .B \-d < flag. < .TP < .B \-p < Output response in SAC pole-zero format < .TP < .B \-R < retrieve all response information in a "evalresp" compatible format. < .TP < .B \-u < show command line usage for "rdseed" 610,611d585 < .br < Modified R B Herrmann, November 24, 2007 -------------------------------------------------------------------------------- Utilities/allocation_error.c ../rdseed/Utilities/allocation_error.c 30,32d29 < /* Begin R B Herrmann november 24 2007 */ < #include< /* End R B Herrmann november 24 2007 */ -------------------------------------------------------------------------------- Utilities/alloc_linklist_element.c ../rdseed/Utilities/alloc_linklist_element.c 73,76d72 < /* Begin R B Herrmann November 24, 2007 */ < #include < #include < /* End R B Herrmann november 24, 2007 */ -------------------------------------------------------------------------------- Utilities/get_date.c ../rdseed/Utilities/get_date.c 14,16d13 < /* BEGIN R B Herrmann November 24,2007 < */ < #include 18d14 < /* END R B Herrmann November 24,2007 */ -------------------------------------------------------------------------------- Utilities/log_errors.c ../rdseed/Utilities/log_errors.c 90,93d89 < void stderr_to_file(char *fmt, va_list ap); < < < 124,125c120,122 < void stderr_to_file(char *fmt, va_list ap) < { --- > void stderr_to_file(fmt, ap) > char *fmt; > char *ap; 127a125 > { 128a127 > 129a129 > 130a131 > 132a134 > 133a136 > 134a138 > 135a140 > 138a144,145 > return; >