1337
1338
use moreMeshSubs, only: initMeshDistr
1338
1339
use moreMeshSubs, only: allocASynBuffer
1339
1340
use moreMeshSubs, only: UNIFORM, QUADRATIC, LINEAR
1341
1341
use alloc, only: re_alloc, de_alloc
1344
1345
integer, intent(in) :: nm(3), nmpl, norb, iaorb(norb),
1346
1347
integer, intent(out) :: numphi(nmpl)
1348
1350
integer :: ii, io, ia, iphi, is, iop, ip0, isp
1349
1351
real(dp) :: r2o, dxsp(3,nsp), r2sp(nsp)