init_BLACS Subroutine

public subroutine init_BLACS()

Arguments

None

Calls

proc~~init_blacs~~CallsGraph proc~init_blacs init_BLACS blacs_setup blacs_setup proc~init_blacs->blacs_setup sl_init sl_init proc~init_blacs->sl_init

Source Code

  subroutine init_BLACS()
    integer :: i
    !< Initialize BLACS processor grid (like MPI)
    call blacs_setup(p_rank,p_size)  ![id, size]
    !
    do i=1,int( sqrt( dble(p_size) ) + 1 )
       if(mod(p_size,i)==0) p_Nx = i
    end do
    p_Ny = p_size/p_Nx
    !
    !< Init context with p_Nx,p_Ny procs
    call sl_init(p_context,p_Nx,p_Ny)
    !
    blacs_status=.true.
  end subroutine init_BLACS