Esope source files

   1 : C DISTRI    SOURCE    CHAT      05/01/12    22:51:36     5004           
   2 :       SUBROUTINE DISTRI(MMTRA,TE, ID,DPI, VALMAX)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT  REAL*8(A-H,O-Z)
   5 : C=======================================================================
   6 : C  =  CALCUL DU MAXIMUM DE DISTRIBUTION (CAS STATIQUE)                 =
   7 : C  =                                                                   =
   8 : C  =  ENTREE XLTIME(1,3)=XL0,XL1,XL2 MOMENT STATIQUES                  =
   9 : C  =         TE         =DUREE DU SIGNAL                               =
  10 : C  =  SORTIE VALMAX     = MAXIMUM                                      =
  11 : C=======================================================================
  12 : C======+++++++++++ bon fontionnement erreur PSRS/PRNS +++++++++++ ======
  13 : -INC CCOPTIO
  14 :       SEGMENT,MMTRA
  15 :         IMPLIED XLTIME(NNT,3)
  16 :       ENDSEGMENT
  17 : C======+++++++++++ bon fontionnement erreur PSRS/PRNS +++++++++++ ======
  18 : C
  19 : C     CALCULATION OF VALMAX USING VARIOUS DISTRIBUTION FUNCTIONS
  20 : C
  21 : C
  22 :       GOTO (1,2),ID
  23 : C   
  24 : C     CRAMER
  25 : C
  26 : C1    VALMAX=(SQRT(2*XL0*LOG(TE/4.355172181*SQRT(XL2/XL0))))
  27 :  1    NNT=1
  28 :       XL0=XLTIME(1,1)
  29 :       XL1=XLTIME(1,2)
  30 :       XL2=XLTIME(1,3)
  31 :       VALMAX=(SQRT(2*XL0*LOG(TE/4.355172181*SQRT(XL2/XL0))))
  32 :       RETURN
  33 : C   
  34 : C     NEWGUMB (AVEC SUBSTITUTION PUIS EVENTUELLEMENT DICHO)
  35 : C
  36 :  2    CONTINUE
  37 :       ERR=1.D-4
  37 :       CALL DISTRT(MMTRA,1,TE, DPI, TE,2,ERR, VALMAX,IOK,IDUM)
  37 :         IF(IOK.NE.0)CALL ERREUR(575)
  38 :       RETURN
  39 :       END
  40 :