OpenAD/OAD_support/ad_template.split.F

      subroutine template()
      use OAD_cp
      use OAD_tape
      use OAD_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

#ifdef OAD_DEBUG_SPLIT1
      character*(80):: indentation='                                        
     +                                         '
      our_indent=our_indent+1

      write(standardmessageunit, '(A,A,A)', ADVANCE='NO') 
     +'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
      call oad_dump_revmod(); call oad_dump_tapestats()
      write(standardmessageunit,*) 
#endif

      if (our_rev_mode%plain) then
#ifdef OAD_DEBUG_SPLIT1
        write(standardmessageunit,'(A,A,A)') 
     +'OAD:',indentation(1:our_indent), 
     +' __SRNAME__: entering plain'
#endif
!$PLACEHOLDER_PRAGMA$ id=1
      end if
      if (our_rev_mode%tape .and..not.our_rev_mode%strictAnonymous) then
#ifdef OAD_DEBUG_SPLIT1
        write(standardmessageunit,'(A,A,A)') 
     +'OAD:',indentation(1:our_indent), 
     +' __SRNAME__: entering tape'
#endif
!$PLACEHOLDER_PRAGMA$ id=2
      end if 
      if (our_rev_mode%adjoint 
     +.and. .not.our_rev_mode%strictAnonymous) then
#ifdef OAD_DEBUG_SPLIT1
         write(standardmessageunit,'(A,A,A)') 
     +'OAD:',indentation(1:our_indent), 
     +' __SRNAME__: entering adjoint'
#endif
!$PLACEHOLDER_PRAGMA$ id=3
      end if 
      if (our_rev_mode%tape .and. our_rev_mode%strictAnonymous) then
#ifdef OAD_DEBUG_SPLIT1
        write(standardmessageunit,'(A,A,A)') 
     +'OAD:',indentation(1:our_indent), 
     +' __SRNAME__: entering sa tape'
#endif
!$PLACEHOLDER_PRAGMA$ id=10
      end if 
      if (our_rev_mode%adjoint 
     +.and. our_rev_mode%strictAnonymous) then
#ifdef OAD_DEBUG_SPLIT1
         write(standardmessageunit,'(A,A,A)') 
     +'OAD:',indentation(1:our_indent), 
     +' __SRNAME__: entering sa adjoint'
#endif
!$PLACEHOLDER_PRAGMA$ id=11
      end if 

#ifdef OAD_DEBUG_SPLIT1
      write(standardmessageunit,'(A,A,A)', ADVANCE='NO') 
     +'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
      call oad_dump_revmod(); call oad_dump_tapestats()
      write(standardmessageunit,*) 

      our_indent=our_indent-1
#endif

      end subroutine template
1	utke	1.1	subroutine template()
2			use OAD_cp
3			use OAD_tape
4			use OAD_rev
5
6			!$TEMPLATE_PRAGMA_DECLARATIONS
7
8			integer :: cp_loop_variable_1,cp_loop_variable_2,
9			+ cp_loop_variable_3,cp_loop_variable_4
10
11			integer iaddr
12			external iaddr
13
14	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
15	utke	1.1	character*(80):: indentation='
16			+ '
17			our_indent=our_indent+1
18
19	utke	1.3	write(standardmessageunit, '(A,A,A)', ADVANCE='NO')
20	utke	1.2	+'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
21			call oad_dump_revmod(); call oad_dump_tapestats()
22	utke	1.3	write(standardmessageunit,*)
23	utke	1.2	#endif
24	utke	1.1
25			if (our_rev_mode%plain) then
26	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
27	utke	1.3	write(standardmessageunit,'(A,A,A)')
28	utke	1.2	+'OAD:',indentation(1:our_indent),
29	utke	1.1	+' __SRNAME__: entering plain'
30	utke	1.2	#endif
31	utke	1.1	!$PLACEHOLDER_PRAGMA$ id=1
32			end if
33			if (our_rev_mode%tape .and..not.our_rev_mode%strictAnonymous) then
34	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
35	utke	1.3	write(standardmessageunit,'(A,A,A)')
36	utke	1.2	+'OAD:',indentation(1:our_indent),
37	utke	1.1	+' __SRNAME__: entering tape'
38	utke	1.2	#endif
39	utke	1.1	!$PLACEHOLDER_PRAGMA$ id=2
40			end if
41			if (our_rev_mode%adjoint
42			+.and. .not.our_rev_mode%strictAnonymous) then
43	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
44	utke	1.3	write(standardmessageunit,'(A,A,A)')
45	utke	1.2	+'OAD:',indentation(1:our_indent),
46	utke	1.1	+' __SRNAME__: entering adjoint'
47	utke	1.2	#endif
48	utke	1.1	!$PLACEHOLDER_PRAGMA$ id=3
49			end if
50			if (our_rev_mode%tape .and. our_rev_mode%strictAnonymous) then
51	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
52	utke	1.3	write(standardmessageunit,'(A,A,A)')
53	utke	1.2	+'OAD:',indentation(1:our_indent),
54	utke	1.1	+' __SRNAME__: entering sa tape'
55	utke	1.2	#endif
56	utke	1.1	!$PLACEHOLDER_PRAGMA$ id=10
57			end if
58			if (our_rev_mode%adjoint
59			+.and. our_rev_mode%strictAnonymous) then
60	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
61	utke	1.3	write(standardmessageunit,'(A,A,A)')
62	utke	1.2	+'OAD:',indentation(1:our_indent),
63	utke	1.1	+' __SRNAME__: entering sa adjoint'
64	utke	1.2	#endif
65	utke	1.1	!$PLACEHOLDER_PRAGMA$ id=11
66			end if
67
68	utke	1.2	#ifdef OAD_DEBUG_SPLIT1
69	utke	1.3	write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
70	utke	1.2	+'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
71			call oad_dump_revmod(); call oad_dump_tapestats()
72	utke	1.3	write(standardmessageunit,*)
73	utke	1.1
74			our_indent=our_indent-1
75	utke	1.2	#endif
76
77	utke	1.1	end subroutine template