1 |
#! /usr/bin/env bash |
2 |
OADTOOLS=`dirname $0` |
3 |
#OADTOOLS=`awk '{print $1 }' < oadtempflile` |
4 |
echo "#generated file" > temp.sed |
5 |
for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'` |
6 |
do |
7 |
# extract the name |
8 |
srName=${i%%\(*} |
9 |
echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed |
10 |
case "$srName" in |
11 |
"OpenAD_main_do_loop" ) |
12 |
if [ -z ${ALLOW_OPENAD_DIVA+x} ]; then |
13 |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
14 |
else |
15 |
echo "c\$openad XXX Template ad_template.regular.f" >> temp.sed |
16 |
fi |
17 |
;; |
18 |
"OpenAD_streamice_cg_make_a" ) |
19 |
echo "c\$openad XXX Template ad_template.split_non_anonymous.f" >> temp.sed |
20 |
;; |
21 |
"OpenAD_inner_do_loop" ) |
22 |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
23 |
;; |
24 |
"OpenAD_cg2d" ) |
25 |
echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed |
26 |
;; |
27 |
"OpenAD_streamice_cg_solve" ) |
28 |
echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed |
29 |
;; |
30 |
"OpenAD_active_read_xyz" ) |
31 |
echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed |
32 |
;; |
33 |
"OpenAD_active_read_xy" ) |
34 |
echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed |
35 |
;; |
36 |
"OpenAD_active_write_xy" ) |
37 |
echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed |
38 |
;; |
39 |
"OpenAD_dummy_in_stepping" ) |
40 |
echo "c\$openad XXX Template ad_template.dummy_in_stepping.f" >> temp.sed |
41 |
;; |
42 |
"OpenAD_streamice_vel_phistage" ) |
43 |
echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed |
44 |
;; |
45 |
"OpenAD_streamice_get_fp_err_oad" ) |
46 |
echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed |
47 |
;; |
48 |
"OpenAD_streamice_get_vel_resid_err_oad" ) |
49 |
echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed |
50 |
;; |
51 |
"OpenAD_streamice_invert_surf_forthick" ) |
52 |
echo "c\$openad XXX Template ad_template.streamice_invert_surf_forthick.f" >> temp.sed |
53 |
;; |
54 |
"OpenAD_streamice_smooth_adjoint_field" ) |
55 |
echo "c\$openad XXX Template ad_template.streamice_smooth_adjoint_field.f" >> temp.sed |
56 |
;; |
57 |
"OpenAD_exch1_rl" | \ |
58 |
"OpenAD_exch1_rs" | \ |
59 |
"OpenAD_global_max_r8" | \ |
60 |
"OpenAD_global_sum_r8" | \ |
61 |
"OpenAD_global_sum_tile_rl" ) |
62 |
tmpName=${srName#OpenAD_} |
63 |
echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed |
64 |
;; |
65 |
*) |
66 |
echo "c\$openad XXX Template ad_template.split.f" >> temp.sed |
67 |
;; |
68 |
esac |
69 |
done |
70 |
cat $1 | sed -f temp.sed > $2 |