SUBROUTINE MatParse(MAT Matrix,MatSize,SaveDA,Delim,BlockSize)
***
*
 LastUpdated... = "Rev: 09:39 06NOV87 MIS.SNA.PROG.ATM <D4.3>DEVEL 47 E"
***
* Copyright (C) 2000, Andrew McLaughlin.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
* or http://www.fsf.org/copyleft/gpl.html
*
*   Enjoy, Andrew McLaughlin - andrew@mclaughlin.orange.ca.us
*** 
*
* Description:
*    This subroutine performs a special form of the MATPARSE function that
* 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.
*
***

$INCLUDE UPCASE.EQUATES

     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