subroutine arr(l,m,n,a) integer l,m,n real*8 a(l,m,n) end