!  GeAppendTree.f90
!
!  Append a new Tree to the existing tree list; realloc tree list if
!  necessary.
!
!  Detlef Irmscher, Thomas Ullrich, Uni Heidelberg, September 1993
!  Last update: 16.3.95 tu
!
subroutine GeAppendTree
    use genesis_m, self=>GeAppendTree
    implicit none
    integer :: istat

    lasttree = lasttree + 1

    if (lasttree > maxtree) then        ! check if enough room
        maxtree = 1.2 * maxtree
        call GeReallocTree (maxtree, istat)
        if (istat /= 0) then            ! couldn't realloc
            call GeErrorMessage ("GeAppendTree",                        &
            "couldn't get room to reallocate tree list; no new tree")
            return
        endif
    endif
end subroutine GeAppendTree