8 lines
180 B
Text
8 lines
180 B
Text
|
REAL :: array(1)
|
||
|
|
|
||
|
|
DLG(NameEdit=rows, NameEdit=cols, Button='OK', TItle='Enter array dimensions')
|
||
|
|
|
||
|
|
ALLOCATE(array, cols, rows)
|
||
|
|
array(1,1) = 1.234
|
||
|
|
WRITE(Messagebox, Name) array(1,1)
|