subroutine template()
      use OpenAD_checkpoints
      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

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

      if (splitPrint) then
      write(*,
     +'(A,A,A,A,L,A,L,A,L,A,L,A,L,A,L,A,I8,A,I8)') 
     +'JU:',indentation(1:our_indent), 'enter __SRNAME__:',
     +' As:',our_rev_mode%arg_store,
     +' Ar:',our_rev_mode%arg_restore,
     +' Pl:',our_rev_mode%plain,
     +' Ta:',our_rev_mode%tape,
     +' Ad:',our_rev_mode%adjoint,
     +' Sw:',our_rev_mode%switchedToCheckpoint,
     +' TD:',double_tape_pointer, 
     +' TI:',integer_tape_pointer
      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,A,L,A,L,A,L,A,L,A,L,A,L,A,I8,A,I8)') 
     +'JU:',indentation(1:our_indent), 'leave __SRNAME__:',
     +' As:',our_rev_mode%arg_store,
     +' Ar:',our_rev_mode%arg_restore,
     +' Pl:',our_rev_mode%plain,
     +' Ta:',our_rev_mode%tape,
     +' Ad:',our_rev_mode%adjoint,
     +' Sw:',our_rev_mode%switchedToCheckpoint,
     +' TD:',double_tape_pointer, 
     +' TI:',integer_tape_pointer
      end if

      our_indent=our_indent-1
      end subroutine template