OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
Variants Computational routines

Functions

real function sceil (a)
 SCEIL

Detailed Description

This is the group of Variants Computational routines

Function Documentation

◆ sceil()

real function sceil ( real a)

SCEIL

Purpose:

!>
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 59 of file sceil.f.

60*
61* -- LAPACK computational routine --
62* -- LAPACK is a software package provided by Univ. of Tennessee, --
63* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64*
65* .. Scalar Arguments ..*
66 REAL A
67* ..
68*
69* =====================================================================
70*
71* .. Intrinsic Functions ..
72 INTRINSIC int
73* ..
74* .. Executable Statements ..*
75*
76 IF (a-int(a).EQ.0) THEN
77 sceil = a
78 ELSE IF (a.GT.0) THEN
79 sceil = int(a)+1;
80 ELSE
81 sceil = int(a)
82 END IF
83
84 RETURN
85*
real function sceil(a)
SCEIL
Definition sceil.f:60