Télécharger nlocal.eso

Retour à la liste

Numérotation des lignes :

  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
  42. CALL LIRMOT(MCLE,NCLE,ICLE,0)
  43. IF (IERR.NE.0) RETURN
  44. IF (ICLE.EQ.0) ICLE = 1
  45. C
  46. C LECTURE DU LISTMOTS
  47. C
  48. CALL LIROBJ('LISTMOTS',IPLMOT,1,IRT1)
  49. IF (IERR.NE.0) RETURN
  50. C
  51. C LECTURE DES 2 MCHAML
  52. C
  53. CALL LIROBJ('MCHAML',IPCHM1,1,IRT1)
  54. IF (IERR.NE.0) RETURN
  55. C
  56. CALL LIROBJ('MCHAML',IPCHM2,1,IRT1)
  57. IF (IERR.NE.0) RETURN
  58. C
  59. C RECHERCHE DU MCHAML DE CONNECTIVITE QUE L'ON PLACE
  60. C EN TETE DE IP
  61. C
  62. CALL PLACHA(IPCHM1,TT,1,IPO)
  63. IF (IPO.NE.1) THEN
  64. CALL PLACHA(IPCHM2,TT,1,IPO)
  65. IF (IPO.NE.1) THEN
  66. CALL ERREUR(753)
  67. RETURN
  68. ENDIF
  69. III = IPCHM2
  70. IPCHM2 = IPCHM1
  71. IPCHM1 = III
  72. ENDIF
  73. C
  74. C CALCUL DE LA MOYENNE SELON LA METHODE RETENUE
  75. C
  76. IF (ICLE.EQ.1) THEN
  77. CALL NLOCA1(IPCHM2,IPLMOT,IPCHM1, IPCHMS,IRET)
  78. ELSE
  79. CALL NLOCSB(IPCHM2,IPLMOT,IPCHM1, IPCHMS,IRET)
  80. ENDIF
  81. C
  82. C ECRITURE DU MCHAML
  83. C
  84. IF(IRET.EQ.1) THEN
  85. CALL ECROBJ('MCHAML',IPCHMS)
  86. ENDIF
  87. C
  88. RETURN
  89. END
  90.  
  91.  
  92.  

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