Home
last modified time | relevance | path

Searched refs:c__1 (Results 1 – 25 of 3233) sorted by relevance

12345678910>>...130

/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/chklib/
H A Dchkl01.c17 static integer c__1 = 1; variable
81 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
82 do_fio(&c__1, "'", (ftnlen)1); in MAIN__()
90 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
91 do_fio(&c__1, "'", (ftnlen)1); in MAIN__()
102 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
111 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
123 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
132 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
144 do_fio(&c__1, ch, (ftnlen)4); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/src/env1/colormap/
H A Dcmap02.c18 static integer c__1 = 1; variable
84 do_fio(&c__1, " : C00", (ftnlen)6); in MAIN__()
90 do_fio(&c__1, " : C01", (ftnlen)6); in MAIN__()
96 do_fio(&c__1, " : C02", (ftnlen)6); in MAIN__()
102 do_fio(&c__1, " : C03", (ftnlen)6); in MAIN__()
108 do_fio(&c__1, " : C04", (ftnlen)6); in MAIN__()
152 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
162 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
172 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
182 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
[all …]
H A Dcmap01.c18 static integer c__1 = 1; variable
83 do_fio(&c__1, " : C00", (ftnlen)6); in MAIN__()
89 do_fio(&c__1, " : C01", (ftnlen)6); in MAIN__()
95 do_fio(&c__1, " : C02", (ftnlen)6); in MAIN__()
101 do_fio(&c__1, " : C03", (ftnlen)6); in MAIN__()
107 do_fio(&c__1, " : C04", (ftnlen)6); in MAIN__()
151 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
161 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
171 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
181 do_fio(&c__1, ccolor, (ftnlen)6); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/viblib/
H A Dvibl01.c17 static integer c__1 = 1; variable
86 viadd_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
94 visub_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
102 vimlt_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
110 vidiv_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
118 vifnb_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1, (I_fp)ifnb_); in MAIN__()
133 viadd_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
141 visub_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
149 vimlt_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
157 vidiv_(ix, iy, iz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/vrblib/
H A Dvrbl01.c17 static integer c__1 = 1; variable
83 vradd_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
91 vrsub_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
99 vrmlt_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
107 vrdiv_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
115 vrfnb_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1, (R_fp)rfnb_); in MAIN__()
127 vradd_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
135 vrsub_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
143 vrmlt_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
151 vrdiv_(rx, ry, rz, &c__10, &c__1, &c__1, &c__1); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/rfalib/
H A Drfal01.c17 static integer c__1 = 1; variable
71 srmax = rmax_(rx, &c__10, &c__1); in MAIN__()
76 srmin = rmin_(rx, &c__10, &c__1); in MAIN__()
81 srsum = rsum_(rx, &c__10, &c__1); in MAIN__()
86 srave = rave_(rx, &c__10, &c__1); in MAIN__()
91 srvar = rvar_(rx, &c__10, &c__1); in MAIN__()
96 srstd = rstd_(rx, &c__10, &c__1); in MAIN__()
101 srrms = rrms_(rx, &c__10, &c__1); in MAIN__()
106 sramp = ramp_(rx, &c__10, &c__1); in MAIN__()
115 srmax = rmax_(rx, &c__10, &c__1); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/vialib/
H A Dvial01.c17 static integer c__1 = 1; variable
81 viset_(ix, iy, &c__10, &c__1, &c__1); in MAIN__()
89 viinc_(iy, iy, &c__10, &c__1, &c__1, &c__1); in MAIN__()
97 vifct_(iy, iy, &c__10, &c__1, &c__1, &c_n1); in MAIN__()
105 vifna_(iy, iy, &c__10, &c__1, &c__1, (I_fp)ifna_); in MAIN__()
116 vicon_(iy, iy, &c__10, &c__1, &c__1, &c__0); in MAIN__()
128 viset_(ix, iy, &c__10, &c__1, &c__1); in MAIN__()
136 viinc_(iy, iy, &c__10, &c__1, &c__1, &c__1); in MAIN__()
144 vifct_(iy, iy, &c__10, &c__1, &c__1, &c_n1); in MAIN__()
152 vifna_(iy, iy, &c__10, &c__1, &c__1, (I_fp)ifna_); in MAIN__()
[all …]
H A Dvial02.c17 static integer c__1 = 1; variable
66 do_fio(&c__1, " LIST OF IX : ", (ftnlen)14); in MAIN__()
72 viset_(ix, iy, &c__10, &c__1, &c__1); in MAIN__()
77 do_fio(&c__1, " LIST OF IY : ", (ftnlen)14); in MAIN__()
80 iadd_(iy, &c__10, &c__1, &c__1); in MAIN__()
88 imlt_(iy, &c__10, &c__1, &c_n1); in MAIN__()
96 iset_(iy, &c__10, &c__1, &c__0); in MAIN__()
108 viset_(ix, iy, &c__10, &c__1, &c__1); in MAIN__()
116 iadd_(iy, &c__10, &c__1, &c__1); in MAIN__()
124 imlt_(iy, &c__10, &c__1, &c_n1); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/vralib/
H A Dvral01.c17 static integer c__1 = 1; variable
81 vrset_(rx, ry, &c__10, &c__1, &c__1); in MAIN__()
89 vrinc_(ry, ry, &c__10, &c__1, &c__1, &c_b21); in MAIN__()
97 vrfct_(ry, ry, &c__10, &c__1, &c__1, &c_b32); in MAIN__()
105 vrfna_(ry, ry, &c__10, &c__1, &c__1, (R_fp)rfna_); in MAIN__()
116 vrcon_(ry, ry, &c__10, &c__1, &c__1, &c_b56); in MAIN__()
128 vrset_(rx, ry, &c__10, &c__1, &c__1); in MAIN__()
136 vrinc_(ry, ry, &c__10, &c__1, &c__1, &c_b21); in MAIN__()
144 vrfct_(ry, ry, &c__10, &c__1, &c__1, &c_b32); in MAIN__()
152 vrfna_(ry, ry, &c__10, &c__1, &c__1, (R_fp)rfna_); in MAIN__()
[all …]
H A Dvral02.c17 static integer c__1 = 1; variable
66 do_fio(&c__1, " LIST OF RX : ", (ftnlen)14); in MAIN__()
72 vrset_(rx, ry, &c__10, &c__1, &c__1); in MAIN__()
77 do_fio(&c__1, " LIST OF RY : ", (ftnlen)14); in MAIN__()
80 radd_(ry, &c__10, &c__1, &c_b20); in MAIN__()
88 rmlt_(ry, &c__10, &c__1, &c_b30); in MAIN__()
96 rset_(ry, &c__10, &c__1, &c_b40); in MAIN__()
108 vrset_(rx, ry, &c__10, &c__1, &c__1); in MAIN__()
116 radd_(ry, &c__10, &c__1, &c_b20); in MAIN__()
124 rmlt_(ry, &c__10, &c__1, &c_b30); in MAIN__()
[all …]
/dports/science/siconos/siconos-4.4.0/externals/netlib/dctemplates/
H A DTester.c20 static integer c__1 = 1; variable
260 do_fio(&c__1, snamet, 6L); in MAIN__()
272 do_fio(&c__1, snamet, 6L); in MAIN__()
310 i__1 = do_fio(&c__1, snamet, 6L); in MAIN__()
334 do_fio(&c__1, snamet, 6L); in MAIN__()
946 dcopy_(n, &b[1], &c__1, &rk[1], &c__1);
948 &c__1, &c_b127, &rk[1], &c__1, 1L);
1024 do_fio(&c__1, aform, 4L);
1028 do_fio(&c__1, aform, 4L);
1035 do_fio(&c__1, aform, 4L);
[all …]
H A DQMR.c10 static integer c__1 = 1; variable
266 dcopy_(n, &b[1], &c__1, &work[r * work_dim1 + 1], &c__1);
283 c__1);
289 c__1);
312 c__1);
319 c__1);
375 &c__1);
386 c__1);
431 c__1);
440 daxpy_(n, &c_b44, &work[d * work_dim1 + 1], &c__1, &x[1], &c__1);
[all …]
H A DBiCGSTAB.c10 static integer c__1 = 1; variable
207 dcopy_(n, &b[1], &c__1, &work[r * work_dim1 + 1], &c__1);
217 c__1);
247 + 1], &c__1);
255 c__1);
270 , &c__1);
272 c__1);
275 daxpy_(n, &alpha, &work[phat * work_dim1 + 1], &c__1, &x[1], &c__1);
288 + 1], &c__1) / ddot_(n, &work[t * work_dim1 + 1], &c__1, &
293 daxpy_(n, &alpha, &work[phat * work_dim1 + 1], &c__1, &x[1], &c__1);
[all …]
H A DCGS.c10 static integer c__1 = 1; variable
197 dcopy_(n, &b[1], &c__1, &work[r * work_dim1 + 1], &c__1);
218 c__1);
244 c__1);
262 c__1);
264 c__1);
276 c__1);
279 + 1], &c__1);
285 c__1);
287 + 1], &c__1);
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/indxlib/
H A Dindx02.c17 static integer c__1 = 1; variable
67 do_fio(&c__1, cc, (ftnlen)50); in MAIN__()
71 do_fio(&c__1, cx, (ftnlen)50); in MAIN__()
77 do_fio(&c__1, " N = ", (ftnlen)5); in MAIN__()
79 do_fio(&c__1, " : J = ", (ftnlen)7); in MAIN__()
82 do_fio(&c__1, ch, (ftnlen)2); in MAIN__()
103 do_fio(&c__1, " N = ", (ftnlen)5); in MAIN__()
105 do_fio(&c__1, " : J = ", (ftnlen)7); in MAIN__()
108 do_fio(&c__1, ch, (ftnlen)2); in MAIN__()
129 do_fio(&c__1, " N = ", (ftnlen)5); in MAIN__()
[all …]
H A Dindx01.c17 static integer c__1 = 1; variable
70 do_fio(&c__1, " LIST OF IX (N=10) : ", (ftnlen)21); in MAIN__()
75 i__1 = indxif_(ix, &c__10, &c__1, &c__2); in MAIN__()
76 do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); in MAIN__()
80 i__1 = indxil_(ix, &c__10, &c__1, &c__2); in MAIN__()
85 i__1 = nindxi_(ix, &c__10, &c__1, &c__0); in MAIN__()
89 do_fio(&c__1, " LIST OF RX (N=10) : ", (ftnlen)21); in MAIN__()
94 i__1 = indxrf_(rx, &c__10, &c__1, &c_b33); in MAIN__()
99 i__1 = indxrl_(rx, &c__10, &c__1, &c_b33); in MAIN__()
104 i__1 = nindxr_(rx, &c__10, &c__1, &c_b45); in MAIN__()
[all …]
/dports/math/taucs/taucs-2.2_23/external/src/
H A Dreadhb.c18 static integer c__1 = 1; variable
180 do_fio(&c__1, title, 72L);
181 do_fio(&c__1, key, 30L);
187 do_fio(&c__1, type, 3L);
402 do_fio(&c__1, ptrfmt, 16L);
403 do_fio(&c__1, indfmt, 16L);
404 do_fio(&c__1, valfmt, 20L);
410 do_fio(&c__1, rhstyp, 3L);
737 do_fio(&c__1, rhstyp, 3L);
1065 do_fio(&c__1, rhstyp, 3L);
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/datelib/
H A Ddate02.c18 static integer c__1 = 1; variable
73 do_lio(&c__9, &c__1, "IDATE = ", (ftnlen)8); in MAIN__()
81 do_lio(&c__9, &c__1, "JDATE = ", (ftnlen)8); in MAIN__()
89 do_lio(&c__9, &c__1, "ND = ", (ftnlen)5); in MAIN__()
98 do_lio(&c__9, &c__1, "IY = ", (ftnlen)5); in MAIN__()
109 do_lio(&c__9, &c__1, "JY = ", (ftnlen)5); in MAIN__()
120 do_lio(&c__9, &c__1, "ND = ", (ftnlen)5); in MAIN__()
130 do_lio(&c__9, &c__1, "IY = ", (ftnlen)5); in MAIN__()
132 do_lio(&c__9, &c__1, " : IM = ", (ftnlen)8); in MAIN__()
143 do_lio(&c__9, &c__1, "JY = ", (ftnlen)5); in MAIN__()
[all …]
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Ddgsvj0.c4 static integer c__1 = 1; variable
422 dswap_(m, &a[p * a_dim1 + 1], &c__1, &a[q * a_dim1 + 1], &c__1); in dgsvj0_()
425 dswap_(&mvl, &v[p * v_dim1 + 1], &c__1, &v[q * v_dim1 + 1], &c__1); in dgsvj0_()
487 dcopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in dgsvj0_()
501 dcopy_(m, &a[q * a_dim1 + 1], &c__1, & work[1], &c__1); in dgsvj0_()
660 dcopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in dgsvj0_()
809 dcopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in dgsvj0_()
830 dcopy_(m, &a[q * a_dim1 + 1], &c__1, & work[1], &c__1); in dgsvj0_()
994 dcopy_(m, &a[p * a_dim1 + 1], & c__1, &work[1], &c__1); in dgsvj0_()
1175 dswap_(m, &a[p * a_dim1 + 1], &c__1, &a[q * a_dim1 + 1], &c__1); in dgsvj0_()
[all …]
H A Dsgsvj0.c4 static integer c__1 = 1; variable
418 sswap_(m, &a[p * a_dim1 + 1], &c__1, &a[q * a_dim1 + 1], &c__1); in sgsvj0_()
421 sswap_(&mvl, &v[p * v_dim1 + 1], &c__1, &v[q * v_dim1 + 1], &c__1); in sgsvj0_()
483 scopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in sgsvj0_()
497 scopy_(m, &a[q * a_dim1 + 1], &c__1, & work[1], &c__1); in sgsvj0_()
656 scopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in sgsvj0_()
805 scopy_(m, &a[p * a_dim1 + 1], &c__1, & work[1], &c__1); in sgsvj0_()
826 scopy_(m, &a[q * a_dim1 + 1], &c__1, & work[1], &c__1); in sgsvj0_()
990 scopy_(m, &a[p * a_dim1 + 1], & c__1, &work[1], &c__1); in sgsvj0_()
1171 sswap_(m, &a[p * a_dim1 + 1], &c__1, &a[q * a_dim1 + 1], &c__1); in sgsvj0_()
[all …]
H A Ddlatdf.c222 dlaswp_(&c__1, &rhs[1], ldz, &c__1, &i__1, &ipiv[1], &c__1); in dlatdf_()
269 dcopy_(&i__1, &rhs[1], &c__1, xp, &c__1); in dlatdf_()
296 dcopy_(n, xp, &c__1, &rhs[1], &c__1); in dlatdf_()
308 dcopy_(n, &work[*n], &c__1, xm, &c__1); in dlatdf_()
311 dlaswp_(&c__1, xm, ldz, &c__1, &i__1, &ipiv[1], &c_n1); in dlatdf_()
312 temp = 1. / sqrt(ddot_(n, xm, &c__1, xm, &c__1)); in dlatdf_()
314 dcopy_(n, xm, &c__1, xp, &c__1); in dlatdf_()
315 daxpy_(n, &c_b23, &rhs[1], &c__1, xp, &c__1); in dlatdf_()
316 daxpy_(n, &c_b37, xm, &c__1, &rhs[1], &c__1); in dlatdf_()
319 if (dasum_(n, xp, &c__1) > dasum_(n, &rhs[1], &c__1)) in dlatdf_()
[all …]
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/static/other/
H A Dlsametst.c19 static integer c__1 = 1; variable
100 do_fio(&c__1, "A", (ftnlen)1); in MAIN__()
101 do_fio(&c__1, "A", (ftnlen)1); in MAIN__()
107 do_fio(&c__1, "A", (ftnlen)1); in MAIN__()
108 do_fio(&c__1, "a", (ftnlen)1); in MAIN__()
114 do_fio(&c__1, "a", (ftnlen)1); in MAIN__()
115 do_fio(&c__1, "A", (ftnlen)1); in MAIN__()
121 do_fio(&c__1, "a", (ftnlen)1); in MAIN__()
122 do_fio(&c__1, "a", (ftnlen)1); in MAIN__()
128 do_fio(&c__1, "A", (ftnlen)1); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/syslib/
H A Dsysl01.c18 static integer c__1 = 1; variable
74 do_lio(&c__9, &c__1, "*** NBITSPW = ", (ftnlen)15); in MAIN__()
79 do_lio(&c__9, &c__1, "*** NCHRSPW = ", (ftnlen)15); in MAIN__()
84 do_lio(&c__9, &c__1, "*** INTMAX = ", (ftnlen)15); in MAIN__()
89 do_lio(&c__9, &c__1, "*** REALMAX = ", (ftnlen)15); in MAIN__()
94 do_lio(&c__9, &c__1, "*** REALMIN = ", (ftnlen)15); in MAIN__()
99 do_lio(&c__9, &c__1, "*** IIUNIT = ", (ftnlen)15); in MAIN__()
104 do_lio(&c__9, &c__1, "*** IOUNIT = ", (ftnlen)15); in MAIN__()
109 do_lio(&c__9, &c__1, "*** MSGUNIT = ", (ftnlen)15); in MAIN__()
114 do_lio(&c__9, &c__1, "*** MAXMSG = ", (ftnlen)15); in MAIN__()
[all …]
/dports/math/chaco/Chaco-2.2/code/symmlq/
H A Dsymmlq.c495 daxpy_(&c__1, &c_b4, &x[1], &c__1, &y[1], &c__1);
522 dcopy_(n, &b[1], &c__1, &y[1], &c__1);
523 dcopy_(n, &b[1], &c__1, &r1[1], &c__1);
536 s = ddot_(n, &y[1], &c__1, &y[1], &c__1);
537 t = ddot_(n, &r1[1], &c__1, &r2[1], &c__1);
566 s = ddot_(n, &y[1], &c__1, &y[1], &c__1);
567 t = ddot_(n, &v[1], &c__1, &r2[1], &c__1);
588 dcopy_(n, &y[1], &c__1, &r2[1], &c__1);
631 dcopy_(n, &v[1], &c__1, &w[1], &c__1);
761 dcopy_(n, &y[1], &c__1, &r2[1], &c__1);
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/gnmlib/
H A Dgnml01.c18 static integer c__1 = 1; variable
61 do_fio(&c__1, " *** RR = ", (ftnlen)10); in MAIN__()
67 do_fio(&c__1, (char *)&br, (ftnlen)sizeof(real)); in MAIN__()
68 do_fio(&c__1, " : IP = ", (ftnlen)8); in MAIN__()
75 do_fio(&c__1, " : IP = ", (ftnlen)8); in MAIN__()
82 do_fio(&c__1, " : IP = ", (ftnlen)8); in MAIN__()
89 do_fio(&c__1, " : IP = ", (ftnlen)8); in MAIN__()
93 do_fio(&c__1, " *** RGNLT(RR) = ", (ftnlen)17); in MAIN__()
98 do_fio(&c__1, " *** RGNLE(RR) = ", (ftnlen)17); in MAIN__()
103 do_fio(&c__1, " *** RGNGT(RR) = ", (ftnlen)17); in MAIN__()
[all …]

12345678910>>...130