/dports/misc/libemos/libemos-4.5.9-Source/interpolation/ |
H A D | intlogr.F | 115 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 D | intlog.F | 117 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 D | gendir.F | 155 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 D | offset2.F | 11 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 D | d2rosd.F | 117 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 D | crayio2.F | 28 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 D | test81.c | 4 #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 D | test80.c | 4 #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 D | test84.c | 4 #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 D | test82.c | 4 #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 D | test118.c | 5 #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 D | H5IMff.F90 | 173 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 D | add32.f | 7 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 D | cnv32.f | 7 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 D | add08.f | 7 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 D | create_gts_header.f | 108 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 D | dgemm.F | 245 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 D | dgemm.F | 245 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 D | dgemm.F | 247 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 D | wfn1_ad_dgemm.F | 247 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 D | dgemm.F | 245 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 D | dgemm.F | 247 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 D | wfn1_ad_dgemm.F | 247 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 D | dgemm.F | 245 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 D | Datsqz.f90 | 68 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
|