1#! /bin/csh 2# 3# $Id$ 4# 5 6perl -pi.bak -e 's/\b dlamch_("base") \b/DLAMCHB/g' *.c 7perl -pi.bak -e 's/dlamch_("base")/DLAMCHB/g' *.c 8perl -pi.bak -e 's/\bdlamch_\(\"s\"\)\b/DLAMCHB/g' *.c 9perl -pi.bak -e 's/dlamch_\(\"s\"\)/DLAMCHB/g' *.c 10perl -pi.bak -e 's/dlamch_\(\"epsilon\"\)/DLAMCHE/g' *.c 11perl -pi.bak -e 's/dlamch_\(\"e\"\)/DLAMCHE/g' *.c 12perl -pi.bak -e 's/dlamch_\(\"b\"\)/DLAMCHB/g' *.c 13perl -pi.bak -e 's/dlamch_\(\"base\"\)/DLAMCHB/g' *.c 14 15