phiT=-std::atan((std::cos(thetaN)*std::cos(thetaT)+std::sin(thetaN)*std::sin(thetaT))*std::cos(phiN)/std::sin(phiN));// if quot==0, atan returns Pi/2
REALphiT=-std::atan((std::cos(thetaN)*std::cos(thetaT)+std::sin(thetaN)*std::sin(thetaT))*std::cos(phiN)/std::sin(phiN));// if quot==0, atan returns Pi/2