tapenade_iter.F90 File Reference

Go to the source code of this file.

Data Types
type	tapenade_iter::cp_iter_controls_type
type	tapenade_iter::cp_iter_type
interface	tapenade_iter::pushinteger
interface	tapenade_iter::popinteger
interface	tapenade_iter::pushrealarray
interface	tapenade_iter::poprealarray
interface	tapenade_iter::pushrealarray_adm
interface	tapenade_iter::poprealarray_adm

Modules
module	tapenade_iter

Functions/Subroutines
subroutine, public	tapenade_iter::initialize_cp_iter
subroutine, public	tapenade_iter::finalize_cp_iter
subroutine, public	tapenade_iter::cp_mod_ini (cp_mod_index)
subroutine, public	tapenade_iter::cp_mod_mid
subroutine, public	tapenade_iter::cp_mod_end
subroutine, public	tapenade_iter::pushcontrol (ctype, field)
subroutine, public	tapenade_iter::popcontrol (ctype, field)
subroutine	tapenade_iter::psh_integer_k0 (field, skip)
subroutine	tapenade_iter::psh_integer_k1 (field, dimen, skip)
subroutine	tapenade_iter::pop_integer_k0 (field, skip)
subroutine	tapenade_iter::pop_integer_k1 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r4_k0 (field, skip)
subroutine	tapenade_iter::psh_real_r4_k1 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r4_k2 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r4_k3 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r4_k4 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r4_k0 (field, skip)
subroutine	tapenade_iter::pop_real_r4_k1 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r4_k2 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r4_k3 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r4_k4 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r8_k0 (field, skip)
subroutine	tapenade_iter::psh_real_r8_k1 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r8_k2 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r8_k3 (field, dimen, skip)
subroutine	tapenade_iter::psh_real_r8_k4 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r8_k0 (field, skip)
subroutine	tapenade_iter::pop_real_r8_k1 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r8_k2 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r8_k3 (field, dimen, skip)
subroutine	tapenade_iter::pop_real_r8_k4 (field, dimen, skip)
subroutine	tapenade_iter::psh_adm_real_r4_k0 (field)
subroutine	tapenade_iter::psh_adm_real_r4_k1 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r4_k2 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r4_k3 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r4_k4 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r8_k0 (field)
subroutine	tapenade_iter::psh_adm_real_r8_k1 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r8_k2 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r8_k3 (field, dimen)
subroutine	tapenade_iter::psh_adm_real_r8_k4 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r4_k0 (field)
subroutine	tapenade_iter::pop_adm_real_r4_k1 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r4_k2 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r4_k3 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r4_k4 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r8_k0 (field)
subroutine	tapenade_iter::pop_adm_real_r8_k1 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r8_k2 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r8_k3 (field, dimen)
subroutine	tapenade_iter::pop_adm_real_r8_k4 (field, dimen)

Variables
type(cp_iter_controls_type), target, public	tapenade_iter::cp_iter_controls
integer, parameter	tapenade_iter::idx_control = 1
integer, parameter	tapenade_iter::idx_integer = 2
integer, parameter	tapenade_iter::idx_real_r4 = 3
integer, parameter	tapenade_iter::idx_real_r8 = 4
integer, parameter	tapenade_iter::total_types = 4
integer, parameter	tapenade_iter::status_kind = 1
logical, save	tapenade_iter::cp_iter_initialized = .false.
logical, save	tapenade_iter::cp_iter_finalized = .false.
type(cp_iter_type), dimension(:), allocatable, target, public	tapenade_iter::cp_iter
type(cp_iter_type), pointer	tapenade_iter::am
real(8), parameter	tapenade_iter::b2mb = 9.536743164062500d-7
real(8), parameter	tapenade_iter::b2gb = 9.313225746154785d-10
integer(8), dimension(total_types)	tapenade_iter::count_psh_mid
integer, pointer	tapenade_iter::cp_nt
integer, pointer	tapenade_iter::cp_i
integer, pointer	tapenade_iter::cp_t
integer, pointer	tapenade_iter::cp_nm
real, pointer	tapenade_iter::cp_gb
logical, save	tapenade_iter::root_pe = .false.