tools/OAD_support/insertTemplateDir.bash

#! /usr/bin/env bash
OADTOOLS=`dirname $0`
#OADTOOLS=`awk '{print $1 }' < oadtempflile`
echo "#generated file" > temp.sed
for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'`
do
  # extract the name
  srName=${i%%\(*}
  echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed
  case "$srName" in
    "OpenAD_main_do_loop" )
      echo "c\$openad XXX Template ad_template.regular.f" >> temp.sed
      ;;
    "OpenAD_inner_do_loop" )
      echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
      ;;
    "OpenAD_cg2d" )
      echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
      ;;
    "OpenAD_streamice_cg_solve" )
      echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
      ;;
    "OpenAD_active_read_xyz" )
      echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
      ;;
    "OpenAD_active_read_xy" )
      echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
      ;;
    "OpenAD_active_write_xy" )
      echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
      ;;
    "OpenAD_streamice_vel_phistage" )
      echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
      ;;
    "OpenAD_streamice_get_fp_err_oad" )
      echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
      ;;
    "OpenAD_streamice_get_vel_resid_err_oad" )
      echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
      ;;
    "OpenAD_exch1_rl" |          \
    "OpenAD_exch1_rs" |          \
    "OpenAD_global_max_r8" |     \
    "OpenAD_global_sum_r8" |     \
    "OpenAD_global_sum_tile_rl" )
      tmpName=${srName#OpenAD_}
      echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
      ;;
    *)
      echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
      ;;
  esac
done
cat $1 | sed -f temp.sed > $2
1	snarayan	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.regular.f" >> temp.sed
13			;;
14			"OpenAD_inner_do_loop" )
15			echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
16			;;
17			"OpenAD_cg2d" )
18			echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
19			;;
20			"OpenAD_streamice_cg_solve" )
21			echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
22			;;
23			"OpenAD_active_read_xyz" )
24			echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
25			;;
26			"OpenAD_active_read_xy" )
27			echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
28			;;
29			"OpenAD_active_write_xy" )
30			echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
31			;;
32			"OpenAD_streamice_vel_phistage" )
33			echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
34			;;
35			"OpenAD_streamice_get_fp_err_oad" )
36			echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
37			;;
38			"OpenAD_streamice_get_vel_resid_err_oad" )
39			echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
40			;;
41			"OpenAD_exch1_rl" \| \
42			"OpenAD_exch1_rs" \| \
43			"OpenAD_global_max_r8" \| \
44			"OpenAD_global_sum_r8" \| \
45			"OpenAD_global_sum_tile_rl" )
46			tmpName=${srName#OpenAD_}
47			echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
48			;;
49			*)
50			echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
51			;;
52			esac
53			done
54			cat $1 \| sed -f temp.sed > $2