OpenAD/code_shallow_openad/ad_template.split.f

      subroutine template()
      use OpenAD_tape
      use OpenAD_rev

!$TEMPLATE_PRAGMA_DECLARATIONS

      integer :: cp_loop_variable_1,cp_loop_variable_2,
     +     cp_loop_variable_3,cp_loop_variable_4

      integer iaddr
      external iaddr

c$$$      character*(80):: indentation='                                        
c$$$     +                                         '
c$$$      our_indent=our_indent+1
c$$$      write(*,'(A,A,L,L,L,L,L,L,L)') 
c$$$     +indentation(1:our_indent), "enter __SRNAME__:",
c$$$     +our_rev_mode%arg_store,
c$$$     +our_rev_mode%arg_restore,
c$$$     +our_rev_mode%res_store,
c$$$     +our_rev_mode%res_restore,
c$$$     +our_rev_mode%plain,
c$$$     +our_rev_mode%tape,
c$$$     +our_rev_mode%adjoint
c$$$
c$$$      write(*,'(A,A,A,I8,A,I8)')
c$$$     +     indentation(1:our_indent), "enter __SRNAME__:",
c$$$     +     " DT:",double_tape_pointer, 
c$$$     +     " IT:",integer_tape_pointer


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

c$$$      write(*,'(A,A,A,I8,A,I8)')
c$$$     +     indentation(1:our_indent), "leave __SRNAME__:",
c$$$     +     " DT:",double_tape_pointer, 
c$$$     +     " IT:",integer_tape_pointer
c$$$
c$$$      write(*,'(A,A,L,L,L,L,L,L,L)') 
c$$$     +indentation(1:our_indent), "leave __SRNAME__:",
c$$$     +our_rev_mode%arg_store,
c$$$     +our_rev_mode%arg_restore,
c$$$     +our_rev_mode%res_store,
c$$$     +our_rev_mode%res_restore,
c$$$     +our_rev_mode%plain,
c$$$     +our_rev_mode%tape,
c$$$     +our_rev_mode%adjoint
c$$$      our_indent=our_indent-1
      end subroutine template
1	heimbach	1.1	subroutine template()
2			use OpenAD_tape
3			use OpenAD_rev
4
5			!$TEMPLATE_PRAGMA_DECLARATIONS
6
7			integer :: cp_loop_variable_1,cp_loop_variable_2,
8			+ cp_loop_variable_3,cp_loop_variable_4
9
10			integer iaddr
11			external iaddr
12
13			c$$$ character*(80):: indentation='
14			c$$$ + '
15			c$$$ our_indent=our_indent+1
16			c$$$ write(*,'(A,A,L,L,L,L,L,L,L)')
17			c$$$ +indentation(1:our_indent), "enter __SRNAME__:",
18			c$$$ +our_rev_mode%arg_store,
19			c$$$ +our_rev_mode%arg_restore,
20			c$$$ +our_rev_mode%res_store,
21			c$$$ +our_rev_mode%res_restore,
22			c$$$ +our_rev_mode%plain,
23			c$$$ +our_rev_mode%tape,
24			c$$$ +our_rev_mode%adjoint
25			c$$$
26			c$$$ write(*,'(A,A,A,I8,A,I8)')
27			c$$$ + indentation(1:our_indent), "enter __SRNAME__:",
28			c$$$ + " DT:",double_tape_pointer,
29			c$$$ + " IT:",integer_tape_pointer
30
31
32			if (our_rev_mode%plain) then
33			c$$$ write(*,'(A,A)')
34			c$$$ +indentation(1:our_indent), " __SRNAME__: entering plain"
35			!$PLACEHOLDER_PRAGMA$ id=1
36			end if
37			if (our_rev_mode%tape) then
38			c$$$ write(*,'(A,A)')
39			c$$$ +indentation(1:our_indent), " __SRNAME__: entering tape"
40			!$PLACEHOLDER_PRAGMA$ id=2
41			end if
42			if (our_rev_mode%adjoint) then
43			c$$$ write(*,'(A,A)')
44			c$$$ +indentation(1:our_indent), " __SRNAME__: entering adjoint"
45			!$PLACEHOLDER_PRAGMA$ id=3
46			end if
47
48			c$$$ write(*,'(A,A,A,I8,A,I8)')
49			c$$$ + indentation(1:our_indent), "leave __SRNAME__:",
50			c$$$ + " DT:",double_tape_pointer,
51			c$$$ + " IT:",integer_tape_pointer
52			c$$$
53			c$$$ write(*,'(A,A,L,L,L,L,L,L,L)')
54			c$$$ +indentation(1:our_indent), "leave __SRNAME__:",
55			c$$$ +our_rev_mode%arg_store,
56			c$$$ +our_rev_mode%arg_restore,
57			c$$$ +our_rev_mode%res_store,
58			c$$$ +our_rev_mode%res_restore,
59			c$$$ +our_rev_mode%plain,
60			c$$$ +our_rev_mode%tape,
61			c$$$ +our_rev_mode%adjoint
62			c$$$ our_indent=our_indent-1
63			end subroutine template