1 |
jmc |
1.3 |
#! /usr/bin/env bash |
2 |
|
|
OADTOOLS=`dirname $0` |
3 |
|
|
#OADTOOLS=`awk '{print $1 }' < oadtempflile` |
4 |
heimbach |
1.1 |
echo "#generated file" > temp.sed |
5 |
|
|
for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'` |
6 |
jmc |
1.3 |
do |
7 |
heimbach |
1.1 |
# extract the name |
8 |
|
|
srName=${i%%\(*} |
9 |
|
|
echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed |
10 |
jmc |
1.3 |
case "$srName" in |
11 |
utke |
1.2 |
"OpenAD_main_do_loop" ) |
12 |
jahn |
1.4 |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
13 |
heimbach |
1.1 |
;; |
14 |
jmc |
1.3 |
"OpenAD_cg2d" ) |
15 |
jahn |
1.4 |
echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed |
16 |
heimbach |
1.1 |
;; |
17 |
utke |
1.7 |
"OpenAD_streamice_cg_solve" ) |
18 |
|
|
echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed |
19 |
|
|
;; |
20 |
heimbach |
1.11 |
"OpenAD_active_read_xyz" ) |
21 |
|
|
echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed |
22 |
|
|
;; |
23 |
heimbach |
1.8 |
"OpenAD_active_read_xy" ) |
24 |
heimbach |
1.9 |
echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed |
25 |
heimbach |
1.8 |
;; |
26 |
heimbach |
1.10 |
"OpenAD_active_write_xy" ) |
27 |
|
|
echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed |
28 |
|
|
;; |
29 |
heimbach |
1.1 |
"OpenAD_exch1_rl" | \ |
30 |
|
|
"OpenAD_exch1_rs" | \ |
31 |
jmc |
1.3 |
"OpenAD_global_max_r8" | \ |
32 |
jahn |
1.5 |
"OpenAD_global_sum_r8" | \ |
33 |
|
|
"OpenAD_global_sum_tile_rl" ) |
34 |
heimbach |
1.1 |
tmpName=${srName#OpenAD_} |
35 |
jahn |
1.4 |
echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed |
36 |
heimbach |
1.1 |
;; |
37 |
jmc |
1.3 |
*) |
38 |
jahn |
1.4 |
echo "c\$openad XXX Template ad_template.split.f" >> temp.sed |
39 |
heimbach |
1.1 |
;; |
40 |
|
|
esac |
41 |
|
|
done |
42 |
|
|
cat $1 | sed -f temp.sed > $2 |