18 lines
234 B
Fortran
18 lines
234 B
Fortran
|
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
|