!        CALL WDIALOGFIELDSTATE(IDF_MODNAME,2)
!        CALL WDIALOGCLEARFIELD(IDF_MODNAME)
!        CALL WDIALOGFIELDSTATE(IDF_ND,2)
!        CALL WDIALOGCLEARFIELD(IDF_ND)
!        CALL WDIALOGFIELDSTATE(IDF_VD,2)
!        CALL WDIALOGCLEARFIELD(IDF_VD)
!        CALL WDIALOGFIELDSTATE(IDF_DPART,2)
!        CALL WDIALOGCLEARFIELD(IDF_DPART)
!        CALL WDIALOGFIELDSTATE(IDF_FINDGLASS,2)
!        CALL WDIALOGCLEARFIELD(IDF_FINDGLASS)
!        CALL WDIALOGFIELDSTATE(IDF_MODTOCAT,2)
!        CALL WDIALOGFIELDSTATE(IDF_MODELOK,2)
