Searched refs:iofforn (Results 1 – 2 of 2) sorted by relevance
17739 static integer iofforn; in getnote_() local18222 iofforn = 1; in getnote_()18224 iofforn = -1; in getnote_()18234 iofforn = iofforn * i_nint(&xofforn) + 16; in getnote_()18245 iofforn = iofforn * i_nint(&r__1) + 16; in getnote_()18252 c__9, &iofforn); in getnote_()18270 r__1 = iofforn * xofforn + 16; in getnote_()18271 iofforn = i_nint(&r__1); in getnote_()18274 iofforn); in getnote_()21294 static integer iofforn; in getorn_() local[all …]
11745 iofforn = 111746 if (durq .eq. '-') iofforn = -111754 iofforn = iofforn*nint(xofforn) + 1611756 c Turn on bit 1; set bits 2-6 to iofforn11759 * ior(irest(ivx,nnl(ivx)),2+4*iofforn)11764 iofforn = iofforn*nint(xofforn*10)+1611775 iofforn = index('- +',durq)-211779 iofforn = nint(iofforn*xofforn+16)11780 call setbits(mult(ivx,nnl(ivx)),5,5,iofforn)14051 iofforn = nint(xofforn*fnum)[all …]