Esope source files

   1 : C RETOUR    SOURCE    CHAT      05/01/13    02:55:10     5004           
   2 :       SUBROUTINE RETOUR(SIG1,SIG2,CC,SS,CS,ITENRZ)
   3 : C
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)
   6 : C
   7 :       DIMENSION SIG1(*),SIG2(*)
   8 : C
   9 :       IF(ITENRZ.EQ.0) RETURN
  10 :       IF(ITENRZ.NE.2) GO TO 1
  11 :       SIG2(1)=0.D0
  12 :       SIG2(2)=0.D0
  13 :       SIG2(4)=0.D0
  14 :       GO TO 2
  15 :     1 SIG2(1)=SIG1(1)*CC+SIG1(2)*SS-2.D0*SIG1(3)*CS
  16 :       SIG2(2)=SIG1(1)*SS+SIG1(2)*CC+2.D0*SIG1(3)*CS
  17 :       SIG2(4)=CS*(SIG1(1)-SIG1(2))+SIG1(3)*(CC-SS)
  18 : C
  19 :     2 RETURN
  20 :       END
  21 :