elpa_init.F90 261 Bytes
Newer Older
Andreas Marek's avatar
Andreas Marek committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
module init_elpa

  private
  public :: elpa_init, initDone

  logical :: initDone = .false.

  contains

  subroutine elpa_init()

    implicit none

    ! must be done by all task using ELPA !!!

    initDone = .true.

  end subroutine


end module init_elpa