| 1 | 
dgoldberg | 
1.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 |