Mark R. Havens
10 lines
250 B
Fortran
10 lines
250 B
Fortran
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 |