1#
2# $Id$
3#
4s/^\(     .\)[Ss][Aa][Xx][Pp][Yy]\([^A-Za-z0-9_]\)/\1daxpy\2/
5s/^\(     .\)[Ss][Dd][Oo][Tt]\([^A-Za-z0-9_]\)/\1ddot\2/
6s/^\(     .\)[Ss][Ss][Cc][Aa][Ll]\([^A-Za-z0-9_]\)/\1dscal\2/
7s/^\(     .\)[Ss][Cc][Oo][Pp][Yy]\([^A-Za-z0-9_]\)/\1dcopy\2/
8s/^\(     .\)[Ss][Nn][Rr][Mm]2\([^A-Za-z0-9_]\)/\1dnrm2\2/
9s/^\(     .\)[Ii][Ss][Aa][Mm][Aa][Xx]\([^A-Za-z0-9_]\)/\1idamax\2/
10s/^\(     .\)[Ss][Aa][Ss][Uu][Mm]\([^A-Za-z0-9_]\)/\1dasum\2/
11s/^\(     .\)[Ss][Rr][Oo][Tt]\([^A-Za-z0-9_]\)/\1srot\2/
12s/^\(     .\)[Ss][Rr][Oo][Tt][Gg]\([^A-Za-z0-9_]\)/\1drotg\2/
13s/^\(     .\)[Ss][Ss][Ww][Aa][Pp]\([^A-Za-z0-9_]\)/\1dswap\2/
14s/^\(     .\)[Ss][Mm][Aa][Cc][Hh]\([^A-Za-z0-9_]\)/\1dmach\2/
15s/^\(     .\)[Ss][Gg][Ee][Mm][Mm]\([^A-Za-z0-9_]\)/\1dgemm\2/
16s/^\(     .\)[Ss][Gg][Ee][Mm][Vv]\([^A-Za-z0-9_]\)/\1dgemv\2/
17s/^\(     .\)[Ss][Gg][Ee][Ss][Vv]\([^A-Za-z0-9_]\)/\1dgesv\2/
18s/^\(     .\)[Ss][Ss][Pp][Mm][Vv]\([^A-Za-z0-9_]\)/\1dspmv\2/
19s/^\(     .\)[Ss][Gg][Ee][Rr]\([^A-Za-z0-9_]\)/\1dger\2/
20s/^\(     .\)[Ss][Gg][Ee][Ss][Vv][Dd]\([^A-Za-z0-9_]\)/\1dgesvd\2/
21s/^\(     .\)[Ss][Ss][Pp][Ss][Vv][Xx]\([^A-Za-z0-9_]\)/\1dspsvx\2/
22s/^\(     .\)[Ss][Gg][Ee][Tt][Rr][Ss]\([^A-Za-z0-9_]\)/\1dgetrs\2/
23s/^\(     .\)[Ss][Pp][Oo][Tt][Rr][fF]\([^A-Za-z0-9_]\)/\1dpotrf\2/
24s/^\(     .\)[Ss][Pp][Oo][Tt][Rr][Ii]\([^A-Za-z0-9_]\)/\1dpotri\2/
25s/^\(     .\)[Ss][Pp][Oo][Ss][Vv]\([^A-Za-z0-9_]\)/\1dposv\2/
26s/^\(     .\)[Ss][Ll][Aa][Ss][Ee][Tt]\([^A-Za-z0-9_]\)/\1dlaset\2/
27s/^\(     .\)[Ss][Ll][Aa][Mm][Cc][Hh]\([^A-Za-z0-9_]\)/\1dlamch\2/
28s/^\(     .\)[Ss][Ss][Yy][Ee][Vv]\([^A-Za-z0-9_]\)/\1dsyev\2/
29s/^\(     .\)[Ss][Ss][Yy][Gg][Vv]\([^A-Za-z0-9_]\)/\1dsygv\2/
30s/^\(     .\)[Ii][Cc][Aa][Mm][Aa][Xx]\([^A-Za-z0-9_]\)//\1izamax\2/
31
32s/^\(     .\)[Ss][Aa][Xx][Pp][Yy]$/\1daxpy/
33s/^\(     .\)[Ss][Dd][Oo][Tt]$/\1ddot/
34s/^\(     .\)[Ss][Ss][Cc][Aa][Ll]$/\1dscal/
35s/^\(     .\)[Ss][Cc][Oo][Pp][Yy]$/\1dcopy/
36s/^\(     .\)[Ss][Nn][Rr][Mm]2$/\1dnrm2/
37s/^\(     .\)[Ii][Ss][Aa][Mm][Aa][Xx]$/\1idamax/
38s/^\(     .\)[Ss][Aa][Ss][Uu][Mm]$/\1dasum/
39s/^\(     .\)[Ss][Rr][Oo][Tt]$/\1drot/
40s/^\(     .\)[Ss][Rr][Oo][Tt][Gg]$/\1drotg/
41s/^\(     .\)[Ss][Ss][Ww][Aa][Pp]$/\1dswap/
42s/^\(     .\)[Ss][Mm][Aa][Cc][Hh]$/\1dmach/
43s/^\(     .\)[Ss][Gg][Ee][Mm][Mm]$/\1dgemm/
44s/^\(     .\)[Ss][Gg][Ee][Mm][Vv]$/\1dgemv/
45s/^\(     .\)[Ss][Gg][Ee][Ss][Vv]$/\1dgesv/
46s/^\(     .\)[Ss][Ss][Pp][Mm][Vv]$/\1dspmv/
47s/^\(     .\)[Ss][Gg][Ee][Rr]$/\1dger/
48s/^\(     .\)[Ss][Gg][Ee][Ss][Vv][Dd]$/\1dgesvd/
49s/^\(     .\)[Ss][Ss][Pp][Ss][Vv][Xx]$/\1dspsvx/
50s/^\(     .\)[Ss][Gg][Ee][Tt][Rr][Ss]$/\1dgetrs/
51s/^\(     .\)[Ss][Pp][Oo][Tt][Rr][Ff]$/\1dpotrf/
52s/^\(     .\)[Ss][Pp][Oo][Tt][Rr][Ii]$/\1dpotri/
53s/^\(     .\)[Ss][Ll][Aa][Ss][Ee][Tt]$/\1dlaset/
54s/^\(     .\)[Ss][Ll][Aa][Mm][Cc][Hh]$/\1dlamch/
55s/^\(     .\)[Ss][Ss][Yy][Ee][Vv]$/\1dsyev/
56s/^\(     .\)[Ss][Ss][Yy][Gg][Vv]$/\1dsygv/
57s/^\(     .\)[Ii][Cc][Aa][Mm][Aa][Xx]$/\1izamax/
58s/^\(     .\)[Ss][Gg][Ee][Bb][Aa][Kk]$/\1dgebak/
59s/^\(     .\)[Ss][Gg][Ee][Bb][Aa][Ll]$/\1dgebal/
60s/^\(     .\)[Ss][Gg][Ee][Hh][Rr][Dd]$/\1dgehrd/
61s/^\(     .\)[Ss][Hh][SS][Ee][Qq][Rr]$/\1dhseqr/
62s/^\(     .\)[Ss][Ll][Aa][Bb][Aa][Dd]$/\1dlabad/
63s/^\(     .\)[Ss][Oo][Rr][Gg][Hh][Rr]$/\1dorghr/
64s/^\(     .\)[Ss][Tt][Rr][Ee][Vv][Cc]$/\1dtrevc/
65
66
67
68
69
70