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 29 : CALL INITI(IBID,NXD4,1) 30 : NC1=NOCOMP(/2) 31 : MPOVAL=IPOVAL 32 : SEGACT MPOVAL 33 : NPP=VPOCHA(/1) 34 : DO 50 I=1,NC1 35 : DO 20 J=1,NXD4 36 : IF(NOCOMP(I).EQ.MOTS(J))THEN 37 : IF(IBID(J).EQ.0)THEN 37 : CALL ERREUR(674) 38 : RETURN 39 : ENDIF 40 : DO 10 K=1,NPP 41 : IZPRE.VPOCHA(K,J)=VPOCHA(K,I) 42 : 10 CONTINUE 43 : IBID(J)=0 44 : GO TO 30 45 : ENDIF 46 : 20 CONTINUE 47 : MOTERR(1:4)=NOCOMP(I) 47 : CALL ERREUR(197) 48 : RETURN 49 : 30 CONTINUE 50 : 50 CONTINUE 51 : SEGSUP ITBID 52 : SEGDES MPOVAL 53 : SEGDES MSOUPO 54 : SEGDES MCHPOI 55 : RETURN 56 : END 57 : 58 : 59 :
© Cast3M 2003 - All rights reserved.
Disclaimer