/*     FUNCTION ISITNAN

     ISITNAN RETURNS A NON-ZERO DIGIT IF INPUT NUMBER IS
     NAN (NOT A NUMBER) ZERO OTHERWISE

*/

int isitnan_(

      float *inval   /* INPUT NUMBER */

             )

{

 return isnan(*inval);

}