1 |
utke |
1.1 |
#!/bin/bash |
2 |
|
|
echo "#generated file" > temp.sed |
3 |
|
|
for i in `grep '^ SUBROUTINE ' $1 | awk '{print $2}'` |
4 |
|
|
do |
5 |
|
|
# extract the name |
6 |
|
|
srName=${i%%\(*} |
7 |
|
|
echo "/^ SUBROUTINE $srName/i\\" >> temp.sed |
8 |
|
|
if [ "$srName" = "the_first_level_loop" -o "$srName" = "the_second_level_loop" -o "$srName" = "the_third_level_loop" -o "$srName" = "the_fourth_level_loop" ] |
9 |
|
|
then |
10 |
|
|
echo "c\$openad XXX Template ../code_ad/ad_template.checkpoint.f" >> temp.sed |
11 |
|
|
else |
12 |
|
|
echo "c\$openad XXX Template ../code_ad/ad_template.split.f" >> temp.sed |
13 |
|
|
fi |
14 |
|
|
done |
15 |
|
|
cat $1 | sed -f temp.sed > $2 |
16 |
|
|
|