siesta-4.1.5/Src/m_iodm_old.F

62       subroutine read_dynamic_dm ( maxnd, no_l, nspin, numd,
76       integer, pointer     :: numd(:)
174          numd(m) = numdg(ml)
179             listdptr(m) = listdptr(m-1) + numd(m-1)
205      .              (listd(listdptr(ml)+im),im=1,numd(ml))
207                read(unit1) (listd(listdptr(ml)+im),im=1,numd(ml))
221             call MPI_IRecv(listd(listdptr(ml)+1),numd(ml),
246      .                 (dm(listdptr(ml)+im,is),im=1,numd(ml))
248                   read(unit1) (dm(listdptr(ml)+im,is),im=1,numd(ml))
262                call MPI_IRecv(dm(listdptr(ml)+1,is),numd(ml),
287       subroutine read_dm ( maxnd, no_l, nspin, numd,   argument
316       integer, intent(out) :: numd(no_l)
403          numd(m) = numdg(ml)
411             listdptr(m) = listdptr(m-1) + numd(m-1)
438      .              (listd(listdptr(ml)+im),im=1,numd(ml))
440                read(unit1) (listd(listdptr(ml)+im),im=1,numd(ml))
454             call MPI_IRecv(listd(listdptr(ml)+1),numd(ml),
479      .                 (dm(listdptr(ml)+im,is),im=1,numd(ml))
481                   read(unit1) (dm(listdptr(ml)+im,is),im=1,numd(ml))
495                call MPI_IRecv(dm(listdptr(ml)+1,is),numd(ml),
522      $     numd, listdptr, listd, dm, userfile)
527       integer, intent(in) :: numd(1:no_l)
578             numdg(m) = numd(ml)
582             call MPI_ISend(numd(ml),1,MPI_integer,
622      .              (listd(listdptr(ml)+im),im=1,numd(ml))
624                write(unit1) (listd(listdptr(ml)+im),im=1,numd(ml))
633             call MPI_ISend(listd(listdptr(ml)+1),numd(ml),MPI_integer,
668      .                 (dm(listdptr(ml)+im,is),im=1,numd(ml))
670                   write(unit1) (dm(listdptr(ml)+im,is),im=1,numd(ml))
679                call MPI_ISend(dm(listdptr(ml)+1,is),numd(ml),