updateMono Subroutine

private subroutine updateMono(this, wavelength)

Type Bound

mono

Arguments

Type IntentOptional Attributes Name
class(mono), intent(inout) :: this
real(kind=wp), intent(out) :: wavelength

Source Code

    subroutine updateMono(this, wavelength)

        implicit none

        class(Mono),   intent(inout) :: this
        real(kind=wp), intent(out)   :: wavelength

        ! don't do anything as wavelength will not change
        wavelength = 0.0_wp

    end subroutine updateMono