//VerilogA for tools,riout,veriloga

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

module riout(Ipow,Iphase,Vreal,Vimag);
    input Ipow,Iphase;
    output Vreal,Vimag;
    electrical Ipow,Iphase,Vreal,Vimag;

    analog begin
        V(Vreal) <+ V(Ipow)*cos(V(Iphase));
        V(Vimag) <+ V(Ipow)*sin(V(Iphase));
    end
endmodule