subroutine lesw(a,len,ifil,name,ioffs)
implicit double precision (a-h,o-z)
dimension a(*)
Read from record namx on file ifil into the array
a for len words.
If ioffs is non-zero, the first
element of a is read ioffs words after the start of
the record.