Source

aotus / source / extdouble / dummy_extdouble_fun_module.f90

! Copyright (C) 2011-2013 German Research School for Simulation Sciences GmbH,
!              Aachen and others.
! Please see the ../COPYRIGHT file one directory above for details.

module aot_extdouble_fun_module

  implicit none

  private

  integer, parameter :: xdble_k = selected_real_kind(18)

end module aot_extdouble_fun_module