Télécharger chmty3.eso

Retour à la liste

Numérotation des lignes :

  1. C CHMTY3 SOURCE CHAT 05/01/12 22:00:38 5004
  2. SUBROUTINE CHMTY3(MCHPOI,MMTY3,MLTY3,ICOTY3,JZT3)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C ENTREES
  8. C MCHPOI CHPOIN DONNE DANS CLIM
  9. C MMTY3 NOM DES IDENTIFICATEURS DE TYPE 3 (ISSUE DE CHIMI1)
  10. C MLTY3 LISTE DES IDENTIFICATEURS DE TYPE 3 (ISSUE DE CHIMI1)
  11. C SORTIES
  12. C ICOTY3 LISTE DES IDENTIFICATEURS MIS EN CLIM
  13. C JZT3 POINTEUR DU TABLEAU DE VALEURS DU CHPOIN
  14. C
  15. C
  16. C ON VERIFIE L' EXISTANCE ET L' UNICITE DES COMPOSANTES
  17. C
  18. C------------------------------------------------------------------
  19. -INC SMCHPOI
  20. -INC SMLMOTS
  21. -INC SMLENTI
  22. POINTEUR ICOTY3.MLENTI,MLTY3.MLENTI
  23. -INC CCOPTIO
  24. SEGMENT ITBID
  25. INTEGER IBID(NC3)
  26. ENDSEGMENT
  27. MLMOTS=MMTY3
  28. SEGACT MLMOTS
  29. NC3=MOTS(/2)
  30. SEGACT MCHPOI
  31. MSOUPO=IPCHP(1)
  32. SEGACT MSOUPO
  33. NXD3=NOCOMP(/2)
  34. SEGINI ITBID
  35. CALL INITI(IBID,NC3,1)
  36. JG=NXD3
  37. SEGINI MLENTI
  38. ICOTY3=MLENTI
  39. DO 50 I=1,NXD3
  40. DO 20 J=1,NC3
  41. IF(NOCOMP(I).EQ.MOTS(J))THEN
  42. IF(IBID(J).EQ.0)THEN
  43. CALL ERREUR(674)
  44. RETURN
  45. ENDIF
  46. IBID(J)=0
  47. ICOTY3.LECT(I)=MLTY3.LECT(J)
  48. GO TO 30
  49. ENDIF
  50. 20 CONTINUE
  51. MOTERR(1:4)=NOCOMP(I)
  52. CALL ERREUR(197)
  53. RETURN
  54. 30 CONTINUE
  55. 50 CONTINUE
  56. MPOVAL=IPOVAL
  57. SEGACT MPOVAL
  58. JZT3= IPOVAL
  59. SEGSUP ITBID
  60. SEGDES MLMOTS,MLTY3,MCHPOI,MSOUPO
  61. RETURN
  62. END
  63.  
  64.  
  65.  

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