brought into being a miracle to those who have been forgotten.
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user