Télécharger nlocal.eso

Retour à la liste

Numérotation des lignes :

  1. C NLOCAL SOURCE AM 17/09/25 21:15:18 9566
  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 CCOPTIO
  17.  
  18. CHARACTER*4 MONODI/'NODI'/
  19. CHARACTER*22 TT
  20.  
  21. DATA TT / 'CONNECTIVITE NON LOCAL' /
  22. C
  23. C CHAM2 Pointeur sur un MCHAML de ss-type indifferent
  24. C CHAM3 Pointeur sur un MCHAML de Connectivite
  25. C CHAM1 Pointeur sur le MCHAML moyenne
  26.  
  27. IPCHM1 = 0
  28. IPCHM2 = 0
  29. IPCHMS = 0
  30. ICLE = 0
  31. INODI = 0
  32. C
  33. C LECTURE DES 2 MCHAML
  34. C
  35. CALL LIROBJ('MCHAML',IPCHM1,1,IRT1)
  36. IF (IERR.NE.0) RETURN
  37. C
  38. CALL LIROBJ('MCHAML',IPCHM2,1,IRT1)
  39. IF (IERR.NE.0) RETURN
  40. C
  41. C LECTURE EVENTUELLE DU MOT-CLE 'NODI'
  42. C
  43. CALL LIRMOT(MONODI,1,ICLE,0)
  44. IF (IERR.NE.0) RETURN
  45. IF (ICLE.EQ.1) INODI = 1
  46.  
  47. C
  48. C RECHERCHE DU MCHAML DE CONNECTIVITE QUE L'ON PLACE
  49. C EN TETE DE IP
  50. C
  51. CALL PLACHA(IPCHM1,TT,1,IPO)
  52. IF (IPO.NE.1) THEN
  53. CALL PLACHA(IPCHM2,TT,1,IPO)
  54. IF (IPO.NE.1) THEN
  55. CALL ERREUR(753)
  56. RETURN
  57. ENDIF
  58. III = IPCHM2
  59. IPCHM2 = IPCHM1
  60. IPCHM1 = III
  61. ENDIF
  62. C
  63. C CALCUL DE LA MOYENNE 'MOYE' OU 'SB'
  64. C
  65. CALL NLOCA1(IPCHM2,IPCHM1,IPCHMS,INODI,IRET)
  66. C
  67. C ECRITURE DU MCHAML
  68. C
  69. IF(IRET.EQ.1) THEN
  70. CALL ECROBJ('MCHAML',IPCHMS)
  71. ENDIF
  72. C
  73. RETURN
  74. END
  75.  
  76.  
  77.  
  78.  

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