/dports/graphics/pgplot/pgplot/drivers/ |
H A D | vadriv.f | 168 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 D | cadriv.f | 165 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 D | lsdriv.f | 167 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 D | vbdriv.f | 155 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 D | ttdriv.f | 334 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 D | nedriv.f | 484 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 D | mess.f | 863 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 D | dmess.f | 137 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 D | smess.f | 137 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 D | grtermio.f | 29 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 D | testlib.f | 23 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 D | her2out.F | 80 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 D | aba2r12.F | 137 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 D | fastio_g07.F | 189 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 D | 1dAstrip.c | 6 #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 D | sirtra.F | 383 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 D | intsort.F | 196 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 D | sym2img.c | 41 #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 D | df_dirac.F | 857 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 D | ccsd_sortao.F | 114 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 D | mktextfm.c | 16 #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 D | mktextfm.c | 16 #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 D | eribuf.h | 2 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 D | eri2out.F | 155 & 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 D | niml_fileread.c | 81 #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()
|