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	jmc	1.3	#! /usr/bin/env bash
2			OADTOOLS=`dirname $0`
3			#OADTOOLS=`awk '{print $1 }' < oadtempflile`
4	heimbach	1.1	echo "#generated file" > temp.sed
5			for i in `grep '^ *SUBROUTINE ' $1 \| awk '{print $2}'`
6	jmc	1.3	do
7	heimbach	1.1	# extract the name
8			srName=${i%%\(*}
9			echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed
10	jmc	1.3	case "$srName" in
11	utke	1.2	"OpenAD_main_do_loop" )
12	heimbach	1.14	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	dgoldberg	1.15	"OpenAD_streamice_cg_make_a" )
19			echo "c\$openad XXX Template ad_template.split_non_anonymous.f" >> temp.sed
20			;;
21	heimbach	1.14	"OpenAD_inner_do_loop" )
22	jahn	1.4	echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
23	heimbach	1.1	;;
24	jmc	1.3	"OpenAD_cg2d" )
25	jahn	1.4	echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
26	heimbach	1.1	;;
27	utke	1.7	"OpenAD_streamice_cg_solve" )
28			echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
29			;;
30	heimbach	1.11	"OpenAD_active_read_xyz" )
31			echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
32			;;
33	heimbach	1.8	"OpenAD_active_read_xy" )
34	heimbach	1.9	echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
35	heimbach	1.8	;;
36	heimbach	1.10	"OpenAD_active_write_xy" )
37			echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
38			;;
39	heimbach	1.16	"OpenAD_dummy_in_stepping" )
40			echo "c\$openad XXX Template ad_template.dummy_in_stepping.f" >> temp.sed
41			;;
42	dgoldberg	1.12	"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	dgoldberg	1.13	"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	dgoldberg	1.17	"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	heimbach	1.1	"OpenAD_exch1_rl" \| \
58			"OpenAD_exch1_rs" \| \
59	jmc	1.3	"OpenAD_global_max_r8" \| \
60	jahn	1.5	"OpenAD_global_sum_r8" \| \
61			"OpenAD_global_sum_tile_rl" )
62	heimbach	1.1	tmpName=${srName#OpenAD_}
63	jahn	1.4	echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
64	heimbach	1.1	;;
65	jmc	1.3	*)
66	jahn	1.4	echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
67	heimbach	1.1	;;
68			esac
69			done
70			cat $1 \| sed -f temp.sed > $2