./32_util/proc_distrb

ABINIT/proc_distrb_cycle

ABINIT/proc_distrb_cycle [ Functions ]

NAME

  proc_distrb_cycle

FUNCTION

  test a condition to cycle

  Copyright (C) 2012-2018 ABINIT group (FJ)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .
  For the initials of contributors, see
  ~abinit/doc/developers/contributors.txt .

INPUTS

PARENTS

CHILDREN

SOURCE

25 #if defined HAVE_CONFIG_H
26 #include "config.h"
27 #endif
28 
29 #include "abi_common.h"
30 
31 function proc_distrb_cycle(distrb,ikpt,iband1,iband2,isppol,me) 
32 
33  use defs_basis
34 
35 !This section has been created automatically by the script Abilint (TD).
36 !Do not modify the following lines by hand.
37 #undef ABI_FUNC
38 #define ABI_FUNC 'proc_distrb_cycle'
39 !End of the abilint section
40 
41  implicit none
42 
43 !Arguments ------------------------------------
44 !scalars
45  integer,intent(in) :: ikpt,iband1,iband2,isppol,me
46  integer,allocatable,intent(in) :: distrb(:,:,:)
47  logical :: proc_distrb_cycle
48 
49 ! *************************************************************************
50  proc_distrb_cycle=.false.
51  if (allocated(distrb)) then
52    if (isppol==-1) then
53      proc_distrb_cycle=(minval(abs(distrb(ikpt,iband1:iband2,:)-me))/=0)
54    else
55      proc_distrb_cycle=(minval(abs(distrb(ikpt,iband1:iband2,isppol)-me))/=0)
56    end if
57  end if
58 
59 end function proc_distrb_cycle

TABLE OF CONTENTS

ABINIT/proc_distrb_cycle [ Functions ]