; Do not change filenames or add or remove FILEI/FILEO statements using an editor. Use Cube/Application Manager.
RUN PGM=MATRIX PRNFILE="D:\JOB\D3\MODEL\NEW\APPLICATIONS\MCMAT00D.PRN"
FILEO MATO[1] = "D:\JOB\D3\MODEL\NEW\BASE\OUTPUT\NEW FOLDER\TEST A1DECK.MAT",
MO=1-6,NAME=HBO,ZERO_HBO,ONE_HBO,TWO_HBO,TOTAL,DIFF,dec=31*s
FILEI ZDATI[1] = "D:\JOB\D3\Model\New\Base\Output\A1DECK.dbf"
FILEI MATI[1] = "D:\JOB\D3\Model\New\Base\Output\PSNTRIPS_A07.MAT"

; The MATRIX module does not have any explicit phases.  The module does run within an implied ILOOP
; where I is the origin zones.  All user statements in the module are processed once for each origin.
; Matrix computation (MW[#]=) are solved for all values of J for each I.  Thus for a given origin zone I
; the values for all destination zones J are automatically computed.  The user can control the computations
; at each J by using a JLOOP.

ZONEMSG=100
MW[1]=MI.1.HBO
MW[2]=MI.1.HBO*ZI.1.nwsh0[i]*0.01
MW[3]=MI.1.HBO*ZI.1.nwsh1[i]*0.01
MW[4]=MI.1.HBO*ZI.1.nwsh2[i]*0.01
MW[5]=MW[2]+MW[3]+MW[4]
MW[6]=MW[1]-MW[5]


ENDRUN
