Télécharger cdipqt.eso

Retour à la liste

Numérotation des lignes :

  1. C CDIPQT SOURCE KK2000 14/04/09 21:15:00 8027
  2.  
  3. SUBROUTINE C_DERINVARIPQT (SIG,N,P_S,Q_S,T_S)
  4. IMPLICIT INTEGER(I-N)
  5. integer n,i
  6. complex*16 sig(n),p_s(n),q_s(n),t_s(n),j2,j3,aux0,aux1,aux2
  7. call C_DerInvariIJJ(sig,p_s,q_s,t_s,n)
  8. do i=1,3
  9. p_s(i)=-p_s(i)/(3.D0,0.D0)
  10. enddo
  11. call C_Invari_j2(sig,n,j2)
  12. call C_Invari_j3(sig,n,j3)
  13. aux0=(0.D0,0.D0)
  14. aux1=(0.D0,0.D0)
  15. aux2=(0.D0,0.D0)
  16. if (abs(j2).ge.1.D-10) then
  17. aux0=sqrt((3.D0,0.D0)/j2)/(2.D0,0.D0)
  18. aux1=aux0/j2
  19. aux2=(1.5D0,0.D0)*j3/j2
  20. endif
  21. do i=1,n
  22. t_s(i)=aux1*(aux2*q_s(i)-t_s(i))
  23. q_s(i)=aux0*q_s(i)
  24. enddo
  25. end
  26.  
  27.  
  28.  
  29.  
  30.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales