Home
last modified time | relevance | path

Searched refs:do_lio (Results 1 – 25 of 327) sorted by relevance

12345678910>>...14

/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/datelib/
H A Ddate02.c73 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__()
134 do_lio(&c__9, &c__1, " : ID = ", (ftnlen)8); in MAIN__()
143 do_lio(&c__9, &c__1, "JY = ", (ftnlen)5); in MAIN__()
[all …]
H A Ddate01.c56 do_lio(&c__9, &c__1, "IDATE = ", (ftnlen)8); in MAIN__()
64 do_lio(&c__9, &c__1, "IY = ", (ftnlen)5); in MAIN__()
65 do_lio(&c__3, &c__1, (char *)&iy, (ftnlen)sizeof(integer)); in MAIN__()
66 do_lio(&c__9, &c__1, " : ITD = ", (ftnlen)9); in MAIN__()
74 do_lio(&c__9, &c__1, "JDATE = ", (ftnlen)8); in MAIN__()
82 do_lio(&c__9, &c__1, "IY = ", (ftnlen)5); in MAIN__()
83 do_lio(&c__3, &c__1, (char *)&iy, (ftnlen)sizeof(integer)); in MAIN__()
84 do_lio(&c__9, &c__1, " : IM = ", (ftnlen)8); in MAIN__()
85 do_lio(&c__3, &c__1, (char *)&im, (ftnlen)sizeof(integer)); in MAIN__()
86 do_lio(&c__9, &c__1, " : ID = ", (ftnlen)8); in MAIN__()
[all …]
H A Ddate03.c64 do_lio(&c__9, &c__1, "DATE = ", (ftnlen)7); in MAIN__()
66 do_lio(&c__9, &c__1, " ;", (ftnlen)2); in MAIN__()
69 do_lio(&c__9, &c__1, "WEEK = ", (ftnlen)7); in MAIN__()
73 do_lio(&c__9, &c__1, ch__1, (ftnlen)9); in MAIN__()
79 do_lio(&c__9, &c__1, "YEAR = ", (ftnlen)7); in MAIN__()
83 do_lio(&c__9, &c__1, " ;", (ftnlen)2); in MAIN__()
86 do_lio(&c__9, &c__1, "WEEK = ", (ftnlen)7); in MAIN__()
90 do_lio(&c__9, &c__1, ch__1, (ftnlen)9); in MAIN__()
96 do_lio(&c__9, &c__1, "YEAR = ", (ftnlen)7); in MAIN__()
102 do_lio(&c__9, &c__1, " ;", (ftnlen)2); in MAIN__()
[all …]
H A Ddate04.c66 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
67 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
78 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
79 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
86 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
87 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
98 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
99 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
106 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
107 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/syslib/
H A Dsysl01.c74 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__()
119 do_lio(&c__9, &c__1, "*** MSGLEV = ", (ftnlen)15); in MAIN__()
[all …]
H A Dsysl02.c34 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
62 do_lio(&c__9, &c__1, "--- LMISS WAS CHANGED TO ", (ftnlen)28); in MAIN__()
63 do_lio(&c__8, &c__1, (char *)&lmiss, (ftnlen)sizeof(logical)); in MAIN__()
68 do_lio(&c__9, &c__1, "--- IMISS WAS CHANGED TO ", (ftnlen)28); in MAIN__()
69 do_lio(&c__3, &c__1, (char *)&imiss, (ftnlen)sizeof(integer)); in MAIN__()
74 do_lio(&c__9, &c__1, "--- RMISS WAS CHANGED TO ", (ftnlen)28); in MAIN__()
75 do_lio(&c__4, &c__1, (char *)&rmiss, (ftnlen)sizeof(real)); in MAIN__()
80 do_lio(&c__9, &c__1, "--- NLNSIZE WAS CHANGED TO ", (ftnlen)28); in MAIN__()
81 do_lio(&c__3, &c__1, (char *)&nlines, (ftnlen)sizeof(integer)); in MAIN__()
86 do_lio(&c__9, &c__1, "--- MAXMSG WAS CHANGED TO ", (ftnlen)28); in MAIN__()
[all …]
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/static/other/
H A Ddlamchtst.c74 do_lio(&c__5, &c__1, (char *)&eps, (ftnlen)sizeof(doublereal)); in MAIN__()
78 do_lio(&c__5, &c__1, (char *)&sfmin, (ftnlen)sizeof(doublereal)); in MAIN__()
82 do_lio(&c__5, &c__1, (char *)&base, (ftnlen)sizeof(doublereal)); in MAIN__()
86 do_lio(&c__5, &c__1, (char *)&prec, (ftnlen)sizeof(doublereal)); in MAIN__()
90 do_lio(&c__5, &c__1, (char *)&t, (ftnlen)sizeof(doublereal)); in MAIN__()
94 do_lio(&c__5, &c__1, (char *)&rnd, (ftnlen)sizeof(doublereal)); in MAIN__()
98 do_lio(&c__5, &c__1, (char *)&emin, (ftnlen)sizeof(doublereal)); in MAIN__()
102 do_lio(&c__5, &c__1, (char *)&rmin, (ftnlen)sizeof(doublereal)); in MAIN__()
106 do_lio(&c__5, &c__1, (char *)&emax, (ftnlen)sizeof(doublereal)); in MAIN__()
110 do_lio(&c__5, &c__1, (char *)&rmax, (ftnlen)sizeof(doublereal)); in MAIN__()
[all …]
H A Dslamchtst.c74 do_lio(&c__4, &c__1, (char *)&eps, (ftnlen)sizeof(real)); in MAIN__()
78 do_lio(&c__4, &c__1, (char *)&sfmin, (ftnlen)sizeof(real)); in MAIN__()
82 do_lio(&c__4, &c__1, (char *)&base, (ftnlen)sizeof(real)); in MAIN__()
86 do_lio(&c__4, &c__1, (char *)&prec, (ftnlen)sizeof(real)); in MAIN__()
90 do_lio(&c__4, &c__1, (char *)&t, (ftnlen)sizeof(real)); in MAIN__()
94 do_lio(&c__4, &c__1, (char *)&rnd, (ftnlen)sizeof(real)); in MAIN__()
98 do_lio(&c__4, &c__1, (char *)&emin, (ftnlen)sizeof(real)); in MAIN__()
102 do_lio(&c__4, &c__1, (char *)&rmin, (ftnlen)sizeof(real)); in MAIN__()
106 do_lio(&c__4, &c__1, (char *)&emax, (ftnlen)sizeof(real)); in MAIN__()
110 do_lio(&c__4, &c__1, (char *)&rmax, (ftnlen)sizeof(real)); in MAIN__()
[all …]
H A Dtstiee.c35 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
76 do_lio(&c__9, &c__1, "We are about to check whether infinity arithmetic", in MAIN__()
80 do_lio(&c__9, &c__1, "can be trusted. If this test hangs, set", (ftnlen) in MAIN__()
95 do_lio(&c__9, &c__1, "Infinity arithmetic did not perform per the ie" in MAIN__()
102 do_lio(&c__9, &c__1, "Infinity arithmetic performed as per the ieee " in MAIN__()
112 do_lio(&c__9, &c__1, " ieee spec.", (ftnlen)11); in MAIN__()
119 do_lio(&c__9, &c__1, "We are about to check whether NaN arithmetic", ( in MAIN__()
144 do_lio(&c__9, &c__1, "NaN arithmetic performed as per the ieee", ( in MAIN__()
146 do_lio(&c__9, &c__1, " spec.", (ftnlen)6); in MAIN__()
153 do_lio(&c__9, &c__1, "guarantee that NaN arithmetic meets the", ( in MAIN__()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/timelib/
H A Dtime02.c67 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
68 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
79 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
80 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
87 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
88 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
99 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
100 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
107 do_lio(&c__9, &c__1, "CFORM = ", (ftnlen)8); in MAIN__()
108 do_lio(&c__9, &c__1, cform, (ftnlen)24); in MAIN__()
[all …]
H A Dtime01.c55 do_lio(&c__9, &c__1, "ITIME = ", (ftnlen)8); in MAIN__()
63 do_lio(&c__9, &c__1, "ITT = ", (ftnlen)6); in MAIN__()
64 do_lio(&c__3, &c__1, (char *)&itt, (ftnlen)sizeof(integer)); in MAIN__()
71 do_lio(&c__9, &c__1, "JTIME = ", (ftnlen)8); in MAIN__()
79 do_lio(&c__9, &c__1, "IH = ", (ftnlen)5); in MAIN__()
80 do_lio(&c__3, &c__1, (char *)&ih, (ftnlen)sizeof(integer)); in MAIN__()
81 do_lio(&c__9, &c__1, " : IM = ", (ftnlen)8); in MAIN__()
82 do_lio(&c__3, &c__1, (char *)&im, (ftnlen)sizeof(integer)); in MAIN__()
83 do_lio(&c__9, &c__1, " : IS = ", (ftnlen)8); in MAIN__()
84 do_lio(&c__3, &c__1, (char *)&is, (ftnlen)sizeof(integer)); in MAIN__()
[all …]
/dports/science/siconos/siconos-4.4.0/externals/netlib/dctemplates/
H A DTester.c588 integer s_wsle(), e_wsle(), do_lio();
671 do_lio(&c__9, &c__1, pform, 5L);
1519 do_lio(&c__9, &c__1, "======", 6L); in footer_()
1522 do_lio(&c__9, &c__1, "LEGEND:", 7L); in footer_()
1525 do_lio(&c__9, &c__1, "======", 6L); in footer_()
1635 do_lio(&c__9, &c__1, " ====", 7L); in footer_()
1638 do_lio(&c__9, &c__1, " INFO", 7L); in footer_()
1641 do_lio(&c__9, &c__1, " ====", 7L); in footer_()
1705 do_lio(&c__9, &c__1, " ====", 7L); in footer_()
1708 do_lio(&c__9, &c__1, " FLAG", 7L); in footer_()
[all …]
H A DPSolve.c54 integer s_wsle(), do_lio(), e_wsle();
92 do_lio(&c__9, &c__1, forms_1.curpform, 5L);
93 do_lio(&c__9, &c__1, " QUITTING", 9L);
108 integer s_wsle(), do_lio(), e_wsle();
139 do_lio(&c__9, &c__1, forms_1.curpform, 5L);
140 do_lio(&c__9, &c__1, " QUITTING", 9L);
330 integer s_wsle(), do_lio(), e_wsle();
367 do_lio(&c__9, &c__1, forms_1.curpform, 5L);
368 do_lio(&c__9, &c__1, " QUITTING", 9L);
385 integer s_wsle(), do_lio(), e_wsle();
[all …]
H A Ddnsychk.c208 do_lio(&c__3, &c__1, (char *)&nsys, (ftnlen)sizeof(integer));
249 do_lio(&c__9, &c__1, aform, 4L);
250 do_lio(&c__3, &c__1, (char *)&nx, (ftnlen)sizeof(integer));
251 do_lio(&c__3, &c__1, (char *)&ny, (ftnlen)sizeof(integer));
253 do_lio(&c__9, &c__1, rhs, 4L);
254 do_lio(&c__9, &c__1, initialguess, 4L);
321 do_lio(&c__9, &c__1, aform, 4L);
322 do_lio(&c__9, &c__1, "IS AN UNKNOWM MATRIX TYPE", 25L);
447 do_lio(&c__9, &c__1, ")", 1L);
454 do_lio(&c__9, &c__1, " REQUIRES MAXLEN=", 17L);
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/chnlib/
H A Dchnl02.c28 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
54 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
55 do_lio(&c__9, &c__1, ctext, lenc_(ctext, (ftnlen)80)); in MAIN__()
58 do_lio(&c__9, &c__1, "CA = ", (ftnlen)5); in MAIN__()
59 do_lio(&c__9, &c__1, ca, (ftnlen)8); in MAIN__()
62 do_lio(&c__9, &c__1, "II = ", (ftnlen)5); in MAIN__()
63 do_lio(&c__3, &c__1, (char *)&ii, (ftnlen)sizeof(integer)); in MAIN__()
66 do_lio(&c__9, &c__1, "CFMT = ", (ftnlen)7); in MAIN__()
67 do_lio(&c__9, &c__1, cfmt, (ftnlen)16); in MAIN__()
75 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
[all …]
H A Dchnl03.c28 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
54 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
55 do_lio(&c__9, &c__1, ctext, lenc_(ctext, (ftnlen)80)); in MAIN__()
58 do_lio(&c__9, &c__1, "CA = ", (ftnlen)5); in MAIN__()
59 do_lio(&c__9, &c__1, ca, (ftnlen)8); in MAIN__()
62 do_lio(&c__9, &c__1, "RR = ", (ftnlen)5); in MAIN__()
63 do_lio(&c__4, &c__1, (char *)&rr, (ftnlen)sizeof(real)); in MAIN__()
66 do_lio(&c__9, &c__1, "CFMT = ", (ftnlen)7); in MAIN__()
67 do_lio(&c__9, &c__1, cfmt, (ftnlen)16); in MAIN__()
75 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
[all …]
H A Dchnl01.c27 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
49 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
50 do_lio(&c__9, &c__1, ctext, lenc_(ctext, (ftnlen)80)); in MAIN__()
53 do_lio(&c__9, &c__1, "CA = ", (ftnlen)5); in MAIN__()
54 do_lio(&c__9, &c__1, ca, (ftnlen)8); in MAIN__()
57 do_lio(&c__9, &c__1, "CB = ", (ftnlen)5); in MAIN__()
58 do_lio(&c__9, &c__1, cb, (ftnlen)8); in MAIN__()
63 do_lio(&c__9, &c__1, "AFTER CALLING CHNGC(CTEXT,CA,CB)", (ftnlen)32); in MAIN__()
66 do_lio(&c__9, &c__1, "CTEXT = ", (ftnlen)8); in MAIN__()
67 do_lio(&c__9, &c__1, ctext, lenc_(ctext, (ftnlen)80)); in MAIN__()
/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/fmtlib/
H A Dfmtl01.c31 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
50 do_lio(&c__9, &c__1, "VAL = ", (ftnlen)6); in MAIN__()
51 do_lio(&c__4, &c__1, (char *)&val[i__ - 1], (ftnlen)sizeof(real)); in MAIN__()
55 do_lio(&c__9, &c__1, "OPTION=A : VAL = ", (ftnlen)17); in MAIN__()
56 do_lio(&c__9, &c__1, cval, (ftnlen)8); in MAIN__()
60 do_lio(&c__9, &c__1, "OPTION=B : VAL = ", (ftnlen)17); in MAIN__()
61 do_lio(&c__9, &c__1, cval, (ftnlen)8); in MAIN__()
65 do_lio(&c__9, &c__1, "OPTION=C : VAL = ", (ftnlen)17); in MAIN__()
66 do_lio(&c__9, &c__1, cval, (ftnlen)8); in MAIN__()
70 do_lio(&c__9, &c__1, "OPTION=D : VAL = ", (ftnlen)17); in MAIN__()
[all …]
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/
H A Dmgdrvd.c169 do_lio(&c__3, &c__1, (char *)&mxlv, (ftnlen)sizeof(integer)); in mgdriv_()
187 do_lio(&c__9, &c__1, "% MGDRIV: real work space must be: ", ( in mgdriv_()
189 do_lio(&c__3, &c__1, (char *)&iretot, (ftnlen)sizeof(integer)); in mgdriv_()
192 do_lio(&c__9, &c__1, "% MGDRIV: integer work space must be: ", ( in mgdriv_()
194 do_lio(&c__3, &c__1, (char *)&iintot, (ftnlen)sizeof(integer)); in mgdriv_()
543 do_lio(&c__9, &c__1, "%%%%%%%%%%", (ftnlen)10); in mgdriv2_()
571 do_lio(&c__5, &c__1, (char *)&rho_max__, (ftnlen)sizeof( in mgdriv2_()
601 do_lio(&c__5, &c__1, (char *)&rho_min__, (ftnlen)sizeof( in mgdriv2_()
685 do_lio(&c__9, &c__1, " mg = [ ", (ftnlen)8); in mgdriv2_()
694 do_lio(&c__9, &c__1, "% MGDRIV2: linear mode...", (ftnlen)25); in mgdriv2_()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/math1/gt2dlib/
H A Dgt2d01.c32 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
76 do_lio(&c__9, &c__1, "TERRAIN FOLLOWING COORDINATE", (ftnlen)28); in MAIN__()
81 do_lio(&c__9, &c__1, "ORIGINAL UX, UY:", (ftnlen)16); in MAIN__()
82 do_lio(&c__4, &c__1, (char *)&uxp, (ftnlen)sizeof(real)); in MAIN__()
83 do_lio(&c__4, &c__1, (char *)&uyp, (ftnlen)sizeof(real)); in MAIN__()
87 do_lio(&c__9, &c__1, "TRANSFORMED CX, CY:", (ftnlen)19); in MAIN__()
88 do_lio(&c__4, &c__1, (char *)&cxp, (ftnlen)sizeof(real)); in MAIN__()
89 do_lio(&c__4, &c__1, (char *)&cyp, (ftnlen)sizeof(real)); in MAIN__()
93 do_lio(&c__9, &c__1, "INVERTED UX, UY:", (ftnlen)16); in MAIN__()
94 do_lio(&c__4, &c__1, (char *)&uxp, (ftnlen)sizeof(real)); in MAIN__()
[all …]
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/
H A Dwrline.c647 do_lio(&c__9, &c__1, "SPICE(INQUIREFAILED)", (ftnlen)20); in wrline_0_()
650 do_lio(&c__9, &c__1, "WRLINE: File = ", (ftnlen)15); in wrline_0_()
651 do_lio(&c__9, &c__1, device, device_len); in wrline_0_()
652 do_lio(&c__9, &c__1, "IOSTAT = ", (ftnlen)9); in wrline_0_()
668 do_lio(&c__9, &c__1, " ", (ftnlen)1); in wrline_0_()
701 do_lio(&c__9, &c__1, " ", (ftnlen)1); in wrline_0_()
714 do_lio(&c__9, &c__1, error, (ftnlen)240); in wrline_0_()
757 do_lio(&c__9, &c__1, error, (ftnlen)240); in wrline_0_()
961 do_lio(&c__9, &c__1, "CLLINE: File = ", (ftnlen)16); in wrline_0_()
962 do_lio(&c__9, &c__1, device, device_len); in wrline_0_()
[all …]
H A Dwrkvar.c251 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
255 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
260 iostat = do_lio(&c__9, &c__1, ", ", (ftnlen)2); in wrkvar_()
273 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
277 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
297 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
301 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
306 iostat = do_lio(&c__9, &c__1, " )", (ftnlen)3); in wrkvar_()
320 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
324 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
[all …]
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/
H A Dwrline.c647 do_lio(&c__9, &c__1, "SPICE(INQUIREFAILED)", (ftnlen)20); in wrline_0_()
650 do_lio(&c__9, &c__1, "WRLINE: File = ", (ftnlen)15); in wrline_0_()
651 do_lio(&c__9, &c__1, device, device_len); in wrline_0_()
652 do_lio(&c__9, &c__1, "IOSTAT = ", (ftnlen)9); in wrline_0_()
668 do_lio(&c__9, &c__1, " ", (ftnlen)1); in wrline_0_()
701 do_lio(&c__9, &c__1, " ", (ftnlen)1); in wrline_0_()
714 do_lio(&c__9, &c__1, error, (ftnlen)240); in wrline_0_()
757 do_lio(&c__9, &c__1, error, (ftnlen)240); in wrline_0_()
961 do_lio(&c__9, &c__1, "CLLINE: File = ", (ftnlen)16); in wrline_0_()
962 do_lio(&c__9, &c__1, device, device_len); in wrline_0_()
[all …]
H A Dwrkvar.c251 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
255 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
260 iostat = do_lio(&c__9, &c__1, ", ", (ftnlen)2); in wrkvar_()
273 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
277 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
297 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
301 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
306 iostat = do_lio(&c__9, &c__1, " )", (ftnlen)3); in wrkvar_()
320 iostat = do_lio(&c__9, &c__1, line, margin); in wrkvar_()
324 iostat = do_lio(&c__5, &c__1, (char *)&dvalue, (ftnlen)sizeof( in wrkvar_()
[all …]
/dports/science/cdcl/dcl-5.4.8-C/demo/misc1/hexlib/
H A Dhexl01.c28 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), in MAIN__()
49 do_lio(&c__9, &c__1, "CHEX = ", (ftnlen)7); in MAIN__()
50 do_lio(&c__9, &c__1, chex, lh); in MAIN__()
53 do_lio(&c__9, &c__1, "IHEX = ", (ftnlen)7); in MAIN__()
54 do_lio(&c__3, &c__1, (char *)&ihex, (ftnlen)sizeof(integer)); in MAIN__()
58 do_lio(&c__9, &c__1, "CHEX = ", (ftnlen)7); in MAIN__()
59 do_lio(&c__9, &c__1, chex, lh); in MAIN__()

12345678910>>...14