OpenAD/code_ad/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	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