Télécharger cal2s2.eso

Retour à la liste

Numérotation des lignes :

  1. C CAL2S2 SOURCE CB215821 16/04/21 21:15:26 8920
  2. SUBROUTINE CAL2S2(NAM,AM,NBM,BM,F3)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION AM(2,*),BM(2,*)
  6. C
  7. C CORDES CROISEES
  8. A1B1 = ( BM(1,1)-AM(1,1) )**2 + ( BM(2,1)-AM(2,1) )**2
  9. A2B2 = ( BM(1,2)-AM(1,2) )**2 + ( BM(2,2)-AM(2,2) )**2
  10. C CORDES NON CROISEES
  11. A1B2 = ( BM(1,2)-AM(1,1) )**2 + ( BM(2,2)-AM(2,1) )**2
  12. A2B1 = ( BM(1,1)-AM(1,2) )**2 + ( BM(2,1)-AM(2,2) )**2
  13. A1B1 = SQRT(A1B1)
  14. A2B2 = SQRT(A2B2)
  15. A1B2 = SQRT(A1B2)
  16. A2B1 = SQRT(A2B1)
  17. F3 = ( A1B1 + A2B2 - A1B2 - A2B1 ) / 2.
  18. RETURN
  19. END
  20.  
  21.  
  22.  
  23.  

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