//VerilogA for lightsource,cw_powinput,veriloga
`include "constants.vams"
`include "disciplines.vams"

module cw_powinput(Vpow,Vphase,Vlam,Opow,Ophase,Olam);
	parameter real GainCoeff = 1 from [0:inf);
	parameter real PhaseCoeff = 0 from (-360:360);
	
	input Vpow,Vphase,Vlam;
	output Opow,Ophase,Olam;
	electrical Vpow,Vphase,Vlam,Pout,Opow,Ophase,Olam; 

	analog begin
		V(Opow) <+ GainCoeff*V(Vpow);
		V(Ophase) <+ PhaseCoeff+V(Vphase);
		V(Olam) <+ V(Vlam);
	end

endmodule