divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
# defines for attaching files
define(`CLEAR_FILES',`call ifill(FREE_FILE,stat,MAXFC)')
divert(0)
common/filcds/nfc,stat(MAXFC),nsou,soustk(MAXFC) # file code stack
integer nfc,stat,nsou,soustk
SCCS_ID(97218,`@(#)'attach.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
