//VerilogA for modulator,idealpm,veriloga

`include "constants.vams"
`include "disciplines.vams"

module idealpm(Ipow,Iphase,Ilam,Opow,Ophase,Olam,Vdata);
    parameter real dph = 180 from (-inf:inf);
    input Ipow,Iphase,Ilam,Vdata;
    output Opow,Ophase,Olam;
    electrical Ipow,Iphase,Ilam,Opow,Ophase,Olam,Vdata;

    analog begin
        V(Opow) <+ V(Ipow);
        V(Ophase) <+ V(Iphase) + dph * V(Vdata) * 360 / (2 * `M_PI);
        V(Olam) <+ V(Ilam);
    end

endmodule