Esope source files

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