Télécharger chmprc.eso

Retour à la liste

Numérotation des lignes :

  1. C CHMPRC SOURCE CHAT 05/01/12 21:59:49 5004
  2. SUBROUTINE CHMPRC(MCHPOI,MMID4,IZPRE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C INITIALISATION DU TRAITEMENT DES PRECIPITES
  8. C CORRESPONDANCE ENTRE LES COMPOSANTES D' UN CHPOINT ET LES
  9. C IDENTIFICATEURS DONT LES NOMS SE TROUVENT DANS MMID4
  10. C IZPRE POINTEUR DU TABLEAU DE PRESENCE DES PRECIPITES
  11. C CE TABLEAU EST DE MEME TYPE QUE VPOCHA ( DE MPOVAL)
  12. C On cherche si toutes les composantes de MCHPOI figurent dans
  13. C MMID4 et si elles n'y figurent q'une fois
  14. C
  15. C------------------------------------------------------------------
  16. -INC SMCHPOI
  17. POINTEUR IZPRE.MPOVAL
  18. -INC SMLMOTS
  19. -INC CCOPTIO
  20. SEGMENT ITBID
  21. INTEGER IBID(NXD4)
  22. ENDSEGMENT
  23. MLMOTS=MMID4
  24. SEGACT MLMOTS
  25. SEGACT MCHPOI
  26. MSOUPO=IPCHP(1)
  27. SEGACT MSOUPO
  28. NXD4=MOTS(/2)
  29. SEGINI ITBID
  30. CALL INITI(IBID,NXD4,1)
  31. NC1=NOCOMP(/2)
  32. MPOVAL=IPOVAL
  33. SEGACT MPOVAL
  34. NPP=VPOCHA(/1)
  35. DO 50 I=1,NC1
  36. DO 20 J=1,NXD4
  37. IF(NOCOMP(I).EQ.MOTS(J))THEN
  38. IF(IBID(J).EQ.0)THEN
  39. CALL ERREUR(674)
  40. RETURN
  41. ENDIF
  42. DO 10 K=1,NPP
  43. IZPRE.VPOCHA(K,J)=VPOCHA(K,I)
  44. 10 CONTINUE
  45. IBID(J)=0
  46. GO TO 30
  47. ENDIF
  48. 20 CONTINUE
  49. MOTERR(1:4)=NOCOMP(I)
  50. CALL ERREUR(197)
  51. RETURN
  52. 30 CONTINUE
  53. 50 CONTINUE
  54. SEGSUP ITBID
  55. SEGDES MPOVAL
  56. SEGDES MSOUPO
  57. SEGDES MCHPOI
  58. RETURN
  59. END
  60.  
  61.  
  62.  
  63.  

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