Télécharger argume.eso

Retour à la liste

Numérotation des lignes :

  1. C ARGUME SOURCE CHAT 05/01/12 21:24:35 5004
  2. SUBROUTINE ARGUME(T)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. COMMON/CMCHAM/ D1,D2,R,A,U,DD1,DD2,LSOMD,LD1,LD2
  6. COMMON/CMARGT/SINT,COST,RSINT,RCOST,RSIN2,XA,XU,XXA,XXU,SQA2,SQA1
  7. +,SQU2,SQU1
  8. SINT=SIN(T)
  9. COST=COS(T)
  10. RCOST=R*COST
  11. RSINT=R*SINT
  12. RSIN2=RSINT**2
  13. XA=A-RCOST
  14. XU=U-RCOST
  15. XXA=XA**2
  16. XXU=XU**2
  17. SQA2=SQRT(DD2+XXA+RSIN2)
  18. SQA1=SQRT(DD1+XXA+RSIN2)
  19. SQU2=SQRT(DD2+XXU+RSIN2)
  20. SQU1=SQRT(DD1+XXU+RSIN2)
  21. RETURN
  22. END
  23.  
  24.  

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