15 lines
175 B
C++
15 lines
175 B
C++
|
|
#include <cmath>
|
|
|
|
extern "C" {
|
|
|
|
#include "lmp_f2c.h"
|
|
|
|
logical disnan_(const doublereal *din)
|
|
{
|
|
if (!din) return TRUE_;
|
|
|
|
return std::isnan(*din) ? TRUE_ : FALSE_;
|
|
}
|
|
}
|