! {HDDMAP} ! ! buffers/maps ! MAP (NODES) node$ = .node.buf.siz% MAP (NODES) n%(4%), ! connected nodes & ! -ve denotes blocked off & ! zero means no node & nodeflow, ! drawoff from node - litres/sec & xnode, ynode,! node coords & elevation, ! reduced level at node (m - AHD)) & resid.head, ! head at the node (m) & procflag% ! bit set means branch "done" ! MAP (PIPES) pipe$ = .pipe.buf.siz% MAP (PIPES) node1%, node2%, diam, length, pipeflow ! ! note - pipeflow is +ve in direction node1 -> node2 ! MAP (LOOPS) loop$ = .loop.buf.siz% MAP (LOOPS) loop%, l.node%(.max.nodes%) ! MAP (INBUF) inbuf$ = 128% MAP (CMDBUF) command.buffer$ = .cmd.line.siz% ! COMMON (SETUP) in.put%, input%, pipe.coeff, & node.file.open%, pipe.file.open%, & loop.file.open%, & echo%, first%, ask%, help%, & node.inp%, pipe.inp%, loop.inp%, line.inp%, & heads%, flows%, lo.op%, co.eff%, & loopdata%, results%, spare1%, & debug%, debug1%, debug2%, & more.data%, not.finished% !