Module unpderiv_mod

module unpderiv_mod

        ! Variables
    integer, public :: reqnum = -1
    integer, public :: spectrum = -1
    integer, public :: sample = -1
    integer, public :: accmask = 0
    integer, public :: nsampledecays = -1
    real, public :: nthrown = -1.
    integer, public :: numMicheldDecays = 0
    integer, private, PARAMETER :: kMaxMicheldDecays = 32
    integer, public, dimension (kMaxMicheldDecays) :: micheldItrack
    integer, public, dimension (kMaxMicheldDecays) :: micheldOffset
    integer, public, dimension (kMaxMicheldDecays) :: micheldAccFlag
    integer, private, EXTERNAL :: bdlen
    integer, private, EXTERNAL :: blocat

        ! Subroutines and functions
    public subroutine UnpackDeriv ()
    private subroutine unpMCB2 ()
    private subroutine unpMCD3 ()
    private subroutine unpMCE2 ()
    private subroutine unpMCE3 ()

end module unpderiv_mod
---------------------------------------------------------------------------
 Unpack "blind analysis" banks.
--------------------------------------------------------------------------- 

Description of Variables

integer, public :: reqnum = -1

integer, public :: spectrum = -1

integer, public :: sample = -1

integer, public :: accmask = 0

integer, public :: nsampledecays = -1

real, public :: nthrown = -1.

integer, public :: numMicheldDecays = 0

integer, private, PARAMETER :: kMaxMicheldDecays = 32

integer, public, dimension (kMaxMicheldDecays) :: micheldItrack

integer, public, dimension (kMaxMicheldDecays) :: micheldOffset

integer, public, dimension (kMaxMicheldDecays) :: micheldAccFlag

integer, private, EXTERNAL :: bdlen

integer, private, EXTERNAL :: blocat

Description of Subroutines and Functions

public subroutine UnpackDeriv ()
    ! Calls: unpMCB2, unpMCD3, unpMCE2, unpMCE3
end subroutine UnpackDeriv
================================================================

private subroutine unpMCB2 ()
    ! Calls: kerror
end subroutine unpMCB2
================================================================

private subroutine unpMCD3 ()
    ! Calls: kerror
end subroutine unpMCD3
================================================================

private subroutine unpMCE2 ()
    ! Calls: kerror
end subroutine unpMCE2
================================================================

private subroutine unpMCE3 ()
    ! Calls: kerror
end subroutine unpMCE3
================================================================