FUNCTION wlen,unit,size
;
; Uses the FSTAT function to obtain the length of the image file opened
; as the specified logical unit, and returns the word length in the file
; that corresponds to the image size.
;
status=FSTAT(unit)
RETURN,status.SIZE/(LONG(size)^2)
END