Esope source files

   1 : C NLOCAL    SOURCE    FANDEUR   12/12/21    21:15:01     7629           
   2 : 
   3 : C_______________________________________________________________________
   4 : C
   5 : C           CALCUL DU MCHAML MOYENNE
   6 : C
   7 : C           CHAM1=NLOC ( | 'MOYE' | ) CHAM2 CHAM3 LMOT1 ;
   8 : C                      ( | 'SB  ' | )
   9 : C
  10 : C_______________________________________________________________________
  11 :       SUBROUTINE NLOCAL
  12 : 
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT  REAL*8(A-H,O-Z)
  15 : 
  16 : -INC CCOPTIO
  17 : 
  18 :       PARAMETER (NCLE = 2)
  19 : 
  20 :       CHARACTER*4 MCLE(NCLE)
  21 :       CHARACTER*22 TT
  22 : 
  23 :       DATA MCLE / 'MOYE', 'SB  ' /
  24 :       DATA TT / 'CONNECTIVITE NON LOCAL' /
  25 : C
  26 : C           CHAM2  Pointeur sur un MCHAML de ss-type indifferent
  27 : C           CHAM3 Pointeur sur un MCHAML de Connectivite
  28 : C           IPLMOT Pointeur sur un LISTMOTS de noms de composante
  29 : C           LMOT1  Listmot dans lequel on trouve les composantes
  30 : C                  de CHAM1 pour lesquelles on doit faire la moyenne
  31 : C
  32 : C           CHAM1  Pointeur sur le MCHAML moyenne
  33 : 
  34 :       ICLE   = 0
  35 :       IPLMOT = 0
  36 :       IPCHM1 = 0
  37 :       IPCHM2 = 0
  38 :       IPCHMS = 0
  39 : C
  40 : C  LECTURE DU MOT-CLE
  41 : C
  41 :       CALL LIRMOT(MCLE,NCLE,ICLE,0)
  42 :       IF (IERR.NE.0) RETURN
  43 :       IF (ICLE.EQ.0) ICLE = 1
  44 : C
  45 : C     LECTURE DU LISTMOTS
  46 : C
  46 :       CALL LIROBJ('LISTMOTS',IPLMOT,1,IRT1)
  47 :       IF (IERR.NE.0) RETURN
  48 : C
  49 : C     LECTURE DES 2 MCHAML
  50 : C
  50 :       CALL LIROBJ('MCHAML',IPCHM1,1,IRT1)
  51 :       IF (IERR.NE.0) RETURN
  52 : C
  52 :       CALL LIROBJ('MCHAML',IPCHM2,1,IRT1)
  53 :       IF (IERR.NE.0) RETURN
  54 : C
  55 : C     RECHERCHE DU MCHAML DE CONNECTIVITE QUE L'ON PLACE
  56 : C     EN TETE DE IP
  57 : C
  57 :       CALL PLACHA(IPCHM1,TT,1,IPO)
  58 :       IF (IPO.NE.1) THEN
  58 :         CALL PLACHA(IPCHM2,TT,1,IPO)
  59 :         IF (IPO.NE.1) THEN
  59 :           CALL ERREUR(753)
  60 :           RETURN
  61 :         ENDIF
  62 :         III    = IPCHM2
  63 :         IPCHM2 = IPCHM1
  64 :         IPCHM1 = III
  65 :       ENDIF
  66 : C
  67 : C     CALCUL DE LA MOYENNE SELON LA METHODE RETENUE
  68 : C
  69 :       IF (ICLE.EQ.1) THEN
  69 :         CALL NLOCA1(IPCHM2,IPLMOT,IPCHM1, IPCHMS,IRET)
  70 :       ELSE
  70 :         CALL NLOCSB(IPCHM2,IPLMOT,IPCHM1, IPCHMS,IRET)
  71 :       ENDIF
  72 : C
  73 : C     ECRITURE DU MCHAML
  74 : C
  75 :       IF(IRET.EQ.1) THEN
  75 :         CALL ECROBJ('MCHAML',IPCHMS)
  76 :       ENDIF
  77 : C
  78 :       RETURN
  79 :       END
  80 : 
  81 :