| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | ordern.F | 16 integer, save :: maxnc = 1 variable
178 call re_alloc(listc,1,maxnc,1,no_l,name='listc')
186 call re_alloc(c,1,maxnc,1,no_l,1,nspin,name='c')
189 call re_alloc(g,1,maxnc,1,no_l,1,nspin,name='g')
232 call re_alloc(listc,1,maxnc,1,no_cl,name='listc')
234 call re_alloc(c,1,maxnc,1,no_cl,1,nspin,name='c')
236 call re_alloc(xi,1,maxnc,1,no_cl,1,nspin,name='xi')
237 call re_alloc(g,1,maxnc,1,no_cl,1,nspin,name='g')
243 call iolwf( 'read', no_u, no_cl, no_l, maxnc,
344 call globaliseC(no_cl,maxnc,numc,c,nspin,Node)
[all …]
|
| H A D | iolwf.F | 8 subroutine iolwf( task, nbasis, nbasisCloc, nbasisloc, maxnc, argument
52 integer nbasis, nbasisCloc, nbasisloc, nspin, maxnc
161 if (ncmax.gt.maxnc) then
162 maxnc = ncmax
163 call re_alloc(listc,1,maxnc,1,nbasisCloc,name='listc')
164 call re_alloc(listcold,1,maxnc,1,nbasisloc,name='listcold')
165 call re_alloc(c,1,maxnc,1,nbasisCloc,1,nspin,name='c')
167 call re_alloc(xi,1,maxnc,1,nbasisCloc,1,nspin,name='xi')
168 call re_alloc(g,1,maxnc,1,nbasisCloc,1,nspin,name='g')
169 call re_alloc(hg,1,maxnc,1,nbasisCloc,1,nspin,name='hg')
[all …]
|
| H A D | extrapolon.f | 8 subroutine extrapolon(istep,iord,nspin,nbasis,nbasisCloc,maxnc, argument
72 integer, intent(in) :: maxnc
74 integer, intent(in) :: listc(maxnc, nbasisCloc)
77 integer, intent(inout) :: listcold(maxnc, nbasisloc)
78 real(dp), intent(inout) :: cold(maxnc, nbasisloc, nspin)
79 real(dp), intent(inout) :: c(maxnc, nbasisCloc, nspin)
|
| H A D | atomlwf.F | 10 . maxnc,ncmax,nctmax,nfmax,nftmax,nhijmax,nbands, argument
93 integer, intent(inout) :: maxnc local
212 call re_alloc(listc,1,maxnc,1,no_cl,
214 call re_alloc(listcold,1,maxnc,1,no_l,
216 call re_alloc(c,1,maxnc,1,no_cl,1,nspin,
218 call re_alloc(cold,1,maxnc,1,no_l,1,nspin,
238 do i = 1,maxnc
376 if (numc(mul) .gt. maxnc) then
378 maxnc = maxnc + 50 ! this is not optimal
381 call re_alloc(listc,1,maxnc,1,no_cl,name='listc')
[all …]
|
| /dports/science/PETSc/petsc-3.14.1/src/dm/impls/composite/ |
| H A D | packm.c | 93 PetscInt nc,rstart,*ccols,maxnc; in DMCreateMatrix_Composite_AIJ() local
102 maxnc = 0; in DMCreateMatrix_Composite_AIJ()
106 maxnc = PetscMax(nc,maxnc); in DMCreateMatrix_Composite_AIJ()
108 ierr = PetscMalloc1(maxnc,&ccols);CHKERRQ(ierr); in DMCreateMatrix_Composite_AIJ()
135 PetscInt nc,rstart,row,maxnc,*ccols; in DMCreateMatrix_Composite_AIJ() local
144 maxnc = 0; in DMCreateMatrix_Composite_AIJ()
147 maxnc = PetscMax(nc,maxnc); in DMCreateMatrix_Composite_AIJ()
150 ierr = PetscMalloc1(maxnc,&ccols);CHKERRQ(ierr); in DMCreateMatrix_Composite_AIJ()
|
| /dports/math/R-cran-terra/terra/src/ |
| H A D | raster_methods.cpp | 3035 size_t maxnc = 3 + nl * bylayer; in reclassify() local
3039 if (((nc != maxnc) && (nc != (maxnc-1))) || nr < 1) { in reclassify()
3150 size_t maxnc = 3 + bylayer * (nlyr() - 1); in reclassify() local
3152 if (nc > maxnc) { in reclassify()
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | plug_realtime.c | 4296 int maxnc ; /* 20 May 2009 -- for MCW and Andre Jesmanowicz */ in RT_start_dataset() local
4306 maxnc = (int)AFNI_numenv("AFNI_REALTIME_MAX_CONTROLLERS") ; in RT_start_dataset()
4307 if( maxnc <= 0 ) maxnc = 2 ; in RT_start_dataset()
4308 else if( maxnc > MAX_CONTROLLERS ) maxnc = MAX_CONTROLLERS ; in RT_start_dataset()
4312 if( nc < rtin->num_chan && nc < maxnc ){ in RT_start_dataset()
4313 nc = MIN( rtin->num_chan , maxnc ) - nc ; /* number to add */ in RT_start_dataset()
4337 tc = MIN( nc , rtin->num_chan ) ; tc = MIN( tc , maxnc ) ; in RT_start_dataset()
|
| /dports/science/siesta/siesta-4.1.5/Docs/ |
| H A D | CHANGES | 19222 ordern.F : maxnc is now the larger of ncmax and maxnc after
21715 ordern.F : listcold now dimensioned as (maxnc,maxoloc) to save
|
| /dports/astro/qmapshack/qmapshack-V_1.16.1/3rdparty/alglib/tests/ |
| H A D | test_c.cpp | 69206 ae_int_t maxnc; in testlda() local
69237 maxnc = 5; in testlda()
69248 for(nc=2; nc<=maxnc; nc++) in testlda()
|
| /dports/math/alglib/alglib-cpp/tests/ |
| H A D | test_c.cpp | 126090 ae_int_t maxnc; in testlda() local
126121 maxnc = 5; in testlda()
126132 for(nc=2; nc<=maxnc; nc++) in testlda()
|