/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/fortran/ |
H A D | outl2.f | 113 call basout(ifl,nwf, ' ') 114 call basout(ifl,nwf, ' ') 117 call basout(ifl,nwf, ' ') 118 call basout(ifl,nwf, ' ') 131 call basout(ifl,nwf, 164 call basout(ifl,nwf,' ') 177 call basout(ifl,nwf,'atol=') 182 call basout(ifl,nwf,'rtol=') 196 call basout(ifl,nwf, 203 call basout(ifl,nwf,' ') [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/atomic/src/ |
H A D | occ_spin.f90 | 27 nwf0=nwf 39 nwf=nwf+1 54 nwf=nwf+1 86 do n=1,nwf 91 nwf0=nwf 131 nwf=nwf0 157 nwf0=nwf 199 nwf=nwf0 220 nwf0=nwf 232 nwf=nwf+1 [all …]
|
H A D | starting_potential.f90 | 11 (ndm,mesh,zval,zed,nwf,oc,nn,ll,r,enl, & argument 22 integer :: nwf, nn(nwf), ll(nwf), ndm, mesh, n, i, nspin local 23 real(DP) :: r(ndm), vpot(ndm,2), v0(ndm), vxt(ndm), enl(nwf), oc(nwf), & 30 do n=1,nwf 34 do i=1,nwf
|
H A D | el_config.f90 | 100 nwf=nwfc 107 nwf=nwfc+1 108 if (nwf > nwfx) call errore('config','too many states',nwf) 109 start(nwf)=first 115 finish(nwf)=i-1 116 nwf=nwf+1 119 start(nwf)=i 201 do n=1,nwf 204 do n=1,nwf 243 read(qestdin,*,err=200,iostat=ios) nwf [all …]
|
H A D | write_ae_pseudo.f90 | 14 etot, zed, nwf, el, ll, oc, psi, rho, & 49 nwfts = nwf 56 elts(1:nwfts) = el(1:nwf) 57 llts(1:nwfts) = ll(1:nwf) 58 octs(1:nwfts) = oc(1:nwf) 59 phits(1:grid%mesh,1:nwfts) = psi(1:grid%mesh,1,1:nwf )
|
H A D | vdpack.f90 | 21 integer :: ndim, ndimx, nwf, nwfx, nspin, is, n, i, ns, ns1 local 32 do ns=1, nwf 33 do ns1=1, nwf 46 do ns=1, nwf 47 do ns1=1, nwf
|
H A D | kin_e_density.f90 | 3 (ndm, mesh, nwf, ll, oc, chi, r, r2, dx, tau ) argument 15 integer ndm, mesh, nwf,ll(nwf) local 16 real*8 oc(nwf), chi(ndm,2,nwf),r2(ndm),r(ndm),dx 30 do n=1,nwf
|
H A D | write_results.f90 | 68 if (oep) enl(1:nwf) = enl(1:nwf) - enzero(isw(1:nwf)) 69 do n=1,nwf 97 enl(1:nwf) = enl(1:nwf) + enzero(isw(1:nwf)) 113 do n = 1, nwf 126 do n=1,nwf 165 do n=1,nwf 225 do n=1,nwf 235 do n=1,nwf 323 do i=1,nwf 333 do i=1,nwf [all …]
|
H A D | compute_relpert.f90 | 30 nwf, nn, ll, enl 34 real(DP), intent(out) :: evel(nwf), edar(nwf), eso(nwf) 52 do iwf=1,nwf
|
H A D | all_electron.f90 | 21 vnl, vh, lsd, nspin, nlcc, vdw, nn, ll, oc, nwf, & 31 call starting_potential (ndmx, grid%mesh, zval, zed, nwf, oc, nn, ll,& 37 ALLOCATE(vsic(ndmx,nwf), vsicnew(ndmx), vhn1(ndmx), egc(ndmx)) 51 call elsd (zed,grid,rho,vxt,vh,vxc,exc,excgga,nwf,nspin,enl,oc, &
|
/dports/science/elk/elk-7.2.42/src/ |
H A D | eliashberg.f90 | 106 if (nwf.gt.maxwf) nwf=maxwf 109 if (nwfcl.gt.nwf) nwfcl=nwf 114 nin=nwf 116 do m=-nwf,nwf 124 do m=-2*nwf,2*nwf 136 do m=0,nwf 146 z(0:nwf)=z(0:nwf)+1.d0 147 z0(0:nwf)=z(0:nwf) 163 d(0:nwf)=beta*d(0:nwf)+(1.d0-beta)*d0(0:nwf) 169 d0(0:nwf)=d(0:nwf) [all …]
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/properties/ |
H A D | Properties_point.cpp | 23 kinetic.Resize(nwf); in setSize() 24 potential.Resize(nwf); in setSize() 25 nonlocal.Resize(nwf); in setSize() 26 weight.Resize(nwf); in setSize() 27 wf_val.Resize(nwf, 1); in setSize() 41 int nwf=kinetic.GetDim(0); in mpiSend() local 85 int nwf; in mpiReceive() local 89 setSize(nwf); in mpiReceive() 132 int nwf; in read() local 135 is >> dummy >> nwf; in read() [all …]
|
H A D | Properties_average.cpp | 46 diff_energy.Resize(nwf); in setSize() 47 diff_energyerr.Resize(nwf); in setSize() 74 setSize(nwf, naux, n_cvg); in blockReduce() 90 for(int w=0; w< nwf; w++) in blockReduce() 220 for(int w=0; w< nwf; w++) { in blockReduce() 244 setSize(nwf, naux, n_cvg); in averageReduce() 352 int nwf=avg.GetDim(1); in showSummary() local 367 int nwf=avg.GetDim(1); in showSummary() local 399 if(nwf > 1) { in showSummary() 451 int nwf=avg.GetDim(1); in JsonOutput() local [all …]
|
H A D | Properties_block.cpp | 78 int nwf=avg.GetDim(1); in storeToLog() local 97 for(int w=0; w< nwf; w++) { in storeToLog() 144 int nwf, naux; in restoreFromLog() local 150 nwf=tmp.size(); in restoreFromLog() 164 setSize(nwf, naux, n_cvg); in restoreFromLog() 189 avgrets.Resize(nwf, navg); in restoreFromLog() 242 int nwf=avg.GetDim(1); in printBlockSummary() local 247 if(nwf>1) nprops++; in printBlockSummary() 260 for(int w=0; w< nwf; w++) { in printBlockSummary() 312 setSize(nwf, naux, n_cvg); in reduceBlocks() [all …]
|
H A D | Properties.cpp | 364 nwf=1; in Properties_manager() 405 nwf=nwf_; in setSize() 418 weighted_sum.setSize(nwf); in setSize() 456 weighted_sum.setSize(nwf); in insertPoint() 457 sample_avg.setSize(nwf); in insertPoint() 458 sample_var.setSize(nwf); in insertPoint() 463 energy_avg.Resize(nwf); in insertPoint() 464 energy_var.Resize(nwf); in insertPoint() 469 for(int w=0; w < nwf; w++) { in insertPoint() 482 for(int w=0; w< nwf; w++) { in insertPoint() [all …]
|
H A D | Properties_gather.cpp | 47 int nwf=wf->nfunc(); in gatherData() local 49 myprop.setSize(nwf); in gatherData() 58 for(int w=0; w< nwf; w++) { in gatherData()
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/wavefunction/ |
H A D | Wf_return.cpp | 70 int nwf=vals.GetDim(0); in setVals() local 71 for (int w=0; w< nwf; w++) { in setVals() 158 int nwf, nst; in mpiSend() local 159 nwf=amp.GetDim(0); nst=amp.GetDim(1); in mpiSend() 160 MPI_Send(&nwf, 1, MPI_INT, node, 0, MPI_Comm_grp); in mpiSend() 164 MPI_Send(amp.v, nwf*nst, MPI_DOUBLE, node, 0, MPI_Comm_grp); in mpiSend() 168 for(int w=0; w < nwf; w++) { in mpiSend() 187 int nwf, nst; in mpiRecieve() local 190 MPI_Recv(&nwf, 1, MPI_INT, node, 0, MPI_Comm_grp, &status); in mpiRecieve() 194 Resize(nwf, nst); in mpiRecieve() [all …]
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/attic/ |
H A D | dataVis.cpp | 57 int nwf=0; //total number of wavefunctions {1,2,3,...} in main() local 102 nwf=special_getwfmax(ifilename); in main() 103 skipindex=nwf-1; in main() 126 nwf=special_getwfmax(ifilename); in main() 128 skipindex=nwf*nwalk-1; in main() 131 datapoints=parsefile(ifilename,idformat,startindex+i*nwf,skipindex,5); in main() 132 weights=parsefile(ifilename,idformat,startindex+i*nwf,skipindex,8); in main() 146 nwf=special_getwfmax(ifilename); in main() 147 if(nwf!=2) error("'-sc -1' requires a pathfile with exactly 2 wavefunctions"); in main()
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/system/ |
H A D | System.cpp | 64 int nwf = wf->nfunc(); in calcKinetic() local 65 for (int w=0; w<nwf; w++) { in calcKinetic() 116 int nwf=wf->nfunc(); in calcKineticSeparated() local 118 Wf_return temp(nwf,5); in calcKineticSeparated() 119 Kin.Resize(nelectrons, nwf); in calcKineticSeparated() 121 for(int w=0; w< nwf; w++) { in calcKineticSeparated()
|
H A D | Pseudopotential.cpp | 453 int nwf=wf->nfunc(); in calcPseudoSeparated() local 460 Wf_return val(nwf,2); in calcPseudoSeparated() 472 Array1 <doublevar> nonlocal(nwf); in calcPseudoSeparated() 523 Wf_return oldWfVal(nwf,2); in calcPseudoSeparated() 547 for(int w=0; w< nwf; w++) { in calcPseudoSeparated() 556 for(int w=0; w< nwf; w++) { in calcPseudoSeparated() 584 for(int w=0; w< nwf; w++) { in calcPseudoSeparated() 610 int nwf=wf->nfunc(); in calcNonlocWithAllvariables() local 613 assert(totalv.GetDim(1) >= nwf); in calcNonlocWithAllvariables() 619 Wf_return val(nwf,2); in calcNonlocWithAllvariables() [all …]
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | mri_wf.c | 29 int nx=nnx , nwf , ii,jj ; in wtarray_inverse() local 50 nwf = wf->nwt ; wi->nwt = nwi ; in wtarray_inverse() 61 for( jj=0 ; jj < nwf ; jj++ ) ss += wtf[jj] * sinf((jj+1)*xx) ; in wtarray_inverse() 80 for( jj=0 ; jj < nwf ; jj++ ) ss += wtf[jj] * sinf((jj+1)*xx) ; in wtarray_inverse() 305 int nwf=NW , nwi=0 ; in main() local 309 nwf = (int)strtod(argv[1],NULL) ; in main() 310 if( nwf < 1 || nwf > 99 ) nwf = NW ; in main() 316 if( nwi < 1 ) nwi = nwf ; in main() 321 INIT_wtarray(wt_for,1.0f,nwf) ; in main() 324 for( jj=1 ; jj <= nwf ; jj++ ) in main() [all …]
|
/dports/devel/libvirt/libvirt-7.10.0/src/conf/ |
H A D | nwfilter_conf.c | 375 if (nwf->varAccess) { in virNWFilterRuleDefAddVar() 384 VIR_EXPAND_N(nwf->varAccess, nwf->nVarAccess, 1); in virNWFilterRuleDefAddVar() 385 nwf->varAccess[nwf->nVarAccess - 1] = varAccess; in virNWFilterRuleDefAddVar() 399 VIR_APPEND_ELEMENT_COPY(nwf->strings, nwf->nstrings, tmp); in virNWFilterRuleDefAddString() 495 virNWFilterRuleDef *nwf, in checkVlanVlanID() argument 625 virNWFilterRuleDef *nwf, in arpOpcodeValidator() argument 650 virNWFilterRuleDef *nwf, in arpOpcodeFormatter() argument 687 virNWFilterRuleDef *nwf, in checkIPProtocolID() argument 735 virNWFilterRuleDef *nwf, in dscpValidator() argument 855 virNWFilterRuleDef *nwf, in stateValidator() argument [all …]
|
/dports/www/mnogosearch/mnogosearch-3.4.1/msearch-test/test-nwf/ |
H A D | test.cmd | 9 fail !0 exec $(SEARCHSTD) "nwf1&wf=FF1&nwf=010" > $(UDM_TEST_DIR)/test.rej 10 fail !0 exec $(SEARCHSTD) "nwf1&wf=FF1&nwf=0F0" >> $(UDM_TEST_DIR)/test.rej 13 fail !0 exec $(SEARCHSTD) "nwf1&wf=FF1&nwf=100" >> $(UDM_TEST_DIR)/test.rej 14 fail !0 exec $(SEARCHSTD) "nwf1&wf=FF1&nwf=F00" >> $(UDM_TEST_DIR)/test.rej
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
H A D | wannier_base.f90 | 47 INTEGER :: nwf variable 149 nwf = nwf_ 153 IF ( calwf == 1 .AND. nwf == 0 ) & 157 IF ( nwf > 0 ) THEN 159 ALLOCATE( iplot( nwf ) ) 161 iplot(:) = iplot_(1:nwf)
|
/dports/net-im/prosody/prosody-0.11.13/spec/ |
H A D | net_websocket_frames_spec.lua | 2 local nwf = require "net.websocket.frames"; 58 local build = nwf.build; 69 local parse = nwf.parse;
|