OpenAD/code_shallow_openad/ad_template.plain.f

      subroutine template()
      use OpenAD_checkpoints
      use OpenAD_tape
      use OpenAD_rev

c we may need these for the checkpointing
      use SIZE_mod
      use EEPARAMS_mod
      use PARAMS_mod
      use BAR2_mod
      use BARRIER_mod
      use CD_CODE_VARS_mod
      use CG2D_mod
      use CG3D_mod
      use DFILE_mod
      use DYNVARS_mod
      use EEIO_mod
      use EESUPPORT_mod
      use EOS_mod
      use EXCH_JAM_mod
      use EXCH_mod
      use FC_NAMEMANGLE_mod
      use FFIELDS_mod
      use GAD_mod
      use GLOBAL_MAX_mod
      use GLOBAL_SUM_mod
      use GRID_mod
      use MPI_INFO_mod
      use SOLVE_FOR_PRESSURE3D_mod
      use SOLVE_FOR_PRESSURE_mod
      use SURFACE_mod
      use tamc_mod
      use tamc_keys_mod
      use cost_mod
      use g_cost_mod
      use ctrl_mod
      use ctrl_dummy_mod
      use ctrl_weights_mod
      use optim_mod
      use grdchk_mod
      
!$TEMPLATE_PRAGMA_DECLARATIONS

      integer :: cp_loop_variable_1,cp_loop_variable_2,
     +     cp_loop_variable_3,cp_loop_variable_4,cp_loop_variable_5

      type(modeType) :: our_orig_mode

      integer iaddr
      external iaddr

      character*(80):: indentation='                                        
     +                                         '

      our_indent=our_indent+1
      write(*,'(A,A,A,A,L,A,L,A,L,A,L,A,L,A,L)') 
     +'JU:',indentation(1:our_indent), "enter __SRNAME__:",
     +' As:',our_rev_mode%arg_store,
     +' Ar:',our_rev_mode%arg_restore,
     +' Pl:',our_rev_mode%plain,
     +' Ta:',our_rev_mode%tape,
     +' Ad:',our_rev_mode%adjoint,
     +' Sw:',our_rev_mode%switchedToCheckpoint

      write(*,'(A,A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')
     +'JU:',indentation(1:our_indent), "enter __SRNAME__:",
     +" CD:",cp_double_pointer, 
     +" CI:",cp_integer_pointer, 
     +" CB:",cp_boolean_pointer, 
     +" CS:",cp_string_pointer, 
     +" TD:",double_tape_pointer, 
     +" TI:",integer_tape_pointer

      if (
     + our_rev_mode%arg_store
     + .OR.
     + our_rev_mode%arg_restore
     + .OR.
     + our_rev_mode%plain
     +) then 
         write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +" __SRNAME__: entering plain"
         our_orig_mode=our_rev_mode
!$PLACEHOLDER_PRAGMA$ id=1
         our_rev_mode=our_orig_mode
      end if
      if (our_rev_mode%tape) then
         write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +" __SRNAME__: entering tape"
         our_orig_mode=our_rev_mode
!$PLACEHOLDER_PRAGMA$ id=2
         our_rev_mode=our_orig_mode
      end if
      if (our_rev_mode%adjoint) then
         write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +" __SRNAME__: entering adjoint"
         our_orig_mode=our_rev_mode
!$PLACEHOLDER_PRAGMA$ id=3
         our_rev_mode=our_orig_mode
      end if 

      write(*,'(A,A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')
     +'JU:',indentation(1:our_indent), "leave __SRNAME__:",
     +" CD:",cp_double_pointer, 
     +" CI:",cp_integer_pointer, 
     +" CB:",cp_boolean_pointer, 
     +" CS:",cp_string_pointer, 
     +" TD:",double_tape_pointer, 
     +" TI:",integer_tape_pointer

      write(*,'(A,A,A,A,L,A,L,A,L,A,L,A,L,A,L)') 
     +'JU:',indentation(1:our_indent), "leave __SRNAME__:",
     +' As:',our_rev_mode%arg_store,
     +' Ar:',our_rev_mode%arg_restore,
     +' Pl:',our_rev_mode%plain,
     +' Ta:',our_rev_mode%tape,
     +' Ad:',our_rev_mode%adjoint,
     +' Sw:',our_rev_mode%switchedToCheckpoint
      our_indent=our_indent-1

      end subroutine template
1	utke	1.1	subroutine template()
2			use OpenAD_checkpoints
3			use OpenAD_tape
4			use OpenAD_rev
5
6			c we may need these for the checkpointing
7			use SIZE_mod
8			use EEPARAMS_mod
9			use PARAMS_mod
10			use BAR2_mod
11			use BARRIER_mod
12			use CD_CODE_VARS_mod
13			use CG2D_mod
14			use CG3D_mod
15			use DFILE_mod
16			use DYNVARS_mod
17			use EEIO_mod
18			use EESUPPORT_mod
19			use EOS_mod
20			use EXCH_JAM_mod
21			use EXCH_mod
22			use FC_NAMEMANGLE_mod
23			use FFIELDS_mod
24			use GAD_mod
25			use GLOBAL_MAX_mod
26			use GLOBAL_SUM_mod
27			use GRID_mod
28			use MPI_INFO_mod
29			use SOLVE_FOR_PRESSURE3D_mod
30			use SOLVE_FOR_PRESSURE_mod
31			use SURFACE_mod
32			use tamc_mod
33			use tamc_keys_mod
34			use cost_mod
35			use g_cost_mod
36			use ctrl_mod
37			use ctrl_dummy_mod
38			use ctrl_weights_mod
39			use optim_mod
40			use grdchk_mod
41
42			!$TEMPLATE_PRAGMA_DECLARATIONS
43
44			integer :: cp_loop_variable_1,cp_loop_variable_2,
45			+ cp_loop_variable_3,cp_loop_variable_4,cp_loop_variable_5
46
47			type(modeType) :: our_orig_mode
48
49			integer iaddr
50			external iaddr
51
52			character*(80):: indentation='
53			+ '
54
55			our_indent=our_indent+1
56	utke	1.2	write(*,'(A,A,A,A,L,A,L,A,L,A,L,A,L,A,L)')
57			+'JU:',indentation(1:our_indent), "enter __SRNAME__:",
58			+' As:',our_rev_mode%arg_store,
59			+' Ar:',our_rev_mode%arg_restore,
60			+' Pl:',our_rev_mode%plain,
61			+' Ta:',our_rev_mode%tape,
62			+' Ad:',our_rev_mode%adjoint,
63			+' Sw:',our_rev_mode%switchedToCheckpoint
64	utke	1.1
65	utke	1.2	write(*,'(A,A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')
66	utke	1.1	+'JU:',indentation(1:our_indent), "enter __SRNAME__:",
67	utke	1.2	+" CD:",cp_double_pointer,
68			+" CI:",cp_integer_pointer,
69			+" CB:",cp_boolean_pointer,
70			+" CS:",cp_string_pointer,
71			+" TD:",double_tape_pointer,
72			+" TI:",integer_tape_pointer
73	utke	1.1
74			if (
75			+ our_rev_mode%arg_store
76			+ .OR.
77			+ our_rev_mode%arg_restore
78			+ .OR.
79			+ our_rev_mode%plain
80			+) then
81			write(*,'(A,A,A)')
82			+'JU:',indentation(1:our_indent),
83			+" __SRNAME__: entering plain"
84			our_orig_mode=our_rev_mode
85			!$PLACEHOLDER_PRAGMA$ id=1
86			our_rev_mode=our_orig_mode
87			end if
88			if (our_rev_mode%tape) then
89			write(*,'(A,A,A)')
90			+'JU:',indentation(1:our_indent),
91			+" __SRNAME__: entering tape"
92			our_orig_mode=our_rev_mode
93			!$PLACEHOLDER_PRAGMA$ id=2
94			our_rev_mode=our_orig_mode
95			end if
96			if (our_rev_mode%adjoint) then
97			write(*,'(A,A,A)')
98			+'JU:',indentation(1:our_indent),
99			+" __SRNAME__: entering adjoint"
100			our_orig_mode=our_rev_mode
101			!$PLACEHOLDER_PRAGMA$ id=3
102			our_rev_mode=our_orig_mode
103			end if
104
105	utke	1.2	write(*,'(A,A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')
106			+'JU:',indentation(1:our_indent), "leave __SRNAME__:",
107			+" CD:",cp_double_pointer,
108			+" CI:",cp_integer_pointer,
109			+" CB:",cp_boolean_pointer,
110			+" CS:",cp_string_pointer,
111			+" TD:",double_tape_pointer,
112			+" TI:",integer_tape_pointer
113	utke	1.1
114	utke	1.2	write(*,'(A,A,A,A,L,A,L,A,L,A,L,A,L,A,L)')
115	utke	1.1	+'JU:',indentation(1:our_indent), "leave __SRNAME__:",
116	utke	1.2	+' As:',our_rev_mode%arg_store,
117			+' Ar:',our_rev_mode%arg_restore,
118			+' Pl:',our_rev_mode%plain,
119			+' Ta:',our_rev_mode%tape,
120			+' Ad:',our_rev_mode%adjoint,
121			+' Sw:',our_rev_mode%switchedToCheckpoint
122	utke	1.1	our_indent=our_indent-1
123
124			end subroutine template