Searched refs:maxloc2 (Results 1 – 5 of 5) sorted by relevance
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | rhoofd.F90 | 83 integer :: lastop, maxloc, maxloc2, triang, nc local 137 maxloc2 = maxval(endpht(1:np)-endpht(0:np-1)) 138 maxloc = maxloc2 + minloc 157 allocate( ilocal(no), ilc(maxloc2), iorb(maxloc) ) 158 allocate( Dlocal(triang,nspin), Clocal(nsp,maxloc2) )
|
H A D | rhoofdsp.F90 | 81 last, lasta, lastop, maxloc, maxloc2, maxndl, nc, nphiloc, & local 114 maxloc2 = maxval(endpht(1:nmpl)-endpht(0:nmpl-1)) 115 maxloc = maxloc2 + minloc 130 call re_alloc( ilc, 1, maxloc2, 'ilc', 'rhoofdsp' ) 134 call re_alloc( Clocal, 1, nsp, 1, maxloc2, 'Clocal', 'rhoofdsp' )
|
H A D | vmatsp.F90 | 78 last, lasta, lastop, maxloc, maxloc2, nc, nlocal, & local 110 maxloc2 = maxval(endpht(1:nmpl)-endpht(0:nmpl-1)) 111 maxloc = maxloc2 + minloc 126 call re_alloc( ilc, 1, maxloc2, 'ilc', 'vmatsp' ) 131 call re_alloc( Clocal, 1, nsp, 1, maxloc2, 'Clocal', 'vmatsp' )
|
H A D | vmat.F90 | 84 integer :: maxloc, maxloc2, nc, nlocal, nphiloc local 131 maxloc2 = maxval(endpht(1:np)-endpht(0:np-1)) 132 maxloc = maxloc2 + minloc 171 allocate( Clocal(nsp,maxloc2) ) 172 allocate( ilocal(no) , ilc(maxloc2) , iorb(maxloc) )
|
H A D | delk.F90 | 85 integer :: maxloc, maxloc2, nc, nlocal, nphiloc local 146 maxloc2 = maxval(endpht(1:np)-endpht(0:np-1)) 147 maxloc = maxloc2 + minloc 187 allocate( Clocal(nsp,maxloc2) ) 188 allocate( ilocal(no) , ilc(maxloc2) , iorb(maxloc) )
|