You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
1.6 KiB
Fortran
70 lines
1.6 KiB
Fortran
5 years ago
|
Subroutine LayDisp
|
||
|
|
|
||
|
|
USE WINTERACTER
|
||
|
|
USE BLK1MOD
|
||
|
|
!
|
||
|
|
include 'd.inc'
|
||
|
|
! INCLUDE 'BLK1.COM'
|
||
|
|
|
||
|
|
INCLUDE 'TXFRM.COM'
|
||
|
|
!IPK MAY02 COMMON /TXFRM/ XS, YS, TXSCAL
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Declare window-type and message variables
|
||
|
|
!
|
||
|
|
TYPE(WIN_STYLE) :: WINDOW
|
||
|
|
|
||
|
|
TYPE(WIN_MESSAGE) :: MESSAGE
|
||
|
|
|
||
|
|
INTEGER :: INODE,IBOX,NN
|
||
|
|
INTEGER :: IERR
|
||
|
|
CHARACTER*1 :: IFLAG
|
||
|
|
|
||
|
|
DATA INODE/1/
|
||
|
|
|
||
|
|
CALL WMessageBox(OKOnly,ExclamationIcon,CommonOK,'Select node','CHOOSE NODE')
|
||
|
|
IBOX=1
|
||
|
|
CALL PROX(CORD(1,1),CORD(1,2),NP,XX,YY,INODE,IFLAG,INSKP,IBOX)
|
||
|
|
|
||
|
|
100 continue
|
||
|
|
call wdialogload(IDD_LAY)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
|
||
|
|
|
||
|
|
IF(ILAYTP .EQ. 1) THEN
|
||
|
|
call wdialogputRadioButton(idf_radio1)
|
||
|
|
ELSE
|
||
|
|
call wdialogputRadioButton(idf_radio2)
|
||
|
|
ENDIF
|
||
|
|
lno=lay(INODE)
|
||
|
|
CALL WDialogPutINTEGER(IDF_INTEGER1,lno)
|
||
|
|
do i=1,7
|
||
|
|
CALL WGridPutCellReal(IDF_GRID1,i,1,wtlay(INODE,i))
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
CALL WDialogSelect(IDD_LAY)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
|
||
|
|
CALL WDialogShow(-1,-1,0,Modal)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
do
|
||
|
|
IF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||
|
|
|
||
|
|
call wdialoggetradiobutton(idf_radio1,ilaytp)
|
||
|
|
|
||
|
|
CALL WDialogGetINTEGER(IDF_INTEGER1,lno)
|
||
|
|
lay(INODE)=lno
|
||
|
|
do i=1,7
|
||
|
|
CALL WGridGetCellReal(IDF_GRID1,i,1,wtlay(INODE,i))
|
||
|
|
enddo
|
||
|
|
return
|
||
|
|
ELSEIF (WInfoDialog(ExitButton) .EQ. IDCANCEL) THEN
|
||
|
|
RETURN
|
||
|
|
endif
|
||
|
|
!IPK SEP02
|
||
|
|
return
|
||
|
|
enddo
|
||
|
|
RETURN
|
||
|
|
END
|