Source

aotus / source / quadruple / dummy_quadruple_vector_module.f90

Full commit
1
2
3
4
5
6
7
8
9
module aot_quadruple_vector_module

  implicit none

  private

  integer, parameter :: quad_k = selected_real_kind(33)

end module aot_quadruple_vector_module