! Bench_storage.jnl
!  ACM  8/99
!  benchmark script for testing external function storage.
! Note: bench_storage_visual.jnl contains plots of similar computations

set mode ignore_errors

use gtsa056_1
let a = storage(temp)
set region/k=1/l=5/i=1:2/j=44:50
list  a

can region
set region/x=140w/y=10n/k=1
list a

can region

let b = temp[x=140e:60w]
let c = storage(b)
list/i=11:20 c[k=1,l=5,j=44:50@ave]

set mode/last ignore_errors

