comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

NT port

Browse source
This commit is contained in:
Benny Johnson 2000-07-27 16:03:08 +00:00
parent 5c5fb439d8
commit c74a7ec7b4
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/develop/raktestc.c
View file

@ -1,23 +1,24 @@
/*
$Id: raktestc.c,v 1.5 1999-06-16 22:16:05 d3e129 Exp $
$Id: raktestc.c,v 1.6 2000-07-27 16:03:08 bjohnson Exp $
*/
#include "typesf2c.h"
#include <stdio.h>
#if defined(SOLARIS)
#define WORKS_FOR 1
#endif
#if defined(CRAY) || defined(WIN32)
#define is_this_val_okay_ IS_THIS_VAL_OKAY
#endif
/* */
#if defined(WORKS_FOR)
#include <ieeefp.h>
#endif
#if defined(CRAY)
int IS_THIS_VAL_OKAY(double *value)
#else
int is_this_val_okay_(double *value)
#endif
int FATR is_this_val_okay_(double *value)
{
#if defined(WORKS_FOR)
/*