esolv_mod.F90

Go to the documentation of this file.

module esolv
  use kinds, only : dp
  implicit none

  integer :: iesolv
  logical, allocatable :: ifalgn(:), ifrsxy(:)
  real(DP), allocatable :: volel(:)

  contains

  subroutine init_esolv()
    use size_m
    implicit none

!    allocate(ifalgn(lelv), ifrsxy(lelv))
    allocate(volel(lelv)) ! verified
  end subroutine init_esolv

end module esolv