tools/OAD_support/ad_template.split_non_anonymous.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) 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) 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 

#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	dgoldberg	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			#ifdef OAD_DEBUG_SPLIT1
15			character*(80):: indentation='
16			+ '
17			our_indent=our_indent+1
18
19			write(standardmessageunit, '(A,A,A)', ADVANCE='NO')
20			+'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
21			call oad_dump_revmod(); call oad_dump_tapestats()
22			write(standardmessageunit,*)
23			#endif
24
25			if (our_rev_mode%plain) then
26			#ifdef OAD_DEBUG_SPLIT1
27			write(standardmessageunit,'(A,A,A)')
28			+'OAD:',indentation(1:our_indent),
29			+' __SRNAME__: entering plain'
30			#endif
31			!$PLACEHOLDER_PRAGMA$ id=1
32			end if
33			if (our_rev_mode%tape) then
34			#ifdef OAD_DEBUG_SPLIT1
35			write(standardmessageunit,'(A,A,A)')
36			+'OAD:',indentation(1:our_indent),
37			+' __SRNAME__: entering tape'
38			#endif
39			!$PLACEHOLDER_PRAGMA$ id=2
40			end if
41			if (our_rev_mode%adjoint) then
42			#ifdef OAD_DEBUG_SPLIT1
43			write(standardmessageunit,'(A,A,A)')
44			+'OAD:',indentation(1:our_indent),
45			+' __SRNAME__: entering adjoint'
46			#endif
47			!$PLACEHOLDER_PRAGMA$ id=3
48			end if
49
50			#ifdef OAD_DEBUG_SPLIT1
51			write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
52			+'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
53			call oad_dump_revmod(); call oad_dump_tapestats()
54			write(standardmessageunit,*)
55
56			our_indent=our_indent-1
57			#endif
58
59			end subroutine template