/dports/science/cdcl/dcl-5.4.8-C/src/env2/pslib/ |
H A D | cdclpsnup | 62 if (NRPAGE[nup] == 0 || NCPAGE[nup] == 0) { 107 if ((rotate[nup] && landscape) || (! rotate[nup] && portrait)) { 108 tmp = NRPAGE[nup] 109 NRPAGE[nup] = NCPAGE[nup] 110 NCPAGE[nup] = tmp 118 xwidth = (urx-llx)*scale[nup]; ywidth = (ury-lly)*scale[nup] 150 if (! rotate[nup]) { 151 aa = a * scale[nup] 152 bb = b * scale[nup] 153 cc = c * scale[nup] [all …]
|
/dports/science/dcl/dcl-5.4.8/src/env2/pslib/ |
H A D | dclpsnup | 62 if (NRPAGE[nup] == 0 || NCPAGE[nup] == 0) { 107 if ((rotate[nup] && landscape) || (! rotate[nup] && portrait)) { 108 tmp = NRPAGE[nup] 109 NRPAGE[nup] = NCPAGE[nup] 110 NCPAGE[nup] = tmp 118 xwidth = (urx-llx)*scale[nup]; ywidth = (ury-lly)*scale[nup] 150 if (! rotate[nup]) { 151 aa = a * scale[nup] 152 bb = b * scale[nup] 153 cc = c * scale[nup] [all …]
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | xdraw.c | 89 RENUP_VEC(fm3,nup); RENUP_VEC(fm2,nup); in upsample_7short() 90 RENUP_VEC(fm1,nup); RENUP_VEC(f00,nup); in upsample_7short() 91 RENUP_VEC(fp1,nup); RENUP_VEC(fp2,nup); in upsample_7short() 92 RENUP_VEC(fp3,nup); RENUP_VEC(fp4,nup); in upsample_7short() 110 switch( nup ){ in upsample_7short() 118 sout[ii*nup] = INT7(0,ii) ; sout[ii*nup+1] = INT7(1,ii) ; in upsample_7short() 124 sout[ii*nup] = INT7(0,ii) ; sout[ii*nup+1] = INT7(1,ii) ; in upsample_7short() 131 sout[ii*nup] = INT7(0,ii) ; sout[ii*nup+1] = INT7(1,ii) ; in upsample_7short() 220 RENUP_VEC(h00,nup); RENUP_VEC(h01,nup); in upsample_monoshort() 221 RENUP_VEC(h10,nup); RENUP_VEC(h11,nup); in upsample_monoshort() [all …]
|
H A D | mri_filt_fft.c | 41 register int ii , nup ; in mri_filt_fft() local 85 nup = nx ; in mri_filt_fft() 88 nup = ii ; nby2 = nup / 2 ; in mri_filt_fft() 90 GET_AS_BIG(cx,complex,nup) ; GET_AS_BIG(gg,float,nup) ; in mri_filt_fft() 92 dk = (2.0*PI) / (nup * dx) ; in mri_filt_fft() 93 fac = 1.0 / nup ; in mri_filt_fft() 135 nup = ny ; in mri_filt_fft() 138 nup = ii ; nby2 = nup / 2 ; in mri_filt_fft() 140 GET_AS_BIG(cx,complex,nup) ; GET_AS_BIG(gg,float,nup) ; in mri_filt_fft() 142 dk = (2.0*PI) / (nup * dy) ; in mri_filt_fft() [all …]
|
H A D | mri_dup.c | 90 switch(nup){ in mri_dup2D() 124 nx = imin->nx; ny = imin->ny; nxup = nx*nup; nyup = ny*nup ; in mri_dup2D() 126 switch( nup ){ in mri_dup2D() 150 nx = flim->nx ; ny = flim->ny ; nxup = nx*nup ; nyup = ny*nup ; in mri_dup2D() 277 RENUP_VEC(fm3,nup); RENUP_VEC(fm2,nup); in upsample_7() 278 RENUP_VEC(fm1,nup); RENUP_VEC(f00,nup); in upsample_7() 279 RENUP_VEC(fp1,nup); RENUP_VEC(fp2,nup); in upsample_7() 280 RENUP_VEC(fp3,nup); RENUP_VEC(fp4,nup); in upsample_7() 301 switch( nup ){ in upsample_7() 392 switch( nup ){ in upsample_1() [all …]
|
H A D | 3dUpsample.c | 11 int vstep=0 , ii,nvox , ntin , ntout , do_one=0 , nup=-1 ; in main() local 96 nup = (int)strtod(argv[iarg],NULL) ; in main() 97 if( nup < 2 || nup > 320 ) in main() 135 if (nup == -1) { in main() 139 nup = (int)strtod(argv[iarg++],NULL) ; in main() 140 if( nup < 2 || nup > 320 ) in main() 165 ntout = ntin * nup ; trout = trin / nup ; in main() 191 upsample_1( nup, DSET_NVALS(inset), fac, ofac); in main() 208 outset->taxis->ttdel /= nup ; in main() 209 outset->taxis->ttdur /= nup ; in main() [all …]
|
H A D | imupsam.c | 13 int nup , iarg=1 , do_ascii=0 ; in main() local 47 nup = strtol( argv[iarg++] , NULL , 10 ) ; in main() 48 if( nup < 1 || nup > 30 ){ in main() 57 outim = mri_dup2D( nup , inim ) ; in main() 63 nup = mri_write_ascii( argv[iarg] , outim ) ; in main() 65 nup = mri_write( argv[iarg] , outim ) ; in main() 67 if( nup == 0 ){ in main()
|
H A D | 1dUpsample.c | 8 int iarg=1 , jj , nup , do_one=0 ; in main() local 40 nup = (int)strtod(argv[iarg++],NULL) ; in main() 41 if( nup < 2 || nup > 32 ) in main() 42 ERROR_exit("1dUpsample 'n' parameter = %d is out of range 2..32",nup) ; in main() 57 nxout = nxin * nup ; in main() 63 upsample_1( nup , nxin , inar + nxin*jj , outar + nxout*jj ) ; in main() 65 upsample_7( nup , nxin , inar + nxin*jj , outar + nxout*jj ) ; in main()
|
H A D | edt_blur.c | 203 nup = csfft_nextup_one35(nup) ; nby2 = nup / 2 ; in EDIT_blur_volume_3d() 207 if( nup > ncg ){ in EDIT_blur_volume_3d() 209 gg = (float *)realloc(gg,sizeof(float )*nup) ; ncg = nup ; in EDIT_blur_volume_3d() 213 fac = 1.0 / nup ; in EDIT_blur_volume_3d() 340 nup = csfft_nextup_one35(nup) ; nby2 = nup / 2 ; in EDIT_blur_volume_3d() 344 if( nup > ncg ){ in EDIT_blur_volume_3d() 346 gg = (float *)realloc(gg,sizeof(float )*nup) ; ncg = nup ; in EDIT_blur_volume_3d() 350 fac = 1.0 / nup ; in EDIT_blur_volume_3d() 474 nup = csfft_nextup_one35(nup) ; nby2 = nup / 2 ; in EDIT_blur_volume_3d() 478 if( nup > ncg ){ in EDIT_blur_volume_3d() [all …]
|
H A D | mri_copy.c | 40 MRI_IMAGE * mri_expand_2D( int nup , MRI_IMAGE *imin ) /* 22 Feb 2004 */ in mri_expand_2D() argument 50 if( nup < 1 || imin == NULL || imin->nz > 1 ) RETURN(NULL); in mri_expand_2D() 52 if( nup == 1 ){ newim = mri_copy(imin); RETURN(newim); } in mri_expand_2D() 56 nx = imin->nx ; nxup = nx*nup ; in mri_expand_2D() 57 ny = imin->ny ; nyup = ny*nup ; in mri_expand_2D() 64 qq = jj / nup ; in mri_expand_2D() 66 pp = ii / nup ; in mri_expand_2D()
|
/dports/science/octopus/octopus-10.5/src/math/ |
H A D | young.F90 | 54 integer, intent(in) :: nup, ndown local 61 if (ndown > nup) then 66 this%nup = nup 76 do ipart = ndown+1, nup 132 do iup = this%nup, 1, -1 194 do iup = 1, this%nup 244 integer :: nup, ndown local 251 nup = nparticles - ndown 264 integer :: nup, ndown local 272 nup = nparticles - ndown [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/makepsi/ |
H A D | wvfnc_init_input.F | 27 integer up_filling(4,NMAX),nup 58 nup = 0 116 500 if (.not. inp_i(nup)) 120 do i=1,nup 184 700 if (.not. inp_i(nup)) 187 call getfilling(.true.,nup,up_filling) 203 900 if (.not. inp_i(nup)) 206 nup=nup/2 207 call getfilling(.true.,nup,up_filling) 234 > mt_int,1,nup)) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/makepsi/ |
H A D | wvfnc_init_input.F | 27 integer up_filling(4,NMAX),nup 58 nup = 0 116 500 if (.not. inp_i(nup)) 120 do i=1,nup 184 700 if (.not. inp_i(nup)) 187 call getfilling(.true.,nup,up_filling) 203 900 if (.not. inp_i(nup)) 206 nup=nup/2 207 call getfilling(.true.,nup,up_filling) 234 > mt_int,1,nup)) [all …]
|
/dports/biology/molden/molden5.8/ |
H A D | den3d.f | 57 nup = 1 70 nup = nup + 1 74 upx(nup) = fxt 75 downx(nup) = fxt 76 upy(nup) = fyt 77 downy(nup) = fyt 86 nup = nup + 1 90 upx(nup) = fxt 91 downx(nup) = fxt 92 upy(nup) = fyt [all …]
|
/dports/devel/love/love-11.3/src/libraries/luasocket/libluasocket/ |
H A D | compat.c | 7 void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { in luaL_setfuncs() argument 8 luaL_checkstack(L, nup+1, "too many upvalues"); in luaL_setfuncs() 12 for (i = 0; i < nup; i++) /* copy upvalues to the top */ in luaL_setfuncs() 13 lua_pushvalue(L, -(nup+1)); in luaL_setfuncs() 14 lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ in luaL_setfuncs() 15 lua_settable(L, -(nup + 3)); in luaL_setfuncs() 17 lua_pop(L, nup); /* remove upvalues */ in luaL_setfuncs()
|
/dports/devel/premake5/premake-5.0.0-alpha16-src/binmodules/luasocket/src/ |
H A D | compat.c | 7 void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { in luaL_setfuncs() argument 8 luaL_checkstack(L, nup+1, "too many upvalues"); in luaL_setfuncs() 12 for (i = 0; i < nup; i++) /* copy upvalues to the top */ in luaL_setfuncs() 13 lua_pushvalue(L, -(nup+1)); in luaL_setfuncs() 14 lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ in luaL_setfuncs() 15 lua_settable(L, -(nup + 3)); in luaL_setfuncs() 17 lua_pop(L, nup); /* remove upvalues */ in luaL_setfuncs()
|
/dports/print/a2ps/a2ps-4.13/tests/ |
H A D | prolog-2.tst | 16 for nup in 1 4 19 ref_file=$REF_DIR/prolog-${nup}.ps 20 chk_file=$CHK_DIR/prolog-${nup}.ps 22 $verbose "Running a2ps -$nup $OPT $TST_FILE" 23 $CHK -$nup $OPT $TST_FILE >$chk_file 2>&5 25 $verbose "Running ref-a2ps -$nup $OPT $TST_FILE" 26 $REF -$nup $OPT $TST_FILE >$ref_file 2>&5
|
/dports/emulators/mesen/Mesen-0.9.8-4-g4c701ad6/Lua/ |
H A D | compat.c | 7 void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { in luaL_setfuncs() argument 8 luaL_checkstack(L, nup+1, "too many upvalues"); in luaL_setfuncs() 12 for (i = 0; i < nup; i++) /* copy upvalues to the top */ in luaL_setfuncs() 13 lua_pushvalue(L, -(nup+1)); in luaL_setfuncs() 14 lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ in luaL_setfuncs() 15 lua_settable(L, -(nup + 3)); in luaL_setfuncs() 17 lua_pop(L, nup); /* remove upvalues */ in luaL_setfuncs()
|
/dports/games/wesnoth/wesnoth-1.14.17/src/scripting/ |
H A D | lua_cpp_function.cpp | 108 void push_closure( lua_State* L, const lua_function & f, int nup) in push_closure() argument 111 lua_insert(L, -(1+nup)); //move the function beneath the upvalues in push_closure() 112 lua_pushcclosure(L, &intf_closure_dispatcher, 1+nup); in push_closure() 115 void set_functions( lua_State* L, const std::vector<lua_cpp::Reg>& functions, int nup ) in set_functions() argument 118 luaL_checkstack(L, nup+1, "too many upvalues"); in set_functions() 124 for (i = 0; i < nup; ++i) /* copy upvalues to the top */ in set_functions() 125 lua_pushvalue(L, -nup); in set_functions() 126 push_closure(L, l.func, nup); /* closure with those upvalues */ in set_functions() 127 lua_setfield(L, -(nup + 2), l.name); in set_functions() 129 lua_pop(L, nup); /* remove upvalues */ in set_functions()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/lib/exchange-correlation/ |
H A D | blyp.f | 123 real*8 nup,ndn,n,agrup,agrdn,agr local 173 nup = dn_in(j,1) + 0.5d0*ETA2 175 nup_thrd = nup**thrd 183 n = nup + ndn 186 nup2 = nup*nup 204 sdup = 1.0d0/(nup_thrd*nup) 265 xe = (xeup*nup + xedn*ndn)/n 289 nupndn = nup*ndn 294 nup_etthrd = nup**etthrd 295 nup_fvthrd = nup**fvthrd [all …]
|
H A D | b3lyp.F | 95 real*8 nup,ndn,n,agrup,agrdn,agr local 150 nup = dn_in(j,1) + 0.5d0*ETA2 158 n = nup + ndn 163 nup2 = nup*nup 168 xi = (nup-ndn)/n 221 chiup = agrup/nup**(4.0d0/3.0d0) 238 call Becke_smalln_correction(nup,nup**thrd,1.0d0, 290 xe = (xeup*nup + xedn*ndn)/n 302 nupndn = nup*ndn 307 nup_etthrd = nup**etthrd [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/lib/exchange-correlation/ |
H A D | blyp.f | 123 real*8 nup,ndn,n,agrup,agrdn,agr 170 nup = dn_in(j,1) + 0.5d0*ETA2 172 nup_thrd = nup**thrd 180 n = nup + ndn 183 nup2 = nup*nup 202 sdup = 1.0d0/(nup_thrd*nup) 255 xe = (xeup*nup + xedn*ndn)/n 279 nupndn = nup*ndn 284 nup_etthrd = nup**etthrd 285 nup_fvthrd = nup**fvthrd [all …]
|
H A D | b3lyp.F | 95 real*8 nup,ndn,n,agrup,agrdn,agr 148 nup = dn_in(j,1) + 0.5d0*ETA2 156 n = nup + ndn 161 nup2 = nup*nup 166 xi = (nup-ndn)/n 219 chiup = agrup/nup**(4.0d0/3.0d0) 233 call Becke_smalln_correction(nup,nup**thrd,agrup, 270 xe = (xeup*nup + xedn*ndn)/n 282 nupndn = nup*ndn 287 nup_etthrd = nup**etthrd [all …]
|
/dports/print/cups-filters/cups-filters-1.28.10/filter/pdftopdf/ |
H A D | nup.cc | 51 bool NupParameters::possible(int nup) // {{{ in possible() argument 54 return (nup>=1)&&(nup<=16)&& in possible() 55 ( (nup!=5)&&(nup!=7)&&(nup!=11)&&(nup!=13)&&(nup!=14) ); in possible() 59 void NupParameters::preset(int nup,NupParameters &ret) // {{{ in preset() argument 61 switch (nup) { in preset() 120 nup(param.nupX*param.nupY), in NupState() 121 subpage(nup) in NupState() 132 subpage=nup; in reset() 208 if (subpage>=nup) { in nextPage()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
H A D | spinsq.f90 | 46 INTEGER :: nup, ndw, ir, i, j, jj, ig, ia, is, iv, jv, inl, jnl local 60 nup = NINT(fup) 61 ndw = nel(1)+nel(2) - nup 65 frac= ABS(fup-nup).GT.1.0d-6 67 DO i=1,nup 70 frac=frac.OR.ABS(fup-nup).GT.1.0d-6 96 ALLOCATE (overlap(nup,ndw)) 100 DO i=1,nup 113 DO i=1,nup 136 DO i=1,nup
|