H A D | rayons.f | 1 SUBROUTINE RAY(N,IND,XXX,YYY,ZZZ,RR,X0,Y0,ZC,IOPT) argument 3 DIMENSION XXX(*),YYY(*),ZZZ(*),A(10),B(4) 18 CALL RAY0(IND2,XXX,YYY,ZZZ,XC,YC,ZC,RR0) 33 D = D + (XXX(I)-XC)**2 + (YYY(I)-YC)**2 + (ZZZ(I)-ZC)**2 36 SZ = SZ + ZZZ(I) 81 D = D + (XXX(I)-XC)**2 + (YYY(I)-YC)**2 + (ZZZ(I)-ZC)**2 84 SZ = SZ + ZZZ(I) 100 SUBROUTINE RAY0(IND,XXX,YYY,ZZZ,XC,YC,ZC,RR) argument 102 DIMENSION XXX(*),YYY(*),ZZZ(*) 122 ZZ(I) = ZZZ(II)
|