Home
last modified time | relevance | path

Searched refs:CADR (Results 1 – 25 of 1109) sorted by relevance

12345678910>>...45

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A DdescIntrins.c108 if (CADR(string)[i] == CADR(substring)[0] && in ENTFTN()
128 return ENTFTN(INDEX, index)(CADR(string), CADR(substring), in ENTFTN()
136 return ENTFTN(INDEXXA, indexxa)(CADR(string), CADR(substring), in ENTFTN()
153 if (CADR(string)[i] == CADR(substring)[0] && in ENTFTN()
173 return ENTFTN(KINDEXA, kindexa)(CADR(string), CADR(substring), in ENTFTN()
234 return ENTFTN(INDEXA, indexa)(CADR(string), CADR(substring), in ENTFTN()
250 return ENTFTN(INDEXA, indexa)(CADR(string), CADR(substring), in ENTFTN()
394 if (CADR(string)[i] == CADR(substring)[0] && in ENTFTN_MS()
416 return ENTFTN(INDEXA, indexa)(CADR(string), CADR(substring), in ENTFTN_MS()
434 return ENTFTN(INDEXA, indexa)(CADR(string), CADR(substring), in ENTFTN_MS()
[all …]
H A Dinquire.c805 CADR(sequential), CADR(direct), CADR(form), CADR(formatted), in ENTF90IO()
807 CADR(position), CADR(action), CADR(read), CADR(write0), in ENTF90IO()
1164 CADR(sequential), CADR(direct), CADR(form), CADR(formatted), in ENTF90IO()
1166 CADR(position), CADR(action), CADR(read), CADR(write0), in ENTF90IO()
1309 CADR(sequential), CADR(direct), CADR(form), CADR(formatted), in ENTCRF90IO()
1311 CADR(position), CADR(action), CADR(read), CADR(write0), in ENTCRF90IO()
1449 CADR(position), CADR(action), CADR(read), CADR(write0), in ENTCRF90IO()
2110 CADR(sequential), CADR(direct), CADR(form), CADR(formatted), in ENTF90IO()
2112 CADR(position), CADR(action), CADR(read), CADR(write0), in ENTF90IO()
2572 CADR(sequential), CADR(direct), CADR(form), CADR(formatted), in ENTF90IO()
[all …]
H A Dopen.c674 return ENTF90IO(OPEN, open) (unit, bitv, CADR(acc), CADR(action), in ENTF90IO()
675 CADR(blank), CADR(delim), CADR(name), CADR(form), iostat, in ENTF90IO()
676 CADR(pad), CADR(pos), reclen, CADR(status), CADR(dispose), in ENTF90IO()
798 return ENTF90IO(OPEN2003A, open2003a)(unit, bitv, CADR(acc), CADR(action), in ENTF90IO()
799 CADR(blank), CADR(delim), CADR(name), CADR(form), iostat, in ENTF90IO()
800 CADR(pad), CADR(pos), reclen, CADR(status), CADR(dispose), in ENTF90IO()
983 return ENTCRF90IO(OPENA, opena)(unit, bitv, CADR(acc), CADR(action), in ENTCRF90IO()
984 CADR(blank), CADR(delim), CADR(name), CADR(form), iostat, in ENTCRF90IO()
985 CADR(pad), CADR(pos), reclen, CADR(status), CADR(dispose), in ENTCRF90IO()
1189 return ENTF90IO(OPEN03A, open03a)(istat, CADR(decimal), CADR(round), in ENTF90IO()
[all …]
H A Dsplitpathqq3f.c40 path = __fstr2cstr(CADR(fpath), CLEN(fpath)); in ENT3F()
41 drive = __fstr2cstr(CADR(fdrive), CLEN(fdrive)); in ENT3F()
42 dir = __fstr2cstr(CADR(fdir), CLEN(fdir)); in ENT3F()
43 name = __fstr2cstr(CADR(fname), CLEN(fname)); in ENT3F()
44 ext = __fstr2cstr(CADR(fext), CLEN(fext)); in ENT3F()
72 __fcp_cstr(CADR(fext), CLEN(fext), ext); in ENT3F()
73 __fcp_cstr(CADR(fdrive), CLEN(fdrive), drive); in ENT3F()
74 __fcp_cstr(CADR(fdir), CLEN(fdir), dir); in ENT3F()
75 __fcp_cstr(CADR(fname), CLEN(fname), name); in ENT3F()
H A Dftnexit.c99 _f90io_stop(1, CADR(str), CLEN(str), 0, 1); in ENTF90()
131 _f90io_stop(*exit_status, CADR(str), CLEN(str), 0, 0); in ENTF90()
143 ENTF90(STOP08A, stop08a)(exit_status, CADR(str), (__CLEN_T)CLEN(str)); in ENTF90()
151 _f90io_stop(0, CADR(str), CLEN(str), 0, 0); in ENTF90()
158 ENTF90(STOPA, stopa)(CADR(str), (__CLEN_T)CLEN(str)); in ENTF90()
164 _f90io_stop(0, CADR(str), CLEN(str), 0, 0); in ENTCRF90()
171 ENTCRF90(STOPA, stopa)(CADR(str), (__CLEN_T)CLEN(str)); in ENTCRF90()
201 _f90io_pause(CADR(str), CLEN(str)); in ENTF90()
211 ENTF90(PAUSEA, pausea)(CADR(str), (__CLEN_T)CLEN(str)); in ENTF90()
217 _f90io_pause(CADR(str), CLEN(str)); in ENTCRF90()
[all …]
H A Deoshift.c406 ENTFTN(EOSHIFTSZ, eoshiftsz)(CADR(rb), CADR(ab), sb, db, rs, as, ss, ds); in ENTFTN()
492 ENTFTN(EOSHIFTSS,eoshiftss)(CADR(rb), CADR(ab), sb, db, CADR(bb), in ENTFTN()
511 ENTFTN(EOSHIFTSSCA, eoshiftssca)(CADR(rb), CADR(ab), sb, db, CADR(bb), rs, as, in ENTFTN()
571 ENTFTN(EOSHIFTSA,eoshiftsa)(CADR(rb), CADR(ab), sb, db, CADR(bb), in ENTFTN()
590 ENTFTN(EOSHIFTSACA, eoshiftsaca)(CADR(rb), CADR(ab), sb, db, CADR(bb), rs, as, in ENTFTN()
650 ENTFTN(EOSHIFTZ, eoshiftz)(CADR(rb), CADR(ab), sb, db, rs, as, ss, ds); in ENTFTN()
665 ENTFTN(EOSHIFTZCA, eoshiftzca)(CADR(rb), CADR(ab), sb, db, rs, as, ss, ds, in ENTFTN()
727 ENTFTN(EOSHIFTS,eoshifts)(CADR(rb), CADR(ab), sb, db, CADR(bb), in ENTFTN()
746 ENTFTN(EOSHIFTSCA, eoshiftsca)(CADR(rb), CADR(ab), sb, db, CADR(bb), rs, as, in ENTFTN()
810 ENTFTN(EOSHIFT,eoshift)(CADR(rb), CADR(ab), sb, db, CADR(bb), in ENTFTN()
[all …]
H A Dentry.c111 pentc->func = CADR(func); in ENTFTN()
113 pentc->file = CADR(file); in ENTFTN()
118 __fort_stat_function_entry(*line, *lines, cline, CADR(func), CADR(file), in ENTFTN()
120 __fort_prof_function_entry(*line, *lines, cline, CADR(func), CADR(file), in ENTFTN()
122 __fort_trac_function_entry(*line, *lines, cline, CADR(func), CADR(file), in ENTFTN()
131 ENTFTN(FUNCTION_ENTRYA, function_entrya)(line, lines, CADR(func), CADR(file), in ENTFTN()
244 char *p = CADR(msg); in ENTFTN()
256 ENTFTN(TRACECALLA, tracecalla)(CADR(msg), (__CLEN_T)CLEN(msg)); in ENTFTN()
H A Dgetarg.c56 CADR(arg)[i] = p[i]; in ENTRY()
60 CADR(arg)[i] = ' '; in ENTRY()
67 ENTRY(GETARGA, getarga)(n, CADR(arg), (__CLEN_T)CLEN(arg)); in ENTRY()
105 q = (char *)CADR(value); in ENTF90()
142 ENTF90(GET_CMD_ARGA, get_cmd_arga)(number, CADR(value), length, status, in ENTF90()
164 q = (char *)CADR(command); in ENTF90()
214 ENTF90(GET_CMDA, get_cmda)(CADR(command), length, status, int_kind, in ENTF90()
242 envnm = __fstr2cstr(CADR(name), CLEN(name)); in ENTF90()
245 q = (char *)CADR(value); in ENTF90()
281 ENTF90(GET_ENV_VARA, get_env_vara)(CADR(name), CADR(value), length, status, in ENTF90()
H A Dptr.c219 I8(ptr_asgn)(CADR(pb), pd, kind, len, CADR(tb), td, lb); in ENTFTN()
227 ENTFTN(PTR_ASGN_CHARA, ptr_asgn_chara)(CADR(pb), pd, CADR(tb), td, lb, in ENTFTN()
395 I8(ptr_assign)(CADR(pb), pd, kind, len, CADR(tb), td, *sectflag); in ENTFTN()
406 ENTFTN(PTR_ASSIGN_CHARA, ptr_assign_chara)(CADR(pb), pd, CADR(tb), td, in ENTFTN()
467 I8(ptr_assign)(CADR(pb), pd, kind, len, CADR(tb), td, *sectflag); in ENTFTN()
539 I8(ptr_assign)(CADR(pb), pd, kind, len, CADR(tb), td, *sectflag); in ENTFTN()
716 I8(ptr_in)(*rank, (dtype)*kind, *len, CADR(db), dd, CADR(ab), ad); in ENTFTN()
971 return CADR(tb); in ENTFTN()
1645 I8(ptr_out)(CADR(ab), ad, CADR(db), dd, __STR, CLEN(db)); in ENTFTN()
1652 ENTFTN(PTR_OUT_CHARA, ptr_out_chara)(CADR(ab), ad, CADR(db), dd, in ENTFTN()
[all …]
H A Dpack.c172 ENTFTN(PACK,pack)(CADR(rb), CADR(ab), mb, CADR(vb), in ENTFTN()
188 ENTFTN(PACKCA, packca)(CADR(rb), CADR(ab), mb, CADR(vb), result, array, mask, in ENTFTN()
298 ENTFTN(PACKZ, packz)(CADR(rb), CADR(ab), mb, result, array, mask); in ENTFTN()
311 ENTFTN(PACKZCA, packzca)(CADR(rb), CADR(ab), mb, result, array, mask, in ENTFTN()
432 ENTFTN(UNPACK,unpack)(CADR(rb), CADR(vb), mb, CADR(fb), in ENTFTN()
448 ENTFTN(UNPACKC, unpackc)(CADR(rb), CADR(vb), mb, CADR(fb), result, vector, in ENTFTN()
H A Dldwrite.c339 if (__fortio_eq_str(CADR(decimal), CLEN(decimal), "COMMA")) { in ENTF90IO()
349 if (__fortio_eq_str(CADR(delim), CLEN(delim), "APOSTROPHE")) { in ENTF90IO()
361 if (__fortio_eq_str(CADR(sign), CLEN(sign), "PLUS")) { in ENTF90IO()
385 return ENTF90IO(LDW_INIT03A, ldw_init03a) (istat, CADR(decimal), CADR(delim), in ENTF90IO()
386 CADR(sign), (__CLEN_T)CLEN(decimal), in ENTF90IO()
439 internal_unit = CADR(cunit); in ENTF90IO()
481 internal_unit = CADR(cunit); in ENTCRF90IO()
680 s = __f90io_ldw(*type, *length, *stride, CADR(item), in ENTF90IO()
710 s = __f90io_ldw(*type, *length, *stride, CADR(item), in ENTF90IO()
737 s = __f90io_ldw(*type, *length, *stride, CADR(item), in ENTF90IO()
[all …]
H A Dallo.c892 0, CADR(errmsg), CLEN(errmsg)); in ENTF90()
968 align, CADR(errmsg), (__CLEN_T)CLEN(errmsg)); in ENTF90()
983 align, CADR(errmsg), CLEN(errmsg)); in ENTF90()
1041 0, CADR(errmsg), CLEN(errmsg)); in ENTF90()
1133 0, CADR(errmsg), CLEN(errmsg)); in ENTF90()
1206 0, CADR(errmsg), CLEN(errmsg)); in ENTF90()
1246 0, CADR(errmsg), CLEN(errmsg)); in ENTF90()
1600 if (reuse_alloc(stat, CADR(area))) in ENTF90()
1602 (void)I8(__fort_dealloc)(CADR(area), stat, in ENTF90()
1641 if (I8(__fort_allocated)(CADR(area))) { in ENTF90()
[all …]
H A Dmiscsup_com.c399 CADR(res)[j] = CADR(expr)[i]; in ENTF90()
423 CADR(res)[j] = CADR(expr)[i]; in ENTF90()
804 ENTFTN(DANDTA, dandta)(CADR(date), CADR(tbuf), CADR(zone), values, dated, in ENTFTN()
2921 CADR(res)[j] = CADR(expr)[j];
3115 if (CADR(set)[j] == CADR(str)[i])
3121 if (CADR(set)[j] == CADR(str)[i])
3147 if (CADR(set)[j] == CADR(str)[i])
3153 if (CADR(set)[j] == CADR(str)[i])
3176 if (CADR(set)[j] == CADR(str)[i])
3185 if (CADR(set)[j] == CADR(str)[i])
[all …]
H A Dfindfileqq3f.c39 path = __fstr2cstr(CADR(fpath), CLEN(fpath)); in ENT3F()
40 name = __fstr2cstr(CADR(fname), CLEN(fname)); in ENT3F()
41 varname = __fstr2cstr(CADR(fvarname), CLEN(fvarname)); in ENT3F()
59 __fcp_cstr(CADR(fpath), CLEN(fpath), path); in ENT3F()
H A Derror.c650 src_info.name = CADR(name); in ENTF90IO()
670 src_info.name = CADR(name); in ENTF90IO()
690 src_info.name = CADR(name); in ENTCRF90IO()
709 src_info.name = CADR(name); in ENTCRF90IO()
728 src_info.name = CADR(name); in ENTF90IO()
747 src_info.name = CADR(name); in ENTF90IO()
766 src_info.name = CADR(name); in ENTCRF90IO()
784 src_info.name = CADR(name); in ENTCRF90IO()
807 iomsg = CADR(msg); in ENTF90IO()
814 ENTF90IO(IOMSGA, iomsga)(CADR(msg), (__CLEN_T)CLEN(msg)); in ENTF90IO()
[all …]
H A Dldread.c418 if (__fortio_eq_str(CADR(blank), CLEN(blank), "ZERO")) { in ENTF90IO()
434 if (__fortio_eq_str(CADR(pad), CLEN(pad), "YES")) in ENTF90IO()
436 else if (__fortio_eq_str(CADR(pad), CLEN(pad), "NO")) in ENTF90IO()
442 if (__fortio_eq_str(CADR(round), CLEN(round), "UP")) { in ENTF90IO()
452 } else if (__fortio_eq_str(CADR(round), CLEN(round), in ENTF90IO()
472 return ENTF90IO(LDR_INIT03A, ldr_init03a) (istat, CADR(blank), CADR(decimal), in ENTF90IO()
473 CADR(pad), CADR(round), (__CLEN_T)CLEN(blank), in ENTF90IO()
720 adr = CADR(item); in ENTF90IO()
766 adr = CADR(item); in ENTF90IO()
810 adr = CADR(item); in ENTF90IO()
[all …]
/dports/math/R/R-4.1.2/src/library/stats/src/
H A Dderiv.c193 ans = CADR(arg1); in simplify()
407 CADR(expr), in D()
414 CADR(expr), in D()
446 CADR(expr)); in D()
576 CADR(expr), in D()
583 CADR(expr), in D()
642 CADR(expr), in D()
652 CADR(expr), in D()
757 if (isPlusForm(CADR(expr)) || isMinusForm(CADR(expr))) { in AddParens()
766 if (isPlusForm(CADR(expr)) || isMinusForm(CADR(expr))) { in AddParens()
[all …]
H A Dmodel.c396 vars = CADR(args); in modelmatrix()
931 SEXP lhs = CADR(old); in updateform()
950 SEXP rhs = CADR(old); in updateform()
1101 if (MatchVar(var, CADR(v))) in InstallVar()
1191 ExtractVars(CADR(formula)); in ExtractVars()
1196 InstallVar(CADR(formula)); in ExtractVars()
1205 ExtractVars(CADR(formula)); in ExtractVars()
1245 ExtractVars(CADR(formula)); in ExtractVars()
1248 ExtractVars(CADR(formula)); in ExtractVars()
1788 SEXP specials = CADR(args); in termsform()
[all …]
/dports/math/libRmath/R-4.1.1/src/library/stats/src/
H A Dderiv.c193 ans = CADR(arg1); in simplify()
407 CADR(expr), in D()
414 CADR(expr), in D()
446 CADR(expr)); in D()
576 CADR(expr), in D()
583 CADR(expr), in D()
642 CADR(expr), in D()
652 CADR(expr), in D()
757 if (isPlusForm(CADR(expr)) || isMinusForm(CADR(expr))) { in AddParens()
766 if (isPlusForm(CADR(expr)) || isMinusForm(CADR(expr))) { in AddParens()
[all …]
H A Dmodel.c396 vars = CADR(args); in modelmatrix()
931 SEXP lhs = CADR(old); in updateform()
950 SEXP rhs = CADR(old); in updateform()
1101 if (MatchVar(var, CADR(v))) in InstallVar()
1191 ExtractVars(CADR(formula)); in ExtractVars()
1196 InstallVar(CADR(formula)); in ExtractVars()
1205 ExtractVars(CADR(formula)); in ExtractVars()
1245 ExtractVars(CADR(formula)); in ExtractVars()
1248 ExtractVars(CADR(formula)); in ExtractVars()
1788 SEXP specials = CADR(args); in termsform()
[all …]
/dports/math/R/R-4.1.2/src/library/tcltk/src/
H A Dtcltk.c207 if(!isValidString(CADR(args))) in dotTcl()
219 avec = CADR(args), in dotTclObjv()
374 val = CADR(args); in RTcl_ObjFromCharVector()
454 val = CADR(args); in RTcl_ObjFromDoubleVector()
509 val = CADR(args); in RTcl_ObjFromIntVector()
565 val = CADR(args); in RTcl_ObjFromRawVector()
581 x = CADR(args); in RTcl_GetArrayElem()
602 x = CADR(args); in RTcl_SetArrayElem()
620 x = CADR(args); in RTcl_RemoveArrayElem()
772 if (!isLogical(CADR(args)) || length(CADR(args)) > 1) in RTcl_ServiceMode()
[all …]
/dports/math/libRmath/R-4.1.1/src/library/tcltk/src/
H A Dtcltk.c207 if(!isValidString(CADR(args))) in dotTcl()
219 avec = CADR(args), in dotTclObjv()
374 val = CADR(args); in RTcl_ObjFromCharVector()
454 val = CADR(args); in RTcl_ObjFromDoubleVector()
509 val = CADR(args); in RTcl_ObjFromIntVector()
565 val = CADR(args); in RTcl_ObjFromRawVector()
581 x = CADR(args); in RTcl_GetArrayElem()
602 x = CADR(args); in RTcl_SetArrayElem()
620 x = CADR(args); in RTcl_RemoveArrayElem()
772 if (!isLogical(CADR(args)) || length(CADR(args)) > 1) in RTcl_ServiceMode()
[all …]
/dports/math/fricas/fricas-1.3.7/src/interp/
H A Dptrees.boot203 pfAndLeft pf == CADR pf -- was ==>
208 pfOrLeft pf == CADR pf -- was ==>
213 pfNotArg pf == CADR pf -- was ==>
317 pfWrongWhy pf == CADR pf -- was ==>
331 pfAddBase pf == CADR pf -- was ==>
352 pfWithBase pf == CADR pf -- was ==>
363 pfWIfCond pf == CADR pf -- was ==>
387 pfTypedId pf == CADR pf -- was ==>
484 pfIfCond pf == CADR pf -- was ==>
526 pfForinLhs pf == CADR pf -- was ==>
[all …]
/dports/cad/alliance/alliance/src/proof/src/
H A Dproof_compile.c66 if ((OPER (expr) == NOT) && !ATOM (CADR (expr)) && (OPER (CADR (expr)) == XOR))
71 filsExpr = CADR (expr);
72 filsCst = CADR (CDR (filsExpr));
76 return (copyExpr (CADR (filsExpr)));
80 return (notExpr (copyExpr (CADR (filsExpr))));
565 if (ATOM (CADR (biabl->CNDABL)))
566 biabl->CNDABL = notExpr (CADR (biabl->CNDABL));
568 biabl->CNDABL = CADR (CADR (biabl->CNDABL));
572 if (ATOM (CADR (CDR (biabl->CNDABL))))
573 biabl->CNDABL = notExpr (CADR (CDR (biabl->CNDABL)));
[all …]
/dports/math/reduce/Reduce-svn5758-src/contrib/ortocartan/
H A Dortcsl.lis314 (COND ((ATOM (CADR E)) (JOINAT (CADR E) LEVEL 0))
501 ((ATOM (CADR E)) (CADR E))
551 (COND ((ATOM (CADR E)) (SETQ STORE (CONS (CADR E) STORE)))
986 A (SETQ I (GCF (CADR W) I))
1114 ((AND (RANP (CADR X)) (RMINUSP (CADR X))) (SPLUS (CONS
1254 (SETQ Q (CADR X))
1279 (RANP (CADR Y)) (RMINUSP (CADR Y))))
1670 (OR (NULL VALENCE) (NULL (CADR VE)) (EQUAL (CADR VE) VALENCE))
1722 ((EQN (SETQ V(DERIV X(CADR S))) 0) (STIMES(LIST(SLOG(CADR S))S E)))
1808 (SETQ V (CADR V))
[all …]

12345678910>>...45