1 |
utke |
1.1 |
#!/bin/bash |
2 |
|
|
echo "#generated file" > temp.sed |
3 |
utke |
1.2 |
for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'` |
4 |
utke |
1.1 |
do |
5 |
|
|
# extract the name |
6 |
|
|
srName=${i%%\(*} |
7 |
utke |
1.2 |
echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed |
8 |
utke |
1.1 |
case "$srName" in |
9 |
|
|
"OpenAD_the_second_level_loop" | \ |
10 |
|
|
"OpenAD_the_third_level_loop" | \ |
11 |
|
|
"OpenAD_the_fourth_level_loop" ) |
12 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.checkpoint.f" >> temp.sed |
13 |
|
|
;; |
14 |
|
|
"OpenAD_the_first_level_loop" ) |
15 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.checkpoint_to_split.f" >> temp.sed |
16 |
|
|
;; |
17 |
|
|
"OpenAD_the_first_level_plain" | \ |
18 |
|
|
"OpenAD_the_second_level_plain" | \ |
19 |
|
|
"OpenAD_the_third_level_plain" | \ |
20 |
|
|
"OpenAD_the_fourth_level_plain" ) |
21 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.plain.f" >> temp.sed |
22 |
|
|
;; |
23 |
|
|
"OpenAD_cg2d" ) |
24 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.sa_cg2d.f" >> temp.sed |
25 |
|
|
;; |
26 |
utke |
1.3 |
"OpenAD_exch1_rl" | \ |
27 |
|
|
"OpenAD_exch1_rs" | \ |
28 |
utke |
1.1 |
"OpenAD_global_max_r8" | \ |
29 |
|
|
"OpenAD_global_sum_r8" ) |
30 |
|
|
tmpName=${srName#OpenAD_} |
31 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.${tmpName}.f" >> temp.sed |
32 |
|
|
;; |
33 |
|
|
*) |
34 |
|
|
echo "c\$openad XXX Template ../OAD_support/ad_template.split.f" >> temp.sed |
35 |
|
|
;; |
36 |
|
|
esac |
37 |
|
|
done |
38 |
|
|
cat $1 | sed -f temp.sed > $2 |
39 |
|
|
|