You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
861 B
36 lines
861 B
2 years ago
|
/*
|
||
|
|
* Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
* of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
* NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
*
|
||
|
|
* See packages/seacas/LICENSE for details
|
||
|
|
*/
|
||
|
|
/*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "fortranc.h"
|
||
|
|
|
||
|
|
#if defined(ADDC_)
|
||
|
|
FTNINT ixlnum_(long *numvar)
|
||
|
|
#else
|
||
|
|
FTNINT ixlnum(long *numvar)
|
||
|
|
#endif
|
||
|
|
{
|
||
|
|
return ((long)numvar / sizeof(FTNREAL));
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
INTEGER FUNCTION IXLNUM( NUMVAR )
|
||
|
|
|
||
|
|
************************************************************************
|
||
|
|
|
||
|
|
C DESCRIPTION:
|
||
|
|
C This function returns the absolute location of a numeric variable.
|
||
|
|
C This location must be measured in numeric storage units.
|
||
|
|
|
||
|
|
C FORMAL PARAMETERS:
|
||
|
|
C NUMVAR INTEGER Numeric Variable
|
||
|
|
|
||
|
|
************************************************************************
|
||
|
|
*/
|