Searched refs:xnolev (Results 1 – 2 of 2) sorted by relevance
37573 /* Character */ VOID ulfq_(char *ret_val, ftnlen ret_val_len, real *xnolev, in ulfq_() argument37581 test = *xnolev - *ncm; in ulfq_()
23671 character*1 function ulfq(xnolev,ncm)23677 test = xnolev-ncm