17 lines
314 B
C++
17 lines
314 B
C++
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
#include "lmp_f2c.h"
|
|
int dlabad_(doublereal *small, doublereal *large)
|
|
{
|
|
double d_lmp_lg10(doublereal *), sqrt(doublereal);
|
|
if (d_lmp_lg10(large) > 2e3) {
|
|
*small = sqrt(*small);
|
|
*large = sqrt(*large);
|
|
}
|
|
return 0;
|
|
}
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|