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 |
|
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 |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
23 |
;; |
;; |
24 |
"OpenAD_cg2d" ) |
"OpenAD_cg2d" ) |
36 |
"OpenAD_active_write_xy" ) |
"OpenAD_active_write_xy" ) |
37 |
echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed |
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" ) |
"OpenAD_streamice_vel_phistage" ) |
43 |
echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed |
echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed |
44 |
;; |
;; |