1 : C SENSI2 SOURCE PV 09/03/12 21:34:15 6325 2 : * 3 : * EXTRAIT DE ADCHAML.ESO 4 : * LELEU DIDIER HAZE FREDERIC 5 : * 03/03/93 6 : * 7 : * 8 : * 9 : SUBROUTINE SENSI2(IPCHA2,IPCHA,MOYS) 10 : IMPLICIT INTEGER(I-N) 11 : IMPLICIT REAL*8 (A-H,O-Z) 12 : REAL*8 MOYS 13 : * 14 : * 15 : * ENTREES : 16 : * IPCHA2 : POINTEUR SUR UN SEGMENT MCHAML SUPPOSE ACTIF 17 : * IPCHA : POINTEUR SUR 2IEME SEGGMENT MCHAML SUPPOSE ACTIF 18 : * 19 : * 20 : * 21 : * SORTIE : 22 : * MOYS : VALEUR DE LA SENSIBILITE (MOYENNE) 23 : * 24 : * 25 : * 26 : * 27 : -INC SMCHAML 28 : -INC CCOPTIO 29 : * 30 : MCHAML=IPCHA 31 : MCHAM2=IPCHA2 32 : * 33 : * ON CHERCHE LES NOM DE COMPOSANTES EN COMMUN DANS LES 34 : * 2 CHAMELEMS 35 : * 36 : DO 1 ICOMP=1,IELVAL(/1) 36 : CALL PLACE (MCHAM2.NOMCHE,MCHAM2.NOMCHE(/2),IPLAC, 37 : & NOMCHE(ICOMP)) 38 : IF (IPLAC.NE.0) THEN 39 : IPMEL1=IELVAL(ICOMP) 40 : IPMEL2=MCHAM2.IELVAL(IPLAC) 41 : * ICOD=0 41 : CALL SENSI3(IPMEL1,IPMEL2,IPMELV,IRETOU,MOYS) 42 : IF (IRETOU.NE.0) THEN 43 : IF (IRETOU.EQ.197) MOTERR(1:4)=NOMCHE(ICOMP) 43 : CALL ERREUR (IRETOU) 44 : IPCHA=0 45 : RETURN 46 : ENDIF 47 : IELVAL(ICOMP)=IPMELV 48 : ELSE 49 : MELVA1=IELVAL(ICOMP) 50 : SEGINI,MELVAL=MELVA1 51 : IELVAL(ICOMP)=MELVAL 52 : SEGDES MELVAL 53 : ENDIF 54 : 1 CONTINUE 55 : * 56 : * ON RAJOUTE LES COMPOSANTES DU 2IEME CHAMELEM QUI NE SONT PAS 57 : * ENCORE PRIS EN COMPTE (LE NUMERO DE LA SOUS ZONE EST DONNE 58 : * JTAFF(ISOUS1) 59 : * 60 : N22=IELVAL(/1) 61 : DO 2 ICOMP=1,MCHAM2.IELVAL(/1) 61 : CALL PLACE (NOMCHE,N22,IPLAC, 62 : & MCHAM2.NOMCHE(ICOMP)) 63 : IF (IPLAC.EQ.0) THEN 64 : N2=IELVAL(/1) 65 : N2=N2+1 66 : SEGADJ MCHAML 67 : NOMCHE(N2)=MCHAM2.NOMCHE(ICOMP) 68 : TYPCHE(N2)=MCHAM2.TYPCHE(ICOMP) 69 : MELVA2=MCHAM2.IELVAL(ICOMP) 70 : SEGINI,MELVAL=MELVA2 71 : IELVAL(N2)=MELVAL 72 : SEGDES MELVAL 73 : ENDIF 74 : 2 CONTINUE 75 : * 76 : 9990 CONTINUE 77 : RETURN 78 : END 79 : 80 : 81 :
© Cast3M 2003 - All rights reserved.
Disclaimer