9 |
echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed |
echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed |
10 |
case "$srName" in |
case "$srName" in |
11 |
"OpenAD_main_do_loop" ) |
"OpenAD_main_do_loop" ) |
12 |
echo "c\$openad XXX Template $OADTOOLS/ad_template.revolve.f" >> temp.sed |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
13 |
;; |
;; |
14 |
"OpenAD_cg2d" ) |
"OpenAD_cg2d" ) |
15 |
echo "c\$openad XXX Template $OADTOOLS/ad_template.sa_cg2d.f" >> temp.sed |
echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed |
16 |
|
;; |
17 |
|
"OpenAD_streamice_cg_solve" ) |
18 |
|
echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed |
19 |
|
;; |
20 |
|
"OpenAD_active_read_xy" ) |
21 |
|
echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed |
22 |
;; |
;; |
23 |
"OpenAD_exch1_rl" | \ |
"OpenAD_exch1_rl" | \ |
24 |
"OpenAD_exch1_rs" | \ |
"OpenAD_exch1_rs" | \ |
25 |
"OpenAD_global_max_r8" | \ |
"OpenAD_global_max_r8" | \ |
26 |
"OpenAD_global_sum_r8" ) |
"OpenAD_global_sum_r8" | \ |
27 |
|
"OpenAD_global_sum_tile_rl" ) |
28 |
tmpName=${srName#OpenAD_} |
tmpName=${srName#OpenAD_} |
29 |
echo "c\$openad XXX Template $OADTOOLS/ad_template.${tmpName}.f" >> temp.sed |
echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed |
30 |
;; |
;; |
31 |
*) |
*) |
32 |
echo "test $OADTOOLS" |
echo "c\$openad XXX Template ad_template.split.f" >> temp.sed |
|
echo "c\$openad XXX Template $OADTOOLS/ad_template.split.f" >> temp.sed |
|
33 |
;; |
;; |
34 |
esac |
esac |
35 |
done |
done |