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_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	snarayan	1.2	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	snarayan	1.1	;;
18			"OpenAD_inner_do_loop" )
19			echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
20			;;
21			"OpenAD_cg2d" )
22			echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
23			;;
24			"OpenAD_streamice_cg_solve" )
25			echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
26			;;
27			"OpenAD_active_read_xyz" )
28			echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
29			;;
30			"OpenAD_active_read_xy" )
31			echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
32			;;
33			"OpenAD_active_write_xy" )
34			echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
35			;;
36			"OpenAD_streamice_vel_phistage" )
37			echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
38			;;
39			"OpenAD_streamice_get_fp_err_oad" )
40			echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
41			;;
42			"OpenAD_streamice_get_vel_resid_err_oad" )
43			echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
44			;;
45			"OpenAD_exch1_rl" \| \
46			"OpenAD_exch1_rs" \| \
47			"OpenAD_global_max_r8" \| \
48			"OpenAD_global_sum_r8" \| \
49			"OpenAD_global_sum_tile_rl" )
50			tmpName=${srName#OpenAD_}
51			echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
52			;;
53			*)
54			echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
55			;;
56			esac
57			done
58			cat $1 \| sed -f temp.sed > $2