mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-21 06:25:21 -04:00
36c95e79c8
DEC OS/F is an obsolete Unix operating system (https://en.wikipedia.org/wiki/Tru64_UNIX).
47 lines
1.7 KiB
C
47 lines
1.7 KiB
C
*
|
|
* $Id$
|
|
*
|
|
*======================================================================
|
|
*
|
|
* DISCLAIMER
|
|
*
|
|
* This material was prepared as an account of work sponsored by an
|
|
* agency of the United States Government. Neither the United States
|
|
* Government nor the United States Department of Energy, nor Battelle,
|
|
* nor any of their employees, MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR
|
|
* ASSUMES ANY LEGAL LIABILITY OR RESPONSIBILITY FOR THE ACCURACY,
|
|
* COMPLETENESS, OR USEFULNESS OF ANY INFORMATION, APPARATUS, PRODUCT,
|
|
* SOFTWARE, OR PROCESS DISCLOSED, OR REPRESENTS THAT ITS USE WOULD NOT
|
|
* INFRINGE PRIVATELY OWNED RIGHTS.
|
|
*
|
|
* ACKNOWLEDGMENT
|
|
*
|
|
* This software and its documentation were produced with Government
|
|
* support under Contract Number DE-AC06-76RLO-1830 awarded by the United
|
|
* States Department of Energy. The Government retains a paid-up
|
|
* non-exclusive, irrevocable worldwide license to reproduce, prepare
|
|
* derivative works, perform publicly and display publicly by or for the
|
|
* Government, including the right to distribute to other Government
|
|
* contractors.
|
|
*
|
|
*======================================================================
|
|
*
|
|
* -- PFFT routine (version 1.0) --
|
|
* Pacific Northwest Laboratory
|
|
* April 5, 1995
|
|
*
|
|
*======================================================================
|
|
|
|
* NBYTEI ... Number of bytes in an INTEGER variable
|
|
* NBYTEB ... Number of bytes in a DOUBLE PRECISION variable
|
|
|
|
INTEGER NBYTEI, NBYTED
|
|
|
|
#if defined(KSR) || defined(SGI) || defined(CRAY_T3E) || defined(EXT_INT)
|
|
PARAMETER( NBYTED = 8,
|
|
$ NBYTEI = 8 )
|
|
#else
|
|
PARAMETER( NBYTED = 8,
|
|
$ NBYTEI = 4 )
|
|
#endif
|
|
|