SUBROUTINE MatParse(Matrix,MatSize,SaveDA,Delim,BlockSize)
****
*
 LastUpdated... = "Rev: 09:39 06NOV87 MIS.SNA.PROG.ATM <D4.3>DEVEL 47 E"
*
****
*
* Description:
*    This subroutine performs a special form of the MATPARSE function the
* allows specification of blocksize.  In that the number of delimited strings
* to put into each line can vary from one (the default).  This subroutine was
* generated because the ####() will no longer be compileable at rev 7.0.
*
* Files affected:
*    Inputs:
*
*    Outputs:
*
*    Both:
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
* DEVEL   10-21-87 ATM        Initial coding
*         05May93  Andrew     Rewrite to do what the ####() did.
*
****


     DIM MATRIX(MATSIZE)
*     ####(5000,BLOCKSIZE)
*     ####(1176)
*     MATPARSE MATRIX FROM DA, DELIM
DA = SaveDA
for i = 1 to MatSize
until len(DA) eq 0
   Matrix(i) = field(DA,Delim,1,BlockSize)
   DA = field(DA,Delim,BlockSize+1,len(DA))
next i

     RETURN
  END