Esope source files

   1 : C ROTA      SOURCE    CHAT      05/01/13    03:04:57     5004           
   2 :       FUNCTION ROTA(S,CC,SS,CS,I)
   3 : C
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)
   6 : C
   7 :       DIMENSION S(*)
   8 : C
   9 :       GO TO(1,2,3),I
  10 : C
  11 :     1 ROTA=S(1)*CC+2.D0*CS*S(4)+S(2)*SS
  12 :       GO TO 4
  13 :     2 ROTA=S(1)*SS-2.D0*CS*S(4)+S(2)*CC
  14 :       GO TO 4
  15 :     3 ROTA=CS*(S(2)-S(1))+S(4)*(CC-SS)
  16 : C
  17 :     4 RETURN
  18 :       END
  19 :  
  20 :