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" )
      if [ -z ${ALLOW_OPENAD_DIVA+x} ]; then
        echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
      else
        echo "c\$openad XXX Template ad_template.regular.f" >> temp.sed
      fi
      ;;
    "OpenAD_streamice_cg_make_a" )
      echo "c\$openad XXX Template ad_template.split_non_anonymous.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_dummy_in_stepping" )
      echo "c\$openad XXX Template ad_template.dummy_in_stepping.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_streamice_invert_surf_forthick" )
      echo "c\$openad XXX Template ad_template.streamice_invert_surf_forthick.f" >> temp.sed
      ;;
    "OpenAD_streamice_smooth_adjoint_field" )
      echo "c\$openad XXX Template ad_template.streamice_smooth_adjoint_field.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	#! /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	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
23	;;
24	"OpenAD_cg2d" )
25	echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
26	;;
27	"OpenAD_streamice_cg_solve" )
28	echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
29	;;
30	"OpenAD_active_read_xyz" )
31	echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
32	;;
33	"OpenAD_active_read_xy" )
34	echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
35	;;
36	"OpenAD_active_write_xy" )
37	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" )
43	echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
44	;;
45	"OpenAD_streamice_get_fp_err_oad" )
46	echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
47	;;
48	"OpenAD_streamice_get_vel_resid_err_oad" )
49	echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
50	;;
51	"OpenAD_streamice_invert_surf_forthick" )
52	echo "c\$openad XXX Template ad_template.streamice_invert_surf_forthick.f" >> temp.sed
53	;;
54	"OpenAD_streamice_smooth_adjoint_field" )
55	echo "c\$openad XXX Template ad_template.streamice_smooth_adjoint_field.f" >> temp.sed
56	;;
57	"OpenAD_exch1_rl" \| \
58	"OpenAD_exch1_rs" \| \
59	"OpenAD_global_max_r8" \| \
60	"OpenAD_global_sum_r8" \| \
61	"OpenAD_global_sum_tile_rl" )
62	tmpName=${srName#OpenAD_}
63	echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
64	;;
65	*)
66	echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
67	;;
68	esac
69	done
70	cat $1 \| sed -f temp.sed > $2