Esope source files

   1 : C CAL2S2    SOURCE    CHAT      05/01/12    21:45:31     5004           
   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 = DSQRT(A1B1)                                                        
  14 :       A2B2 = DSQRT(A2B2)                                                        
  15 :       A1B2 = DSQRT(A1B2)                                                        
  16 :       A2B1 = DSQRT(A2B1)                                                        
  17 :       F3 = ( A1B1 + A2B2 - A1B2 - A2B1 ) / 2.                                   
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :