Home
last modified time | relevance | path

Searched refs:LBUF (Results 1 – 25 of 134) sorted by relevance

123456

/dports/graphics/pgplot/pgplot/drivers/
H A Dvadriv.f168 CBUF(LBUF:LBUF)='('
173 LBUF=LBUF+1
174 CBUF(LBUF:LBUF)=CHAR(IS2)
180 LBUF=LBUF+2
183 LBUF=LBUF+1
184 CBUF(LBUF:LBUF)=CHAR(IS2)
248 LBUF=LBUF+1
249 CBUF(LBUF:LBUF)=CHAR(IS2)
290 LBUF=LBUF+1
291 CBUF(LBUF:LBUF)=CHAR(IS2)
[all …]
H A Dcadriv.f165 LBUF=2
168 LBUF=LBUF+1
169 CBUF(LBUF:LBUF)=CHAR(IS2)
233 LBUF=LBUF+1
234 CBUF(LBUF:LBUF)=CHAR(IS2)
266 LBUF=1
273 LBUF=LBUF+1
274 CBUF(LBUF:LBUF)=CHAR(IS2)
355 CBUF(LBUF+1:LBUF+1)=CTMP(5:5)
363 CBUF(LBUF+1:LBUF+IC)=CTMP(6-IC:5)
[all …]
H A Dlsdriv.f167 LBUF=2
170 LBUF=LBUF+1
171 CBUF(LBUF:LBUF)=CHAR(IS2)
235 LBUF=LBUF+1
236 CBUF(LBUF:LBUF)=CHAR(IS2)
270 LBUF=1
277 LBUF=LBUF+1
278 CBUF(LBUF:LBUF)=CHAR(IS2)
363 CBUF(LBUF+1:LBUF+1)=CTMP(5:5)
371 CBUF(LBUF+1:LBUF+IC)=CTMP(6-IC:5)
[all …]
H A Dvbdriv.f155 LBUF=2
156 CALL GRCA04(J0,CBUF,LBUF)
157 CALL GRCA04(I0,CBUF,LBUF)
158 LBUF=LBUF+1
159 CBUF(LBUF:LBUF)=CHAR(IS2)
160 WRITE(LUN,11) CBUF(:LBUF)
211 LBUF=5
223 LBUF=LBUF+1
224 CBUF(LBUF:LBUF)=CHAR(IS2)
225 WRITE(LUN,11) CBUF(:LBUF)
[all …]
H A Dttdriv.f334 LBUF = 0
621 CALL GRWTER(ICHAN, CBUF, LBUF)
773 : CBUF, LBUF)
850 : I1, J1, CBUF, LBUF) argument
1006 IF ( LBUF.EQ.0 ) THEN
1009 LBUF = 6
1012 CBUF(LBUF+1:LBUF+LADD) = CADD(1:LADD)
1013 LBUF = LBUF + LADD
1031 INTEGER I1, I2, LBUF local
1048 LBUF = 5
[all …]
H A Dnedriv.f484 INTEGER LBUF, LIN local
485 SAVE CBUF, LBUF
487 DATA LBUF/0/
492 CBUF(LBUF+1:LBUF+1)=CHAR(0)
494 LBUF=0
497 CBUF(LBUF+1:LBUF+1)=' '
498 LBUF=LBUF+1
500 CBUF(LBUF+1:LBUF+LIN)=CIN
501 LBUF=LBUF+LIN
505 CBUF(LBUF+1:LBUF+1)=CHAR(0)
[all …]
/dports/math/math77/MATH77/
H A Dmess.f863 370 LBUF = min(LBUF, 40)
878 LBUF = LBUF + KDI
932 LBUF = LBUF + K - 1
992 440 LBUF = LBUF + 1
993 BUF(LBUF:LBUF) = C
1136 LBUF = min(LBUF + TABSPA - mod(LBUF, TABSPA), LENLIN+1)
1148 LBUF = LBUF + KDJ
1156 LBUF = LBUF + KDI
1587 LBUF = LBUF + 4
1928 LBUF = LBUF + KOLWID
[all …]
H A Ddmess.f137 2 KLINE, KSCRN, KSHIFT, KSPEC, KT, MAXERR, LASTI, LBUF, LENLIN, local
148 4 LBUF, LENLIN, LENOUT, LENTRY, LENTXT, LOCBEG, LSTRT, LTEXT, local
172 20 J = LBUF + 1
176 LBUF = LBUF + IWG
184 write (BUF(J:LBUF), FMTG) FOUT
300 LBUF = LBUF + IWF
308 write (BUF(J:LBUF),FMTF) FOUT
364 write(BUF(LSTRT:LBUF),FMTF)(FDAT(K),K=MPT,MPT+INC*(KLINE-1),INC)
388 write (BUF(LSTRT:LBUF), FMTF) (FDAT(K), K = MPT, LASTI, NDIM)
402 write (BUF(LSTRT:LBUF), FMTF) (FDAT(K), K = MPT, MPT+KLINE-1)
[all …]
H A Dsmess.f137 2 KLINE, KSCRN, KSHIFT, KSPEC, KT, MAXERR, LASTI, LBUF, LENLIN, local
148 4 LBUF, LENLIN, LENOUT, LENTRY, LENTXT, LOCBEG, LSTRT, LTEXT, local
172 20 J = LBUF + 1
176 LBUF = LBUF + IWG
184 write (BUF(J:LBUF), FMTG) FOUT
300 LBUF = LBUF + IWF
308 write (BUF(J:LBUF),FMTF) FOUT
364 write(BUF(LSTRT:LBUF),FMTF)(FDAT(K),K=MPT,MPT+INC*(KLINE-1),INC)
388 write (BUF(LSTRT:LBUF), FMTF) (FDAT(K), K = MPT, LASTI, NDIM)
402 write (BUF(LSTRT:LBUF), FMTF) (FDAT(K), K = MPT, MPT+KLINE-1)
[all …]
/dports/graphics/pgplot/pgplot/sys_vms/
H A Dgrtermio.f29 SUBROUTINE GRWTER(ICHAN, CBUF, LBUF) argument
31 INTEGER ICHAN, LBUF local
44 : %ref(CBUF),%val(LBUF),,,,)
45 LBUF=0
49 SUBROUTINE GRPTER(ICHAN, PROMPT, LPROM, CBUF, LBUF) argument
51 INTEGER ICHAN, LPROM, LBUF local
76 : %REF(CBUF(2:)),%VAL(LBUF-1),%VAL(ITIME),,
80 LBUF=IOSB(2)
84 SUBROUTINE GRRTER(ICHAN, CBUF, LBUF) argument
86 INTEGER ICHAN, LBUF local
[all …]
/dports/science/libccp4/libccp4-6.5.1/fortran/
H A Dtestlib.f23 INTEGER LBUF,LSTR
24 PARAMETER (LBUF=500,LSTR=12)
35 REAL BUFFER(LBUF)
199 DO 20 I = 1,LBUF
200 DO 10 J = 1,LBUF
203 CALL QWRITE(LUN,BUFFER,LBUF)
212 DO 30 I = 1,LBUF
224 ISTAT = LDUM*LBUF*LBUF
255 DO 70 J = 1,LBUF
271 CALL QSEEK(LUN,I,1,LBUF)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Dher2out.F80 LBUF = LBUF_alloc
248 REAL*8 BUF(LBUF)
260 LENINT4 = 2*LBUF + NIBUF*LBUF + 1 ! BUF(LBUF),IBUF4(LBUF*NIBUF),ICOUNT4
344 N2WRIT = LBUF
355 FBYTES = LBUF*2 + NIBUF*LBUF + 1
400 REAL*8 BUF(LBUF)
616 LBUF = LBUF_alloc
793 DIMENSION BUF(LBUF)
938 REAL*8 BUF(LBUF)
994 LBUF = LBUF_alloc
[all …]
H A Daba2r12.F137 DIMENSION BUF(LBUF,5)
241 LBUF = LBUF_alloc
338 NGINT = LBUF*NBUFCL + ICOUNT - NSTART
392 DIMENSION SO(NSOINT,*), BUF(LBUF,NDIST), CUF(LBUF,NDIST),
396 INTEGER*4 IBUF4(LBUF*NIBUF,NDIST)
406 IF (LBUF .NE. LDSBUF) THEN
623 NWRIT = NWRIT + LBUF*NBUFCL
658 DIMENSION BUF(LBUF), CUF(LBUF)
659 INTEGER*4 IBUF4(LBUF*NIBUF), ICOUNT4
747 N2WRIT = LBUF*NBUFX(0) + ICOUNT
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/
H A Dfastio_g07.F189 ENTRY DAFILE(LU,IFUN,IBUF,LBUF,IDISK)
207 ENTRY DAFILF(LU,IFUN,IBUF,LBUF,IDISK,EOF)
225 ENTRY SQFILE(LU,IFUN,IBUF,LBUF)
229 & LU,IFUN,LBUF
240 ENTRY SQFILF(LU,IFUN,IBUF,LBUF,EOF)
244 & LU,IFUN,LBUF
261 IFWC(LU) = LBUF
305 DO 1000 ISTART=1,LBUF,LRECL(LU)/LDISK
310 IFWC(LU)=LBUF
314 DO 1100 ISTART=1,LBUF,LRECL(LU)/LDISK
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/
H A D1dAstrip.c6 #define LBUF 262144 macro
15 buf = (char *)malloc(sizeof(char)*LBUF) ; in main()
43 nbuf = fread( buf , 1 , LBUF , stdin ) ; in main()
61 (void)fwrite( buf , 1 , LBUF , stdout ) ; in main()
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/
H A Dsirtra.F383 LBUF = IDABUF + LDABUF + 2
410 KAP = KAP + LBUF
443 KAP = KAP + LBUF
565 KAP = -LBUF
568 KAP = KAP + LBUF
742 & LBUF,OLDDX)
749 KAP = KAP + LBUF
781 KAP = KAP + LBUF
850 KAP = -LBUF
853 KAP = KAP + LBUF
[all …]
H A Dintsort.F196 READ (LUINTA) NSYM, NBAS, LBUF, NIBUF, NBITS, LENINT4
201 NBUF2 = 2*LBUF + NIBUF*LBUF + 1
460 IIND1 = IRAT*(KBUF1-1 + LBUF)
461 NINT = IINT(IIND1 + NIBUF*LBUF + 1)
792 LBUF = LPQ*NRS
793 LBUF2 = IRAT*LBUF
795 NPQ = MIN(NPQM,(LWORK/LBUF)*LPQ)
799 LX = NBUF*LBUF
811 LX = NBUFX*LBUF
855 IST=IST+LBUF
[all …]
/dports/graphics/mapserver/mapserver-7.6.4/
H A Dsym2img.c41 #define LBUF 5 /* space to reserve around line symbols */ macro
124 p.line[0].point[0].y = i + (CELLSIZE-LBUF) - 1; in main()
125 p.line[0].point[1].x = j + MS_NINT((CELLSIZE-LBUF)/3.0) - 1; in main()
127 p.line[0].point[2].x = j + MS_NINT(2*(CELLSIZE-LBUF)/3.0) - 1; in main()
128 p.line[0].point[2].y = i + (CELLSIZE-LBUF) - 1; in main()
129 p.line[0].point[3].x = j + (CELLSIZE-LBUF) - 1; in main()
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/densfit/
H A Ddf_dirac.F857 LBUF = LBFINP
859 KTOP = KIBUF + 4*LBUF
861 CALL READ_FIT2INT_2(WMAT,WORK(KIBUF),LBUF,
866 SUBROUTINE READ_FIT2INT_2(WMAT,IBUF,LBUF,WRK,LWORK)
880 & IBUF(4,LBUF), MBAS(8), WRK(LWORK)
902 IF (KBUF .NE. LBUF) CALL QUIT('READ_FIT2INT_2: KBUF .ne. LBUF')
907 KIINT = KINT + LBUF
914 CALL AOLAB4(WRK(KIINT),LBUF,NIBUF,NBITS,IBUF,NINT)
919 CALL DF_INDEX_SHIFT(IBUF,LBUF,IBUF,LBUF,NINT,ICLASSES,4,2)
936 SUBROUTINE DF_INDEX_SHIFT(IBIN,LBIN,IBUF,LBUF,NINTS,ICLASSES,
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dccsd_sortao.F114 LBUF = 600
132 KIBUF = KRBUF + LBUF
133 KAOAB = KIBUF + (NIBUF*LBUF + 1)/2 + 1 ! IBUF always integer*4
207 * IOFF1,ID1,ID2,NIBUF,LBUF,NBITS,IBIT1)
267 * LENGTH,IOFF,ID1,ID2,NIBUF,LBUF,NBITS,IBIT1)
275 REAL*8 XINT(LENGTH,*),RBUF(LBUF)
276 INTEGER*4 IBUF4(NIBUF*LBUF), LENGTH4
/dports/devel/tex-kpathsea/texlive-20150521-source/texk/kpathsea/win32/
H A Dmktextfm.c16 #define LBUF 512 macro
62 char rbuff[LBUF]; in main()
65 char cmd[LBUF]; in main()
330 while ((i = fread (rbuff, 1, LBUF, fr))) in main()
366 while ((i = fread (rbuff, 1, LBUF, fr))) in main()
/dports/print/tex-xdvik/xdvik-22.87/texk/kpathsea/win32/
H A Dmktextfm.c16 #define LBUF 512 macro
62 char rbuff[LBUF]; in main()
65 char cmd[LBUF]; in main()
330 while ((i = fread (rbuff, 1, LBUF, fr))) in main()
366 while ((i = fread (rbuff, 1, LBUF, fr))) in main()
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/include/
H A Deribuf.h2 INTEGER LBUF, NBUFS, NIBUF, NBITS, IBIT1, IBIT2
6 COMMON /ERIBUF/ LBUF, NBUFS, NIBUF, NBITS, IBIT1, IBIT2, &
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/eri/
H A Deri2out.F155 & BUF(LBUF,NBUFS,0:NCORS), BIN(LBIN),
311 DIMENSION BUF(LBUF,NBUFS), BIN(LBIN),
331 LBUF4 = LBUF ! LBUF4 is always integer*4
359 LENINT4 = 2*LBUF + NIBUF*LBUF + 1 ! in integer*4 units
387 KBUFS = NTOT/LBUF
391 KSTR = IOFF + (I - 1)*LBUF + 1
392 KEND = IOFF + I*LBUF
396 N2WRIT = N2WRIT + LBUF
419 ISTR = KBUFS*LBUF + 1
440 NLEFT = LBUF - ICOUNT
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/niml/
H A Dniml_fileread.c81 #define LBUF 65536 macro
102 if( qbuf == NULL ) qbuf = NI_malloc(char, LBUF) ; /* 1st time in */ in my_fgets()
109 ptr = ni_fgets( qbuf , LBUF , fts ) ; /* read next whole line */ in my_fgets()

123456