HELLDATIN<-function(filnam,names=NULL){
#macro to read in hellinger data files
call <- sys.call()
        nsect <- as.integer(scan(filnam, n = 1))
        z <- scan(filnam, what = list(0, 0, 0, 0, 0), flush = T, skip = 1)
        isect <- as.integer(z[[2]])
        iside <- as.integer(z[[1]])
xlat<-z[[3]]
xlong<-z[[4]]
sd<-z[[5]]
isect2<-isect[(isect<=nsect)&(iside<=3)]
iside2<-iside[(isect<=nsect)&(iside<=3)]
xlat2<-xlat[(isect<=nsect)&(iside<=3)]
xlong2<-xlong[(isect<=nsect)&(iside<=3)]
sd2<-sd[(isect<=nsect)&(iside<=3)]
ndat<-length(isect2)
list(filename=filnam,names=names,nsect=nsect,ndat=ndat,
iside=iside2,isect=isect2,xlat=xlat2,xlong=xlong2,sd=sd2,call.l=call,date.l=date())}