This details the differences between the IRIS distribution of evalresp and the changes made for inclusion in Computer Programs in Seismology (CPS).
diff parse_fctns.c ../evalresp-3.3.3.slu/parse_fctns.c
11a12 > 5/2008 -- [EJH] modified to handle extra long FIR filters 338a340,347 > /* Change Eric J. Haug SLU May, 2008 to handle continuation for > FIRST with a large number of coefficients. Basically we need to get past > the tendency of some SEED writers to put the following phase in the > RESP file "No Abbreviation Referenced" for Response in units lookup and > Response out units lookup > */ > static int prev_seq_number; > /* END EJH CHANGE */ 383a393,407 > /* Change Eric J. Haug SLU May, 2008 to handle continuation for > FIRST with a large number of coefficients. Basically we need to get past > the tendency of some SEED writers to put the following phase in the > RESP file "No Abbreviation Referenced" for Response in units lookup and > Response out units lookup > > TEST the sequencing > */ > /* > > fprintf(stderr, "curr_seq_no = %d stage_ptr->sequence_no = %d\n", curr_seq_no, stage_ptr->sequence_no); > fprintf(stderr, "prev_seq_number = %d\n", prev_seq_number); > */ > /* END EJH CHANGE */ > 385a410,418 > /* Change Eric J. Haug SLU May, 2008 to handle continuation for > FIRST with a large number of coefficients. Basically we need to get past > the tendency of some SEED writers to put the following phase in the > RESP file "No Abbreviation Referenced" for Response in units lookup and > Response out units lookup > */ > if ( curr_seq_no == prev_seq_number ) > ; > else 386a420,423 > /* END EJH CHANGE */ > /* > stage_ptr->input_units = check_units(line); > */ 388a426,437 > /* Change Eric J. Haug SLU May, 2008 to handle continuation for > FIRST with a large number of coefficients. Basically we need to get past > the tendency of some SEED writers to put the following phase in the > RESP file "No Abbreviation Referenced" for Response in units lookup and > Response out units lookup > */ > if ( curr_seq_no == prev_seq_number ) > ; > else > stage_ptr->output_units = check_units(line); > /* END EJH CHANGE */ > /* 389a439 > */ 437a488,495 > /* Change Eric J. Haug SLU May, 2008 to handle continuation for > FIRST with a large number of coefficients. Basically we need to get past > the tendency of some SEED writers to put the following phase in the > RESP file "No Abbreviation Referenced" for Response in units lookup and > Response out units lookup > */ > prev_seq_number = curr_seq_no; > /* END EJH CHANGE */