#!/bin/perl -i.bak

#
# fixup.pl filename [filename...]
#
while ( <> ) {
	if (/Calc_Irrad/) {
		s/Calc_Irrad/Calc_Irrad97epa/ ;
		print;
	}
	else {
	print;
	}
}
