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

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

      if (splitPrint) then
      write(*, '(A,A,A)', ADVANCE='NO') 
     +'JU:',indentation(1:our_indent), 'enter __SRNAME__:'
      call oad_dump_revmod()
      call oad_dump_tapestats()
      write(*,*) 
      end if 

      if (our_rev_mode%plain) then
      if (splitPrint) then
        write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +' __SRNAME__: entering plain'
      end if
!$PLACEHOLDER_PRAGMA$ id=1
      end if
      if (our_rev_mode%tape .and..not.our_rev_mode%strictAnonymous) then
      if (splitPrint) then
        write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +' __SRNAME__: entering tape'
      end if
!$PLACEHOLDER_PRAGMA$ id=2
      end if 
      if (our_rev_mode%adjoint 
     +.and. .not.our_rev_mode%strictAnonymous) then
      if (splitPrint) then
         write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +' __SRNAME__: entering adjoint'
      end if
!$PLACEHOLDER_PRAGMA$ id=3
      end if 
      if (our_rev_mode%tape .and. our_rev_mode%strictAnonymous) then
      if (splitPrint) then
        write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +' __SRNAME__: entering sa tape'
      end if
!$PLACEHOLDER_PRAGMA$ id=10
      end if 
      if (our_rev_mode%adjoint 
     +.and. our_rev_mode%strictAnonymous) then
      if (splitPrint) then
         write(*,'(A,A,A)') 
     +'JU:',indentation(1:our_indent), 
     +' __SRNAME__: entering sa adjoint'
      end if
!$PLACEHOLDER_PRAGMA$ id=11
      end if 

      if (splitPrint) then
      write(*,'(A,A,A)', ADVANCE='NO') 
     +'JU:',indentation(1:our_indent), 'leave __SRNAME__:'
      call oad_dump_revmod()
      call oad_dump_tapestats()
      write(*,*) 
      end if

      our_indent=our_indent-1
      end subroutine template