Télécharger arcorc.eso

Retour à la liste

Numérotation des lignes :

  1. C ARCORC SOURCE BP208322 15/10/21 21:15:03 8690
  2. SUBROUTINE ARCORC (IPCHPT,REF)
  3.  
  4. ***********************************************************************
  5. *
  6. * A R C O R C
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * MISE A ZERO, S'ILS EXISTENT, DES ELEMENTS RELATIFS A UNE INCONNUE
  12. * 'NOMDU'
  13. *
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  16. * -----------
  17. *
  18. * IPCHPT ENTIER (E/S) CHPOINT DE TRAVAIL
  19. *
  20. * REF ENTIER (E) NUMERO DE L'INCONNUE A METTRE A ZERO
  21. *
  22. *
  23. * SOUS-PROGRAMMES APPELES:
  24. * ------------------------
  25. *
  26. * ANCHPO
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. * PASCAL BOUDA 11 SEPTEMBRE 2015
  32. *
  33. * LANGAGE:
  34. * --------
  35. *
  36. * FORTRAN 77 & 90
  37. *
  38. ***********************************************************************
  39.  
  40. IMPLICIT INTEGER(I-N)
  41. IMPLICIT REAL*8 (A-H,O-Z)
  42.  
  43.  
  44. -INC PPARAM
  45. -INC CCOPTIO
  46. -INC SMCHPOI
  47. -INC CCHAMP
  48.  
  49.  
  50. INTEGER IPCHPT
  51. INTEGER REF
  52.  
  53. INTEGER IINC
  54. INTEGER IPBUFF
  55. CHARACTER*4 MOC
  56.  
  57. IINC=0
  58.  
  59.  
  60. MCHPOI=IPCHPT
  61. SEGACT MCHPOI
  62. NSOUPO = IPCHP(/1)
  63.  
  64. DO 10 ISOUPO=1,NSOUPO
  65.  
  66. MSOUPO = IPCHP(ISOUPO)
  67. SEGACT MSOUPO
  68. MPOVAL=IPOVAL
  69. SEGACT MPOVAL
  70. NC = NOCOMP(/2)
  71.  
  72. DO 20 IC = 1,NC
  73.  
  74. MOC=NOCOMP(IC)
  75. IF ( MOC .EQ. NOMDU(REF) ) THEN
  76. IINC=IINC+VPOCHA(/1)
  77. ENDIF
  78.  
  79. 20 CONTINUE
  80.  
  81. SEGDES MPOVAL
  82. SEGDES MSOUPO
  83.  
  84. 10 CONTINUE
  85.  
  86. SEGDES MCHPOI
  87.  
  88.  
  89. *Mise a zero des eventuels elments
  90. IF (IINC .NE. 0) THEN
  91. IPBUFF=IPCHPT
  92. CALL ANCHPO(IPBUFF,NOMDU(REF),IPCHPT)
  93. ENDIF
  94.  
  95.  
  96. END
  97.  

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