odd |
Table of contents
ProcedureODD ( Is a number odd? ) LOGICAL FUNCTION ODD ( IVAL ) AbstractDetermine whether an integer is odd. Required_ReadingNone. KeywordsNUMBERS DeclarationsIMPLICIT NONE INTEGER IVAL Brief_I/OVARIABLE I/O DESCRIPTION -------- --- -------------------------------------------------- IVAL I The integer in question. The function returns .TRUE. if IVAL is odd, otherwise .FALSE. Detailed_InputIVAL is the integer to be tested for oddness. Detailed_OutputThe function returns .TRUE. if IVAL is odd, .FALSE. if IVAL is even. ParametersNone. ExceptionsError free. FilesNone. ParticularsDivide IVAL by two. If the remainder is one, IVAL is odd. ExamplesLet ENDPTS contain a series of endpoints, a , b , ..., a , b 1 1 n n representing an ordered collection of disjoint intervals, a < b < a i - i i+1 The following code fragment uses ODD to determine whether an arbitrary value X is contained in any of the intervals. CONTAINED = .FALSE. DO I = 1, N-1 IF ( X .GE. ENDPTS(I) .AND. X .LE. ENDPTS(I+1) ) THEN CONTAINED = ( ODD ( I ) ) END IF END DO RestrictionsNone. Literature_ReferencesNone. Author_and_InstitutionJ. Diaz del Rio (ODC Space) B.V. Semenov (JPL) W.L. Taber (JPL) I.M. Underwood (JPL) VersionSPICELIB Version 1.1.0, 08-APR-2021 (JDR) Added IMPLICIT NONE statement. Changed the input argument name "I" to "IVAL" for consistency with other routines. Edited the header to comply with NAIF standard. Removed unnecessary $Revisions section. SPICELIB Version 1.0.2, 07-NOV-2005 (BVS) Fixed a few typos in the header. SPICELIB Version 1.0.1, 10-MAR-1992 (WLT) Comment section for permuted index source lines was added following the header. SPICELIB Version 1.0.0, 31-JAN-1990 (IMU) |
Fri Dec 31 18:36:36 2021