module OAD_rev

implicit none

private
public :: modeType, our_rev_mode, our_indent, splitPrint, oad_dump_revmod
!, forward_mode, &
!& forward_arg_store_mode, reverse_mode, adjoint_mode, taping_mode, restore_mode

type modeType
  logical :: arg_store=.FALSE.
  logical :: arg_restore=.FALSE.
  logical :: res_store=.FALSE.
  logical :: res_restore=.FALSE.
  logical :: plain=.FALSE.
  logical :: tape=.FALSE.
  logical :: adjoint=.FALSE.
  logical :: switchedToCheckpoint=.FALSE.
  logical :: strictAnonymous=.TRUE.
end type modeType

type(modeType), save :: our_rev_mode
integer, save:: our_indent=0
logical, save:: splitPrint=.false.

interface oad_dump_revmod
  module procedure dump_revmod
end interface

contains

subroutine dump_revmod()
  write(*,'(A,L,A,L,A,L,A,L,A,L,A,L)', ADVANCE='NO') & 
       ' 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
end subroutine dump_revmod

end module