C IMPLICIT INTEGER(A-Z) CHARACTER*256 MEMBER PARAMETER ( MXFILL = 512 ) CHARACTER*(MXFILL) SRCDIR CHARACTER*(MXFILL) INCDIR C CALL OPNINC(IERROR,MEMBER,SRCDIR,INCDIR) CALL CLSINC(MEMBER) END