C       OTHER
C
!        CALL WDialogSelect(IDD_OTHER)
!        J=EDIT_SURFACE
        CALL ITOAA(J,AJ)
!        Call WDialogPutInteger(IDF_SURFNUM,J)
C
C       PARAX OR REAL
C
!        IF(ALENS(124,EDIT_SURFACE).EQ.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_REAL1)
!        IF(ALENS(124,EDIT_SURFACE).NE.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_REAL2)
C
C       FOOT PRINT BLOCKING
C
!        IF(ALENS(58,EDIT_SURFACE).EQ.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_FP1)
!        IF(ALENS(58,EDIT_SURFACE).NE.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_FP2)
C
C       FORCED DUMMY
C
!        IF(ALENS(68,EDIT_SURFACE).EQ.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_DUM1)
!        IF(ALENS(68,EDIT_SURFACE).NE.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_DUM2)
C
C       INR
C
!        IF(ALENS(143,EDIT_SURFACE).EQ.0.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_INR1)
!        IF(ALENS(143,EDIT_SURFACE).EQ.1.0D0)
!     1  CALL WDIALOGPUTRADIOBUTTON(IDF_INR2)
!        CALL WDIALOGPUTDOUBLE(IDF_INR,ALENS(76,EDIT_SURFACE))
C
C       PRICE, SPGR AND THM
!        CALL WDIALOGPUTDOUBLE(IDF_THM,ALENS(110,EDIT_SURFACE))
!        CALL WDIALOGPUTDOUBLE(IDF_SPGR,ALENS(102,EDIT_SURFACE))
!        CALL WDIALOGPUTDOUBLE(IDF_PRICE,ALENS(111,EDIT_SURFACE))
C
C       LBL
!        CALL WDIALOGPUTSTRING(IDF_LBL,LBL(EDIT_SURFACE)(1:80))
C
C       COATING FILE NUMBER
!        CALL WDIALOGPUTINTEGER(IDF_COATFILENUM,
!     1  INT(ALENS(112,EDIT_SURFACE)))
C
C
C       RAY/SURFACE RANDOM ERROR
!        CALL WDIALOGPUTDOUBLE(IDF_RAYERR,
!     1  ALENS(144,EDIT_SURFACE))
C
!        CALL WDialogShow(-1,-1,0,Modeless)
