! Bench_pass_thru.jnl
!  ACM  8/99
!  benchmark script for testing external function pass_thru.
! Note: bench_pass_thru_visual.jnl contains plots of similar computations

set mode ignore_errors

can region
let a = pass_thru(x)
list a[i=1:20]
set region/i=1:20
list sin(a)
can var/all
can region

use coads_climatology
let a = pass_thru(sst[l=@ave,y=@sbx:11])
list/x=50 a
let a = pass_thru(sst)
set region/@w
list/x=50 a[l=1]
list/x=50 a[l=@ave,y=@sbx:11]

set mode/last ignore_errors
