SWWOBBLER /TPHASE

    /TPHASE tPhase

    time per switching PHASE

    Real       :: tPhase          ! time