| 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 |
echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed |
| 13 |
;; |
| 14 |
"OpenAD_cg2d" ) |
| 15 |
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 oad_template.active_read_xy.f" >> temp.sed |
| 22 |
;; |
| 23 |
"OpenAD_streamice_vel_phistage" ) |
| 24 |
echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed |
| 25 |
;; |
| 26 |
"OpenAD_streamice_get_vel_fp_err" ) |
| 27 |
echo "c\$openad XXX Template ad_template.streamice_get_vel_fp_err.f" >> temp.sed |
| 28 |
;; |
| 29 |
"OpenAD_exch1_rl" | \ |
| 30 |
"OpenAD_exch1_rs" | \ |
| 31 |
"OpenAD_global_max_r8" | \ |
| 32 |
"OpenAD_global_sum_r8" | \ |
| 33 |
"OpenAD_global_sum_tile_rl" ) |
| 34 |
tmpName=${srName#OpenAD_} |
| 35 |
echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed |
| 36 |
;; |
| 37 |
*) |
| 38 |
echo "c\$openad XXX Template ad_template.split.f" >> temp.sed |
| 39 |
;; |
| 40 |
esac |
| 41 |
done |
| 42 |
cat $1 | sed -f temp.sed > $2 |