Télécharger la plaquette Cast3M


fr en

Télécharger nlocal.eso

Retour à la liste

Numérotation des lignes : 

nlocal

  1. C NLOCAL    SOURCE    CB215821  23/10/19    21:15:03     11763          
  2.  
  3. C_______________________________________________________________________
  4. C
  5. C           CALCUL DU MCHAML MOYENNE
  6. C
  7. C           CHAM1=NLOC CHAM2 CHAM3 ('NODI');
  8. C
  9. C
  10. C_______________________________________________________________________
  11.       SUBROUTINE NLOCAL
  12.  
  13.       IMPLICIT INTEGER(I-N)
  14.       IMPLICIT REAL*8(A-H,O-Z)
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC SMCOORD
  19.  
  20.       CHARACTER*4 MONODI/'NODI'/
  21.       CHARACTER*22 TT
  22.  
  23.       DATA TT / 'CONNECTIVITE NON LOCAL' /
  24. C
  25. C           CHAM2  Pointeur sur un MCHAML de ss-type indifferent
  26. C           CHAM3  Pointeur sur un MCHAML de Connectivite
  27. C           CHAM1  Pointeur sur le MCHAML moyenne
  28.  
  29.       segact mcoord
  30.       IPCHM1 = 0
  31.       IPCHM2 = 0
  32.       IPCHMS = 0
  33.       ICLE   = 0
  34.       INODI  = 0
  35. C
  36. C     LECTURE DES 2 MCHAML
  37. C
  38.       CALL LIROBJ('MCHAML',IPCHM1,1,IRT1)
  39.       IF (IERR.NE.0) RETURN
  40.       CALL ACTOBJ('MCHAML',IPCHM1,1)
  41.       IF (IERR.NE.0) RETURN
  42. C
  43.       CALL LIROBJ('MCHAML',IPCHM2,1,IRT1)
  44.       IF (IERR.NE.0) RETURN
  45.       CALL ACTOBJ('MCHAML',IPCHM2,1)
  46.       IF (IERR.NE.0) RETURN
  47. C
  48. C  LECTURE EVENTUELLE DU MOT-CLE 'NODI'
  49. C
  50.       CALL LIRMOT(MONODI,1,ICLE,0)
  51.       IF (IERR.NE.0) RETURN
  52.       IF (ICLE.EQ.1) INODI = 1
  53.  
  54. C
  55. C     RECHERCHE DU MCHAML DE CONNECTIVITE QUE L'ON PLACE
  56. C     EN TETE DE IP
  57. C
  58.       CALL PLACHA(IPCHM1,TT,1,IPO)
  59.       IF (IPO.NE.1) THEN
  60.         CALL PLACHA(IPCHM2,TT,1,IPO)
  61.         IF (IPO.NE.1) THEN
  62.           CALL ERREUR(753)
  63.           RETURN
  64.         ENDIF
  65.         III    = IPCHM2
  66.         IPCHM2 = IPCHM1
  67.         IPCHM1 = III
  68.       ENDIF
  69. C
  70. C     CALCUL DE LA MOYENNE 'MOYE' OU 'SB'
  71. C
  72.       CALL NLOCA1(IPCHM2,IPCHM1,IPCHMS,INODI,IRET)
  73. C
  74. C     ECRITURE DU MCHAML
  75. C
  76.       IF(IRET.EQ.1) THEN
  77.         CALL ACTOBJ('MCHAML',IPCHMS,1)
  78.         CALL ECROBJ('MCHAML',IPCHMS)
  79.       ENDIF
  80. C
  81.       RETURN
  82.       END
  83.  
  84.  

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