1. Manuals
  2. Tumbleweed
  3. lapack-man
  4. sroundup_lwork.f(3)

Scroll to navigation

SRC/lapack_64_obj/sroundup_lwork.f(3) Library Functions Manual SRC/lapack_64_obj/sroundup_lwork.f(3)

NAME

SRC/lapack_64_obj/sroundup_lwork.f

SYNOPSIS

Functions/Subroutines


real function SROUNDUP_LWORK (lwork)
SROUNDUP_LWORK

Function/Subroutine Documentation

real function SROUNDUP_LWORK (integer lwork)

SROUNDUP_LWORK

Purpose:

!>
!> SROUNDUP_LWORK deals with a subtle bug with returning LWORK as a Float.
!> This routine guarantees it is rounded up instead of down by
!> multiplying LWORK by 1+eps when it is necessary, where eps is the relative machine precision.
!> E.g.,
!>
!>        float( 16777217            ) == 16777216
!>        float( 16777217 ) * (1.+eps) == 16777218
!>
!> \return SROUNDUP_LWORK
!> \verbatim
!>         SROUNDUP_LWORK >= LWORK.
!>         SROUNDUP_LWORK is guaranteed to have zero decimal part.
!>

Parameters

LWORK Workspace size.

Author

Weslley Pereira, University of Colorado Denver, USA

Further Details:

!>  This routine was inspired in the method `magma_zmake_lwork` from MAGMA.
!>  \see https://bitbucket.org/icl/magma/src/master/control/magma_zauxiliary.cpp
!>

Definition at line 59 of file sroundup_lwork.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.

Version 3.12.1 LAPACK