mrhavens/witness_seed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Purged refuse from the sacred bowels of testing, to honor the Lords of Fortran.

Browse source
This commit is contained in:
Mark R. Havens 2025-04-29 06:07:18 -05:00
parent 197a65776c
commit 48b20c54ce
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
fortran/witness_seed_3.0/tests/program test_rwd.txt
View file

@ -1,16 +0,0 @@
program test_rwd
use rwd, only: compute_dynamics, compute_fieldprint
use iso_fortran_env, only: real64
implicit none
real(real64) :: I(10), I_dot(10), phase, fieldprint
call random_number(I)
phase = 0.0
call compute_dynamics(I, I_dot, phase)
call compute_fieldprint(I, fieldprint)
if (fieldprint > 0.0) then
print *, "RWD test passed: Fieldprint =", fieldprint
else
print *, "RWD test failed"
stop 1
end if
end program test_rwd