;+NAME/ONE LINE DESCRIPTION OF ROUTINE: ; ISLAC unknown. ; function islac, scid thistype = 0 type = scid2mnftype(scid) return, (type eq thistype) end