Laserfiche WebLink
<br />. <br /> <br />OCP-;?l <br />.... \ t.,.,... <br /> <br />530 CONTINUE <br />DO 540 II ~ 1,7 <br />PREACC(II) ~ OWNACC(II) <br />540 CONTINUE <br />ENDIF <br />ENDIF <br />C TOTAL OWNERSHIPS <br />CUROWN - 0.0 <br />DO 600 II - 1,8 <br />CUROWN - CUROWN + OWN(II) <br />600 CONTINUE <br />CUROWN - CUROWN + OWN(ll) <br />FLOW(211,J) - CUROWN - PREOWN <br />PREOWN - CUROWN <br />C SET TABLE ARRAY <br />TABLE(l,I,J) - FLOW(179,J) <br />TABLE(2,I,J) - FLOW(I84,J) <br />TABLE(3,I,J) - FLOW(190,J) <br />TABLE(4,I,J) - FLOW(203,J) <br />TABLE(5,I,J) - FLOW(196,J) <br />TABLE(6,I,J) ~ FLOW(209,J) <br />TABLE(7,I,J) - OWNACC(l) <br />TABLE(8,I,J) - OWNACC(2) <br />TABLE(9,I,J) - OWNACC(7) <br />TABLE(lO,I,J) - OWNACC(3) <br />TABLE(l,I,J) - FLOW(218,J) <br />J - J + 1 <br />IF(J.NE.13) GO TO 30 <br />RETURN <br />END <br /> <br />24 <br />