... (3,2052,0:5,3,9) integer(4) :: it2(0:5, 3,9),in2(0:5, 3,9),iv2 (9) ! zur Berechnung mittels Keplerscher Gleichung real ( dimension :: res(12),rp (3,4),md(0:9),pan (5),sd (2),zjda (4) dimension :: df(6),diff (9),r(6),rku(3),rk(12) dimension :: x(7),e (7),iw(100),f(9),y(9),z(9),w(1000) dimension :: x0 (7),iw0(4),w0 (3),zmem(78),inum(0:4) dimension :: ida (7),da (7),id5 (5,7),da5 (5,7) 575 dimension :: xx(5),yy (5),test(10),ort(0:9,4),rcm (3) if (ir/=i0) go to 500 re(25+ii) = res(1); re(28+ii) = res(5) re(26+ii) = res(2); re(29+ii) = res (4) 1465 re(27+ii) = res(3); re(30+ii) = res (6) if (i<=4) re(3*i-2) = res(11) enddo endif 1470 !.....Korrelation der Positionen pruefen ic = i0; iwo = i0 df(1) = re(1)-re(4); df(2) = re(1)-re (7) df(3) = re(1)-re(10); df(4) = re(4)-re(7) df(5) = re(4)-re(10); df(6) = re(7)-re(10) ...