Esope source files

   1 : C KDOM5     SOURCE    CHAT      05/01/13    00:54:25     5004           
   2 :       SUBROUTINE KDOM5(IP1,IP2,IP3,VOL)
   3 : C
   4 : C************************************************************************
   5 : C
   6 : C PROJET            :  CASTEM 2000
   7 : C
   8 : C NOM               :  KDOM5
   9 : C                      
   9 : C DESCRIPTION       :  Subroutine called by LEKMA0
  10 : C                      Given a SEG3 (IP1,IP2,IP3), IP2 is the center
  11 : C                      points, this subroutine compute its length.
  12 : C                      
  13 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  14 : C      
  15 : C AUTEUR            :  A. BECCANTINI, DRN/DMT/SEMT/LTMF                        
  16 : C
  17 : C************************************************************************
  18 : C
  19 : C
  20 : C**** Variables de COOPTIO
  21 : C
  22 :       IMPLICIT INTEGER(I-N)
  23 :       INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  24 :      &     ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  25 :      &     ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  26 :      &     ,IECHO,   IIMPI,  IOSPI
  27 :      &     ,IDIM,    IFICLE, IPREFI     
  28 : C     &     ,MCOORD
  29 :      &     ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  30 :      &     ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  31 :      &     ,NORINC,NORVAL,NORIND,NORVAD
  32 :      &     ,NUCROU, IPSAUV, IREFOR, ISAFOR
  33 : C
  34 :       INTEGER IP1,IP2,IP3, I1
  35 :       REAL*8 VOL, CELL
  36 : -INC CCOPTIO
  37 : -INC SMCOORD
  38 : C
  39 :       CELL=0.0D0
  40 :       DO I1=1,IDIM,1
  41 :          CELL=CELL+((XCOOR((IP1-1)*(IDIM+1)+I1)-
  42 :      &        XCOOR((IP2-1)*(IDIM+1)+I1))**2)
  43 :       ENDDO
  44 :       CELL=CELL**0.5D0
  45 :       VOL=CELL
  46 : C
  47 :       CELL=0.0D0
  48 :       DO I1=1,IDIM,1
  49 :          CELL=CELL+((XCOOR((IP2-1)*(IDIM+1)+I1)-
  50 :      &        XCOOR((IP3-1)*(IDIM+1)+I1))**2)
  51 :       ENDDO
  52 :       CELL=CELL**0.5D0
  53 :       VOL=VOL+CELL
  54 :       RETURN
  55 :       END
  56 :  
  57 :