function trm=elev(ffreqs,dirs,wns,z,depth,xpos,ypos)

trm=ones(size(ffreqs,1),size(dirs,2));