!        CALL WDIALOGCLEARFIELD(IDF_USER)
!        CALL WDIALOGFIELDSTATE(IDF_USER,2)
!        CALL WDIALOGCLEARFIELD(IDF_USERNAME)
!        CALL WDIALOGFIELDSTATE(IDF_USERNAME,2)
!        CALL WDIALOGFIELDSTATE(IDF_USEROK,2)
