photon Interface

public interface photon

Module Procedures

public function init_source(choice)

Bind emission function to photon object

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: choice

Name of light source to use

Return Value type(photon)

private function init_photon(val)

set up all the variables in the photon object

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: val

value to assing to variables

Return Value type(photon)