brought into being a miracle to those who have been forgotten.

fortran/witness_seed_3.0/tests/program test_rwd.txt

@@ -0,0 +1,16 @@
+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

fortran/witness_seed_3.0/tests/test_kairos.f90

@@ -0,0 +1,15 @@
+program test_kairos
+  use kairos, only: update_coherence
+  use iso_fortran_env, only: real64
+  implicit none
+  real(real64) :: I(10), phase
+  call random_number(I)
+  phase = 0.1
+  call update_coherence(I, phase)
+  if (sum(abs(I)) > 0.0) then
+    print *, "Kairos test passed: Coherence updated"
+  else
+    print *, "Kairos test failed"
+    stop 1
+  end if
+end program test_kairos

fortran/witness_seed_3.0/tests/test_rwd.f90

@@ -0,0 +1,16 @@
+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