Home
last modified time | relevance | path

Searched refs:ILEN (Results 1 – 25 of 130) sorted by relevance

123456

/dports/misc/libemos/libemos-4.5.9-Source/interpolation/
H A Dintlogr.F115 INTEGER ILEN
144 ILEN = LEN(MESSAGE)
145 IF( ILEN.GT.95 ) ILEN = 95
154 NEWMESS(1:ILEN) = MESSAGE(1:ILEN)
155 ILEN = ILEN + 1
157 WRITE(NEWMESS(ILEN:),'(F25.15)') PNUM
159 WRITE(NEWMESS(ILEN:),'(F25.10)') PNUM
161 WRITE(NEWMESS(ILEN:),'(F25.7)') PNUM
163 WRITE(NEWMESS(ILEN:),'(F25.2)') PNUM
H A Dintlog.F117 INTEGER ILEN
146 ILEN = LEN(MESSAGE)
147 IF( ILEN.GT.105 ) ILEN = 105
156 NEWMESS(1:ILEN) = MESSAGE(1:ILEN)
157 ILEN = ILEN + 1
160 WRITE(NEWMESS(ILEN:),'(I4)') KNUM
162 WRITE(NEWMESS(ILEN:),'(I7)') KNUM
164 WRITE(NEWMESS(ILEN:),'(I10)') KNUM
166 WRITE(NEWMESS(ILEN:),'(I15)') KNUM
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dgendir.F155 ILEN = RTB (HLINE(KOUT))
156 ICHAR = ILEN + 1
163 ILEN = RTB (YTEMP)
164 ILAST = ILEN + ICHAR
176 HLINE(KOUT)(ICHAR:) = YTEMP(1:ILEN)
177 ICHAR = ICHAR + ILEN
182 ILEN = RTB (HLINE(KOUT))
183 HLINE(KOUT)(ILEN:ILEN) = HLAST
H A Doffset2.F11 SUBROUTINE OFFSET2(IOFF,NLAST,IWORD,NBIT,ILEN,IERR) argument
94 INTEGER IOFF,NLAST,IWORD,NBIT,ILEN,IERR
113 IF( IWORD.GT.ILEN ) THEN
115 WRITE(GRPRSM,*) 'Word ',IWORD,' is outside array bounds ',ILEN
H A Dd2rosd.F117 INTEGER IOFF, J, J2, JORDER, ILOG2N, IORIGI, ILEN, IRETFN, I1DIFF
192 ILEN=KLEN-JORDER
193 ILOG2N=C2BITW ( ILEN-1, KMXPWR, KPOWER, KMXPWR )
290 ILEN=MIN (KLEN,10)
291 PRINT *,'d2rosd - JORDER=',JORDER,',KDATA(1:',ILEN,')=',
292 S (KDATA(J),J=1,ILEN)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcrayio2.F28 INTEGER LUNIT, IADR, ILEN, IERR, BLOCKSIZE, STATUS, IUN
33 ILEN=LNBLNK(FILE)
49 CALL WOPEN(FILE,ILEN,BLOCKSIZE,STATUS,IERR)
51 CALL WOPEN(LUNIT,FILE,ILEN,BLOCKSIZE,STATUS,IERR)
56 WRITE (LUPRI,'(3a)') ' FILE: >', FILE(1:ILEN),'<'
57 WRITE (LUPRI,*) 'ILEN : ', ILEN
216 INTEGER LUNIT, IERR, ILEN
241 ILEN = LNBLNK(FILE)
243 IF (DEBUG) WRITE(LUPRI,*) 'CLOSE FILE "',FILE(1:ILEN),
249 IF (ILEN .LE. 74) THEN
[all …]
/dports/devel/libtpl/libtpl-8fa17e5/tests/
H A Dtest81.c4 #define ILEN 10 macro
8 int i[ILEN];
16 tn = tpl_map("A(S(ci#))", &s, ILEN); in main()
21 for(j=0;j<ILEN;j++) s.i[j]++; in main()
27 tn = tpl_map("A(S(ci#))", &dst, ILEN); in main()
31 for(j=0;j<ILEN;j++) printf("%d ", dst.i[j]); in main()
H A Dtest80.c4 #define ILEN 10 macro
8 int i[ILEN];
16 tn = tpl_map("A(S(ci#))", &s, ILEN); in main()
21 tn = tpl_map("A(S(ci#))", &dst, ILEN); in main()
25 for(j=0;j<ILEN;j++) printf("%d ", dst.i[j]); in main()
H A Dtest84.c4 #define ILEN 10 macro
18 int i[ILEN]; in main()
23 tn = tpl_map("cA(i#)S(cf#)A(ci#)", &a, i, ILEN, &s, FLEN, &b, k, KLEN); in main()
30 for(j=0;j<ILEN;j++) printf("%d ", i[j]); in main()
44 tn = tpl_map("cA(i#)S(cf#)A(ci#)", &a, i, ILEN, &s, FLEN, &b, k, KLEN); in main()
51 for(j=0;j<ILEN;j++) printf("%d ", i[j]); in main()
H A Dtest82.c4 #define ILEN 10 macro
18 int i[ILEN] = {-1, -2, -3, -4, -5, -6, -7, -8, -9, -10}; in main()
23 tn = tpl_map("cA(i#)S(cf#)A(ci#)", &a, i, ILEN, &s, FLEN, &b, k, KLEN); in main()
27 for(j=0; j < ILEN; j++) i[j]--; in main()
29 for(j=0; j < ILEN; j++) i[j]--; in main()
H A Dtest118.c5 #define ILEN 10 macro
21 int i[ILEN] = {-1, -2, -3, -4, -5, -6, -7, -8, -9, -10}; in main()
28 tn = tpl_map("cA(i#)S(cf#)A(ci#)", &a, i, ILEN, &s, FLEN, &b, k, KLEN); in main()
32 for(j=0; j < ILEN; j++) i[j]--; in main()
34 for(j=0; j < ILEN; j++) i[j]--; in main()
/dports/science/hdf5/hdf5-1.10.6/hl/fortran/src/
H A DH5IMff.F90173 INTEGER(size_t) :: ILEN ! name length local
194 ILEN = LEN(il)
237 INTEGER(size_t) :: ILEN ! name length local
253 INTEGER(size_t) :: ILEN ! name length local
258 ILEN = LEN(interlace)
389 INTEGER(size_t) :: ILEN ! name length local
406 ILEN = LEN(pal_name)
407 errcode = h5imlink_palette_c(loc_id,namelen,dset_name,ILEN,pal_name)
441 INTEGER(size_t) :: ILEN ! name length local
458 ILEN = LEN(pal_name)
[all …]
/dports/science/dcl/dcl-5.4.8/src/env1/bitmap.win/
H A Dadd32.f7 INTEGER*2 IPAT1, IPAT2, IPOS0, ILEN, IWDTH
21 READ (2, REC=IPOS) IPOS0, ILEN
23 IPOS0 = IPOS0+ILEN+1
25 READ(1,'(4I4)') IPAT1, IPAT2, IWDTH, ILEN
35 WRITE(2, REC=I+NPAT+1) IPOS0, ILEN
36 DO 110 J=1, ILEN
H A Dcnv32.f7 INTEGER*2 IPAT1, IPAT2, IPOS0, ILEN, IWDTH
19 READ(1,'(4I4)') IPAT1, IPAT2, IWDTH, ILEN
29 WRITE(2, REC=I+NPAT+1) IPOS0, ILEN
30 DO 110 J=1, ILEN
H A Dadd08.f7 INTEGER*2 IPAT(NPAT,2), IPOS(NPAT), ILEN(NPAT), NREC1, NREC2
14 READ(2) NREC1, IPAT, IPOS, ILEN, CDATA
21 IPOS0 = IPOS(NREC1)+ILEN(NREC1)+1
33 ILEN(I) = JLEN
43 WRITE(2) NREC2, IPAT, IPOS, ILEN, CDATA
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufr_exports/synop2bufr/
H A Dcreate_gts_header.f108 integer KPMISS, KPRUS, NOKEY, NOFL, ILEN
263 ILEN=KSEC0(2)+39
264 write(TOTALSIZE,'(i8.8)') ILEN
266 ILEN=ILEN+10
272 ILEN=KSEC0(2)+35
273 write(TOTALSIZE,'(i8.8)') ILEN
275 ILEN=ILEN+10
278 CALL PBWRITE(IUNIT1,KBUFR,ILEN,IERR)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/openmp_tests/dgemm/
H A Ddgemm.F245 ILEN = IDEPTH*(ISPAN/IDEPTH)
272 IF (ILEN.LT.ISPAN) THEN
320 ILEN = IDEPTH*(ISPAN/IDEPTH)
349 IF (ILEN.LT.ISPAN) THEN
446 IF (ILEN.LT.ISPAN) THEN
523 IF (ILEN.LT.ISPAN) THEN
806 ILEN = IDEPTH*(ISPAN/IDEPTH)
833 IF (ILEN.LT.ISPAN) THEN
881 ILEN = IDEPTH*(ISPAN/IDEPTH)
1007 IF (ILEN.LT.ISPAN) THEN
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/contrib/openmp_tests/dgemm/
H A Ddgemm.F245 ILEN = IDEPTH*(ISPAN/IDEPTH)
272 IF (ILEN.LT.ISPAN) THEN
320 ILEN = IDEPTH*(ISPAN/IDEPTH)
349 IF (ILEN.LT.ISPAN) THEN
446 IF (ILEN.LT.ISPAN) THEN
523 IF (ILEN.LT.ISPAN) THEN
806 ILEN = IDEPTH*(ISPAN/IDEPTH)
833 IF (ILEN.LT.ISPAN) THEN
881 ILEN = IDEPTH*(ISPAN/IDEPTH)
1007 IF (ILEN.LT.ISPAN) THEN
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/TMatrix/test/
H A Ddgemm.F247 ILEN = IDEPTH*(ISPAN/IDEPTH)
274 IF (ILEN.LT.ISPAN) THEN
300 IF (ILEN.LT.ISPAN) THEN
322 ILEN = IDEPTH*(ISPAN/IDEPTH)
351 IF (ILEN.LT.ISPAN) THEN
377 IF (ILEN.LT.ISPAN) THEN
412 ILEN = IDEPTH*(ISPAN/IDEPTH)
413 DO 840 II = I, I + ILEN - 1, IDEPTH
448 IF (ILEN.LT.ISPAN) THEN
493 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/blas/double/
H A Dwfn1_ad_dgemm.F247 ILEN = IDEPTH*(ISPAN/IDEPTH)
274 IF (ILEN.LT.ISPAN) THEN
300 IF (ILEN.LT.ISPAN) THEN
322 ILEN = IDEPTH*(ISPAN/IDEPTH)
351 IF (ILEN.LT.ISPAN) THEN
377 IF (ILEN.LT.ISPAN) THEN
412 ILEN = IDEPTH*(ISPAN/IDEPTH)
413 DO 840 II = I, I + ILEN - 1, IDEPTH
448 IF (ILEN.LT.ISPAN) THEN
493 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/blas/double/
H A Ddgemm.F245 ILEN = IDEPTH*(ISPAN/IDEPTH)
272 IF (ILEN.LT.ISPAN) THEN
298 IF (ILEN.LT.ISPAN) THEN
320 ILEN = IDEPTH*(ISPAN/IDEPTH)
349 IF (ILEN.LT.ISPAN) THEN
375 IF (ILEN.LT.ISPAN) THEN
410 ILEN = IDEPTH*(ISPAN/IDEPTH)
411 DO 840 II = I, I + ILEN - 1, IDEPTH
446 IF (ILEN.LT.ISPAN) THEN
491 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/TMatrix/test/
H A Ddgemm.F247 ILEN = IDEPTH*(ISPAN/IDEPTH)
274 IF (ILEN.LT.ISPAN) THEN
300 IF (ILEN.LT.ISPAN) THEN
322 ILEN = IDEPTH*(ISPAN/IDEPTH)
351 IF (ILEN.LT.ISPAN) THEN
377 IF (ILEN.LT.ISPAN) THEN
412 ILEN = IDEPTH*(ISPAN/IDEPTH)
413 DO 840 II = I, I + ILEN - 1, IDEPTH
448 IF (ILEN.LT.ISPAN) THEN
493 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/blas/double/
H A Dwfn1_ad_dgemm.F247 ILEN = IDEPTH*(ISPAN/IDEPTH)
274 IF (ILEN.LT.ISPAN) THEN
300 IF (ILEN.LT.ISPAN) THEN
322 ILEN = IDEPTH*(ISPAN/IDEPTH)
351 IF (ILEN.LT.ISPAN) THEN
377 IF (ILEN.LT.ISPAN) THEN
412 ILEN = IDEPTH*(ISPAN/IDEPTH)
413 DO 840 II = I, I + ILEN - 1, IDEPTH
448 IF (ILEN.LT.ISPAN) THEN
493 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/blas/double/
H A Ddgemm.F245 ILEN = IDEPTH*(ISPAN/IDEPTH)
272 IF (ILEN.LT.ISPAN) THEN
298 IF (ILEN.LT.ISPAN) THEN
320 ILEN = IDEPTH*(ISPAN/IDEPTH)
349 IF (ILEN.LT.ISPAN) THEN
375 IF (ILEN.LT.ISPAN) THEN
410 ILEN = IDEPTH*(ISPAN/IDEPTH)
411 DO 840 II = I, I + ILEN - 1, IDEPTH
446 IF (ILEN.LT.ISPAN) THEN
491 ILEN = IDEPTH*(ISPAN/IDEPTH)
[all …]
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/LHS/
H A DDatsqz.f9068 ILEN=IEND-IBEG+1
69 IF(ILEN.GT.LENTT)THEN
70 WRITE(4,9003)CRDTYP,ILEN,LENTT
71 WRITE(99,9003)CRDTYP,ILEN,LENTT
76 IT=LENTT-ILEN

123456