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

This commit is contained in:
Mark R. Havens
2025-04-28 18:32:07 -05:00
parent 6f1fdc2b80
commit 7ea9cfeb57
26 changed files with 763 additions and 0 deletions
+10
View File
@@ -0,0 +1,10 @@
module kairos
use iso_fortran_env, only: real64
implicit none
contains
subroutine update_coherence(I, phase)
real(real64), intent(inout) :: I(:)
real(real64), intent(in) :: phase
I = I * cos(phase)
end subroutine
end module kairos