*+ * Name: * NUM_DEC_UW * Purpose: * Declarations for NUM_ UNSIGNED WORD functions * Copyright: * Copyright (C) 1988 Science & Engineering Research Council. * All Rights Reserved. * Licence: * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be * useful,but WITHOUT ANY WARRANTY; without even the implied * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR * PURPOSE. See the GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street,Fifth Floor, Boston, MA * 02110-1301, USA * Authors: * RFWS: R.F. Warren-Smith (DUVAD::RFWS) * History: * 16-AUG-1988 (RFWS): * Original version *- * UNSIGNED WORD arithmetic functions. INTEGER*2 NUM_ADDUW INTEGER*2 NUM_SUBUW INTEGER*2 NUM_MULUW INTEGER*2 NUM_DIVUW INTEGER*2 NUM_IDVUW INTEGER*2 NUM_PWRUW INTEGER*2 NUM_NEGUW * UNSIGNED WORD functions with a single UNSIGNED WORD argument. INTEGER*2 NUM_SQRTUW INTEGER*2 NUM_LOGUW INTEGER*2 NUM_LG10UW INTEGER*2 NUM_EXPUW INTEGER*2 NUM_ABSUW INTEGER*2 NUM_NINTUW INTEGER*2 NUM_INTUW * UNSIGNED WORD functions with two UNSIGNED WORD arguments. INTEGER*2 NUM_MINUW INTEGER*2 NUM_MAXUW INTEGER*2 NUM_DIMUW INTEGER*2 NUM_MODUW INTEGER*2 NUM_SIGNUW * Logical functions comparing two UNSIGNED WORD numbers. LOGICAL NUM_EQUW LOGICAL NUM_NEUW LOGICAL NUM_GTUW LOGICAL NUM_GEUW LOGICAL NUM_LTUW LOGICAL NUM_LEUW ************************************************************************ * END * * * * Declarations for NUM_ UNSIGNED WORD functions * * * * END * ************************************************************************