|
地板
楼主 |
发表于 2024-12-7 12:33:50
|
只看该作者
[Fortran] 纯文本查看 复制代码 011 | TYPE ( WIN_MESSAGE ) :: MESSAGE |
012 | LOGICAL :: QUIT = .FALSE. |
013 | INTEGER :: ITYPE , I , J , ijk |
015 | INTEGER :: NVC , NPC , NJQ , NN |
026 | REAL :: XXT ( 66 ) , XDT ( 66 ) |
027 | REAL :: X ( 40000 ) , Y ( 40000 ) |
030 | CALL WindowOpen ( HideWindow ) |
032 | CALL WDialogLoad ( IDD_DIALOG 001 ) |
033 | CALL WDialogShow ( itype = Modeless ) |
038 | CALL WMessage ( ITYPE , MESSAGE ) |
041 | SELECT CASE ( MESSAGE % VALUE 1 ) |
043 | CALL WDialogGetInteger ( IDF_INTEGER 1 , NVC ) |
044 | CALL WDialogGetInteger ( IDF_INTEGER 2 , NPC ) |
045 | CALL WDialogGetInteger ( IDF_INTEGER 3 , NJQ ) |
046 | CALL WDialogGetInteger ( IDF_INTEGER 4 , NN ) |
047 | CALL WDialogGetReal ( IDF_REAL 1 , LSTART ) |
048 | CALL WDialogGetReal ( IDF_REAL 2 , LEND ) |
049 | CALL WDialogGetReal ( IDF_REAL 3 , XYZ 0 ( 1 ) ) |
050 | CALL WDialogGetReal ( IDF_REAL 4 , XYZ 0 ( 2 ) ) |
051 | CALL WDialogGetReal ( IDF_REAL 5 , XYZ 0 ( 3 ) ) |
052 | CALL WDialogGetReal ( IDF_REAL 6 , NALF ) |
053 | CALL WGridRows ( IDF_GRID 1 , NVC +1 ) |
054 | CALL WGridRows ( IDF_GRID 2 , NPC +1 ) |
055 | CALL WGridRows ( IDF_GRID 3 , NJQ ) |
056 | CALL WGridRows ( IDF_GRID 4 , NN ) |
059 | CALL WGridGetCellReal ( IDF_GRID 1 , 2 , i , CHPL ( i ) ) |
060 | CALL WGridGetCellReal ( IDF_GRID 1 , 3 , i , CHPR ( i ) ) |
063 | CALL WGridGetCellReal ( IDF_GRID 1 , 4 , i , CHPI ( i ) ) |
066 | CALL WGridGetCellReal ( IDF_GRID 2 , 3 , i , PR ( i ) ) |
067 | CALL WGridGetCellReal ( IDF_GRID 2 , 4 , i , ALF ( i ) ) |
068 | CALL WGridGetCellReal ( IDF_GRID 2 , 5 , i , LS ( i ) ) |
071 | CALL WGridGetCellReal ( IDF_GRID 2 , 2 , i , JD ( i ) ) |
076 | CALL WGridGetCellReal ( IDF_GRID 3 , 2 , i , XXT ( i ) ) |
077 | CALL WGridGetCellReal ( IDF_GRID 3 , 3 , i , XDT ( i ) ) |
082 | CALL WGridGetCellReal ( IDF_GRID 4 , 1 , i , X ( i ) ) |
083 | CALL WGridGetCellReal ( IDF_GRID 4 , 2 , i , Y ( i ) ) |
099 | WRITE ( * , 774 ) NVC , NPC , NJQ , NN |
100 | WRITE ( * , 772 ) LSTART , LEND |
101 | WRITE ( * , 773 ) XYZ 0 ( 1 ) , XYZ 0 ( 2 ) , XYZ 0 ( 3 ) |
105 | WRITE ( * , 772 ) CHPL ( I ) , CHPR ( I ) |
113 | WRITE ( * , 773 ) PR ( J ) , ALF ( J ) , LS ( J ) |
121 | WRITE ( * , 772 ) XXT ( J ) , XDT ( J ) |
125 | WRITE ( * , 772 ) X ( I ) , Y ( I ) |
|
|