module test_crystal
  use crystal

  implicit none(type,external)

  private
  public :: test_crystal_run

  contains

subroutine test_crystal_run()

  call crystal_selfTest()

end subroutine test_crystal_run

end module test_crystal