7 lines
180 B
Text
7 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)
|