Esope source files

   1 : C WEIPAR    SOURCE    CHAT      05/01/13    04:11:33     5004           
   2 : c***********************************************************************
   3 : c Operatore WEIP                                                       *
   4 : c                                                                      *
   5 : c PROGRAMMA PER IL CALCOLO DEI PARAMETRI  RELATIVI ALLA STATISTICA DI  *        
   6 : c WEIBULL PER  PROVINI  SOTTOPOSTI A  ROTTURA PER FLESSIONE A          *
   7 : c QUATTRO PUNTI                                                        *
   8 : c                                                                      *
   9 : c Subroutines plant :                                                  *
  10 : c                                                                      *
  11 : c weipar --> weipa1 --> emme                                           *
  12 : c                       gamma                                          *        
  13 : c***********************************************************************
  14 : c        
  15 :       SUBROUTINE WEIPAR
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8(A-H,O-Z)
  18 : C
  19 : -INC SMLREEL
  20 : C
  21 : C
  22 : C LETTURA LISTA DELLE TENSIONI DI ROTTURA OTTENUTE DAI TEST
  22 :       CALL LIROBJ('LISTREEL',MOT1,1,IRET)
  23 :       IF(IRET.EQ.0) GOTO 1000
  24 : C
  25 : C LETTURA CARATTERISTICHE GEOMETRICHE PROVINO
  26 : C
  27 : C DISTANZA TRA GLI APPOGGI
  27 :       CALL LIRREE(distap,1,iret)
  28 :       IF(IRET.EQ.0) GOTO 1000
  29 : C
  30 : C DISTANZA TRA I CARICHI
  30 :       CALL LIRREE(distca,1,iret)
  31 :       IF(IRET.EQ.0) GOTO 1000
  32 : C 
  33 : C AREA DELLA SEZIONE DEL PROVINO
  33 :       CALL LIRREE(arsez,1,iret)
  34 :       IF(IRET.EQ.0) GOTO 1000
  35 : C
  36 : C ATTIVAZIONE LISTA TENSIONI
  37 :       MLREEL=MOT1                                                             
  38 :       SEGACT MLREEL                                                             
  39 :       LX = PROG(/1)
  40 : C
  41 : C VALUTAZIONI STATISTICHE
  42 :       VOLUT = DISTAP * ARSEZ 
  43 :       RAPPCA= DISTCA / DISTAP
  44 : C
  44 :       CALL WEIPA1(lx,prog,VOLUT,RAPPCA,vm,sigzer)
  45 : C
  46 : C DISATTIVAZIONE LISTA TENSIONI
  47 :       SEGDES MLREEL
  48 : C
  49 : C USCITA PARAMETRI DI WEIBULL
  49 :       CALL ECRREE(SIGZER)
  49 :       CALL ECRREE(VM)
  50 : C
  51 : 1000  CONTINUE
  52 :       RETURN
  53 :       END
  54 :