| /dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
| H A D | fwdxac.f | 25 DIMENSION TYSUBL(216),TYSUBR(216),TYSUPL(216),TYSUPR(216)
33 EQUIVALENCE (SUBT7 (1),TYSUBR( 1)),(SUBT8 (1),TYSUBR( 37))
34 EQUIVALENCE (SUBT9 (1),TYSUBR( 73)),(SUBT10(1),TYSUBR(109))
35 EQUIVALENCE (SUBT11(1),TYSUBR(145)),(SUBT12(1),TYSUBR(181))
|
| /dports/science/afni/afni-AFNI_21.3.16/src/f2c/ |
| H A D | ftypes.h | 30 #define TYSUBR (13+TYQUAD_inc) macro
50 #define TYBLANK TYSUBR /* Huh? */
|
| H A D | pread.c | 231 if (ftype > TYSUBR)
254 || type != TYFTNLEN + 100 && type % 100 > TYSUBR)
491 return TYSUBR; in Pftype()
611 rv = TYSUBR+200;
793 && k != TYSUBR + 200
798 else if (j % 100 % TYSUBR != k % TYSUBR
|
| H A D | exec.c | 213 else if (lp->vtype == TYSUBR)
317 if (name->vtype != TYSUBR) {
319 name->vtype = TYSUBR;
326 settype(name, TYSUBR, (ftnint)0);
390 subr_call = call1(TYSUBR, (stop ? "s_stop" : "s_paus"), p);
902 if(p && (proctype!=TYSUBR || procclass!=CLPROC) )
908 if (p || proctype == TYSUBR) {
|
| H A D | proc.c | 95 qtype == TYSUBR ? "" : " function",
96 ftn_types[type1], type1 == TYSUBR ? "" : " function");
242 ? (Castargs ? TYUNKNOWN : TYSUBR)
449 entrypt(CLPROC, TYSUBR, (ftnint)0, progname, (chainp)0);
534 if (type == TYSUBR)
557 if(proctype == TYSUBR)
558 type = TYSUBR;
583 if(proctype==TYSUBR) in epicode()
816 else if (type != TYSUBR) {
1461 v->vtype = TYSUBR;
[all …]
|
| H A D | init.c | 141 char *casttypes[TYSUBR+1] = {
150 char *usedcasts[TYSUBR+1];
201 int init_ac[TYSUBR+1] = { 0,0,0,0,0,0,0,
|
| /dports/lang/f2c/f2c-20200916/src/ |
| H A D | ftypes.h | 57 #define TYSUBR (13+TYQUAD_inc) macro
77 #define TYBLANK TYSUBR /* Huh? */
|
| H A D | pread.c | 231 if (ftype > TYSUBR)
254 || type != TYFTNLEN + 100 && type % 100 > TYSUBR)
491 return TYSUBR; in Pftype()
611 rv = TYSUBR+200;
793 && k != TYSUBR + 200
798 else if (j % 100 % TYSUBR != k % TYSUBR
|
| H A D | exec.c | 260 else if (lp->vtype == TYSUBR)
367 if (name->vtype != TYSUBR) {
369 name->vtype = TYSUBR;
376 settype(name, TYSUBR, (ftnint)0);
440 subr_call = call1(TYSUBR, (char*)(stop ? "s_stop" : "s_paus"), p);
953 if(p && (proctype!=TYSUBR || procclass!=CLPROC) )
959 if (p || proctype == TYSUBR) {
|
| H A D | proc.c | 95 qtype == TYSUBR ? "" : " function",
96 ftn_types[type1], type1 == TYSUBR ? "" : " function");
244 ? (Castargs ? TYUNKNOWN : TYSUBR)
451 entrypt(CLPROC, TYSUBR, (ftnint)0, progname, (chainp)0);
536 if (type == TYSUBR)
559 if(proctype == TYSUBR)
560 type = TYSUBR;
585 if(proctype==TYSUBR) in epicode()
821 else if (type != TYSUBR) {
1466 v->vtype = TYSUBR;
[all …]
|
| H A D | init.c | 141 char *casttypes[TYSUBR+1] = {
150 char *usedcasts[TYSUBR+1];
201 int init_ac[TYSUBR+1] = { 0,0,0,0,0,0,0,
|
| /dports/lang/pcc/pcc-1.1.0/f77/fcom/ |
| H A D | proc.c | 195 if(type == TYSUBR) in entrypt()
208 if(proctype == TYSUBR) in entrypt()
209 type = TYSUBR; in entrypt()
230 if(proctype==TYSUBR) { in epicode()
235 goret(TYSUBR); in epicode()
252 goret(TYSUBR); in epicode()
368 } else if(type != TYSUBR) { in doentry()
705 if(type==TYSUBR && v->vtype!=TYUNKNOWN && v->vstg==STGARG)
707 v->vtype = TYSUBR;
755 case TYSUBR:
|
| H A D | exec.c | 239 settype(name, TYSUBR, 0);
285 putexpr( call1(TYSUBR, (stop ? "s_stop" : "s_paus"), p) );
564 if(p && (proctype!=TYSUBR || procclass!=CLPROC) )
576 putgoto(procclass==TYSUBR ? ret0label : retlabel);
|
| H A D | ftypes.h | 55 #define TYSUBR 10 macro
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/util/io/ |
| H A D | lio.h | 44 #define TYSUBR 10 macro
|
| /dports/math/blis/blis-0.8.1/blastest/f2c/ |
| H A D | lio.h | 44 #define TYSUBR 10 macro
|
| /dports/devel/pcc-libs/pcc-libs-1.1.0/libI77/ |
| H A D | lio.h | 52 #define TYSUBR 10 macro
|
| /dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/libf2c/libI77/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/science/cdcl/dcl-5.4.8-C/f2csrc/ |
| H A D | lio.h | 22 #define TYSUBR 10 macro
|
| /dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/libf2c/libI77/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/astro/celestia/celestia-1.6.1/windows/inc/spice/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/astro/celestia-gtk/celestia-1.6.1/windows/inc/spice/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/math/igraph/igraph-0.9.5/vendor/f2c/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/libf2c/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/LIBF2C/ |
| H A D | lio.h | 21 #define TYSUBR 10 macro
|