/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/chklib/ |
H A D | chkl01.c | 17 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 D | cmap02.c | 18 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 D | cmap01.c | 18 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 D | vibl01.c | 17 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 D | vrbl01.c | 17 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 D | rfal01.c | 17 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 D | vial01.c | 17 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 D | vial02.c | 17 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 D | vral01.c | 17 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 D | vral02.c | 17 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 D | Tester.c | 20 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 D | QMR.c | 10 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 D | BiCGSTAB.c | 10 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 D | CGS.c | 10 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 D | indx02.c | 17 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 D | indx01.c | 17 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 D | readhb.c | 18 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 D | date02.c | 18 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 D | dgsvj0.c | 4 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 D | sgsvj0.c | 4 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 D | dlatdf.c | 222 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 D | lsametst.c | 19 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 D | sysl01.c | 18 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 D | symmlq.c | 495 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 D | gnml01.c | 18 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 …]
|