C
C INCLUDE 'raycb.inc' C ------------------------------------------------------------------ REAL YLRC(6),YYRC(5),DELT11,DELT13,DELT33,E(9) INTEGER IYRC(13) COMMON/RAYC/YLRC,YYRC,IYRC,DELT11,DELT13,DELT33,E C ------------------------------------------------------------------ C YLRC,YYRC,IYRC... Working copies of the arrays YL,YY,YI. C DELT11,DELT13,DELT33... Deviations (in absolute values of the two C computed basis vectors of the ray-centred coordinate C system from the conditions of orthonormality, see C C.R.T.5.8.2d C E... Components of the eigenvectors of the Christoffel matrix: C E(1:3),E(4:6): S-wave eigenvectors. C E(7:9): P-wave eigenvector. C C Common block /RAYC/ is included in FORTRAN 77 source code files C 'raycb.for'. C It is intended for communication between RAYCB, FCT, and OUTP. C C Version: 7.00 C Date: 2013, February 19 C Coded by Ludek Klimes C C======================================================================= C