C PROB SOURCE CHAT 05/01/13 02:29:28 5004 C PROB SOURCE PHIL 98/07/02 21:08:58 SUBROUTINE PROB * calcule la probabilite que X defini par * MU = moyenne, * SIGM = ecart-type, * RB1 = coefficient de symetrie, * B2 = coefficient d'aplatissement * soit plus petit que ALPH. * IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO -INC SMLREEL CALL LIRREE(FLO1,0,IRETOU) CALL LIRREE(FLO2,0,IRETOU) CALL LIRREE(FLO3,0,IRETOU) CALL LIRREE(FLO4,0,IRETOU) CALL LIRREE(FLO5,0,IRETOU) IF (IRETOU.EQ.0) THEN CALL REFUS GOTO 3 ENDIF 3 CONTINUE C C Appel de la procedure determinant le type de la densite C CALL JNSN(FLO1,FLO2,FLO3,FLO4,IT1,G1,D1,XL1,XI1,IFAULT) C C Calcul de la probabilite C CALL norcdf(SNV(FLO5,IT1,G1,D1,XL1,XI1,IFAULT),P) CALL ECRREE(P) RETURN END c