Searched refs:nvmaxl (Results 1 – 3 of 3) sorted by relevance
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | vmat.F90 | 85 integer :: nvmaxl, triang, lenx, leny, lenz,lenxy local 137 nvmaxl = listdlptr(nrowsDscfL) + numdl(nrowsDscfL) 139 nvmaxl = 1 180 call re_alloc( t_DscfL, 1, nvmaxl, 1, spin%H, 1, NTH, & 192 DscfL => t_DscfL(1:nvmaxl,:,TID) 193 DscfL(1:nvmaxl,:) = 0._dp 511 do ind = 1, nvmaxl 540 DscfL => t_DscfL(1:nvmaxl,1:spin%H,1) 541 call matrixMtoO( nvmaxl, nvmax, numVs, listVsptr, nuo, &
|
H A D | delk.F90 | 86 integer :: nvmaxl, triang, lenx, leny, lenz,lenxy local 152 nvmaxl = listdlptr(nrowsDscfL) + numdl(nrowsDscfL) 154 nvmaxl = 1 196 call re_alloc( t_DscfL, 1, nvmaxl, 1, 2, 1, NTH, & 208 DscfL => t_DscfL(1:nvmaxl,1:2,TID) 209 DscfL(1:nvmaxl,1:2) = 0.0_dp 594 do ind = 1, nvmaxl 620 DscfL => t_DscfL(1:nvmaxl,1:2,1) 621 call matrixMtoOC( nvmaxl, nvmax, numVs, listVsptr, nuo, DscfL, delkmat )
|
H A D | vmatsp.F90 | 79 nphiloc, nvmaxl, iii(3) local 116 nvmaxl = listdlptr(nrowsDscfL) + numdl(nrowsDscfL) 118 nvmaxl = 1 137 call re_alloc( DscfL, 1, nvmaxl, 1, nspin, 'DscfL', 'vmatsp' ) 138 DscfL(1:nvmaxl,1:nspin) = 0.0_dp 443 call matrixMtoO( nvmaxl, nvmax, numVs, listVsptr, nuo, &
|