Télécharger kanor2.eso

Retour à la liste

Numérotation des lignes :

  1. C KANOR2 SOURCE CHAT 05/01/13 00:51:14 5004
  2. SUBROUTINE KANOR2(AM,T,NPT,IES)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION AM(NPT,IES),T(NPT)
  6.  
  7. IF(IES.EQ.2)THEN
  8. DO 1 I=1,NPT
  9. AX=AM(I,1)
  10. AY=AM(I,2)
  11. AA=AX*AX+AY*AY
  12. AA=SQRT(AA)
  13. T(I)=AA
  14. 1 CONTINUE
  15. ELSE
  16. DO 2 I=1,NPT
  17. AX=AM(I,1)
  18. AY=AM(I,2)
  19. AZ=AM(I,3)
  20. AA=AX*AX+AY*AY+AZ*AZ
  21. AA=SQRT(AA)
  22. T(I)=AA
  23. 2 CONTINUE
  24. ENDIF
  25. RETURN
  26. END
  27.  
  28.  
  29.  

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