Home
last modified time | relevance | path

Searched refs:ltype1 (Results 1 – 19 of 19) sorted by relevance

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/
H A Dshells.F4 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
24 ltype1=ltype
28 if(ltype.gt.4) ltype1=ltype-1
33 if(ltype1.gt.5) ltype1=ltype1-1
45 llen1=len(ltype1)
H A Dspec_block.F279 ltype1=ltype
281 if(ltype.gt.4) ltype1=ltype-1
283 if(ltype1.gt.5) ltype1=ltype1-1
284 nfkl=len(ktype1)*len(ltype1)
344 call blksize1(itype1,jtype1,ktype1,ltype1,
1480 ltype1=ltype
1482 if(ltype.gt.4) ltype1=ltype-1
1484 if(ltype1.gt.5) ltype1=ltype1-1
1493 nql=ndege(ltype1)
1501 nfijkl=nfij*len(ktype1)*len(ltype1)
[all …]
H A Dspec_calcint.F311 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
446 call iobara(itype1,jtype1,ktype1,ltype1,where)
641 call get_spher_pnl_type(ltype1,ltyps)
796 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
1179 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
1354 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
1752 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
H A Dprecalc2.F283 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
1317 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/texas/
H A Dshells.F4 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1 local
24 ltype1=ltype
28 if(ltype.gt.4) ltype1=ltype-1
33 if(ltype1.gt.5) ltype1=ltype1-1
45 llen1=len(ltype1)
H A Dspec_block.F279 ltype1=ltype
281 if(ltype.gt.4) ltype1=ltype-1
283 if(ltype1.gt.5) ltype1=ltype1-1
284 nfkl=len(ktype1)*len(ltype1)
344 call blksize1(itype1,jtype1,ktype1,ltype1,
1480 ltype1=ltype
1482 if(ltype.gt.4) ltype1=ltype-1
1484 if(ltype1.gt.5) ltype1=ltype1-1
1493 nql=ndege(ltype1)
1501 nfijkl=nfij*len(ktype1)*len(ltype1)
[all …]
H A Dspec_calcint.F311 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
446 call iobara(itype1,jtype1,ktype1,ltype1,where)
641 call get_spher_pnl_type(ltype1,ltyps)
796 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
1179 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
1354 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
1752 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
H A Dprecalc2.F283 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
1317 common /types/itype,jtype,ktype,ltype,itype1,jtype1,ktype1,ltype1
/dports/science/cdo/cdo-2.0.0/libcdi/src/
H A Dvarscan.c54 int ltype1; // GRIB first level type member
100 vartable[varID].ltype1 = 0; in paramInitEntry()
133 (vartable[varID].ltype1 == ltype1 ) && in varGetEntry()
390 int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2, in varAddRecord() argument
402 vartable[varID].ltype1 = ltype1; in varAddRecord()
553 const int ltype1 = vartable[varid].ltype1; in cdi_generate_vars() local
556 if ( ltype1 == 0 && zaxistype == ZAXIS_GENERIC && cdiDefaultLeveltype != -1 ) in cdi_generate_vars()
808 bool ltype1_is_equal = (ltype1 == ltype1_0); in zaxisCompare()
860 int ltype1; member
918 query.ltype1 = ltype1; in varDefZaxis()
[all …]
H A Dvarscan.h11 int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2,
19 const char *longname, const char *units, int prec, int mode, int ltype1, int ltype2);
39 …ol lbounds, const double *levels, const char *longname, const char *units, int ltype1, int ltype2);
H A Dcdilib.c38502 int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2,
62723 int ltype1; // GRIB first level type member
62769 vartable[varID].ltype1 = 0; in paramInitEntry()
62802 (vartable[varID].ltype1 == ltype1 ) && in varGetEntry()
63059 int *pvarID, int *plevelID, int tsteptype, int ltype1, int ltype2, in varAddRecord() argument
63071 vartable[varID].ltype1 = ltype1; in varAddRecord()
63222 const int ltype1 = vartable[varid].ltype1; in cdi_generate_vars() local
63225 if ( ltype1 == 0 && zaxistype == ZAXIS_GENERIC && cdiDefaultLeveltype != -1 ) in cdi_generate_vars()
63477 bool ltype1_is_equal = (ltype1 == ltype1_0); in zaxisCompare()
63529 int ltype1; member
[all …]
/dports/science/cdo/cdo-2.0.0/src/
H A DWindTrans.cc1293 int code1, zaxisID1, ltype1; in TransformUV() local
1307 ltype1 = zaxis_to_ltype(zaxisID1); in TransformUV()
1315 varID1, code1, varname, ltype1, nlevel1, zaxisID1); in TransformUV()
1321 varID1, code1, varname, ltype1, nlevel1, zaxisID1); in TransformUV()
1344 … if (!((ltype1 == ltype2) && (nlevel1 == nlevel2) && (zaxisID1 == zaxisID2))) continue; in TransformUV()
1348 varID2, code2, varname, ltype1, nlevel2, zaxisID2); in TransformUV()
1438 … cdo_print("RotuvNorth(): processing level type: %d; level %d (out of [0:%d])", ltype1, levelID, in TransformUV()
1455 Debug(cdoDebugExt, "Finished processing level type: %d", ltype1); in TransformUV()
H A DChange.cc301 const auto ltype1 = chltypes[i]; in changeLtype() local
303 if (ltype1 == ltype) in changeLtype()
/dports/lang/gambit-c/gambit-4.9.3/gsc/
H A D_gvm.scm1328 (let ((ltype1 (label-type instr1))
1330 (and (eq? ltype1 ltype2)
1331 (case ltype1
/dports/lang/gambit-c/gambit-4.9.3/bench/src/
H A Dtest.scm3991 (let ((ltype1 (label-type instr1))
3993 (and (eq? ltype1 ltype2)
3994 (case ltype1
H A Dcompiler.scm3991 (let ((ltype1 (label-type instr1))
3993 (and (eq? ltype1 ltype2)
3994 (case ltype1
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/bench/gambit-benchmarks/
H A Dtest.scm3991 (let ((ltype1 (label-type instr1))
3993 (and (eq? ltype1 ltype2)
3994 (case ltype1
H A Dcompiler.scm3991 (let ((ltype1 (label-type instr1))
3993 (and (eq? ltype1 ltype2)
3994 (case ltype1
/dports/lang/chicken5/chicken-5.3.0/tests/
H A Dcompiler.scm4019 (let ((ltype1 (label-type instr1))
4021 (and (eq? ltype1 ltype2)
4022 (case ltype1