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