C WEIPAR    SOURCE    CHAT      05/01/13    04:11:33     5004           
c***********************************************************************
c Operatore WEIP                                                       *
c                                                                      *
c PROGRAMMA PER IL CALCOLO DEI PARAMETRI  RELATIVI ALLA STATISTICA DI  *        
c WEIBULL PER  PROVINI  SOTTOPOSTI A  ROTTURA PER FLESSIONE A          *
c QUATTRO PUNTI                                                        *
c                                                                      *
c Subroutines plant :                                                  *
c                                                                      *
c weipar --> weipa1 --> emme                                           *
c                       gamma                                          *        
c***********************************************************************
c        
      SUBROUTINE WEIPAR
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
-INC SMLREEL
C
C
C LETTURA LISTA DELLE TENSIONI DI ROTTURA OTTENUTE DAI TEST
      CALL LIROBJ('LISTREEL',MOT1,1,IRET)
      IF(IRET.EQ.0) GOTO 1000
C
C LETTURA CARATTERISTICHE GEOMETRICHE PROVINO
C
C DISTANZA TRA GLI APPOGGI
      CALL LIRREE(distap,1,iret)
      IF(IRET.EQ.0) GOTO 1000
C
C DISTANZA TRA I CARICHI
      CALL LIRREE(distca,1,iret)
      IF(IRET.EQ.0) GOTO 1000
C 
C AREA DELLA SEZIONE DEL PROVINO
      CALL LIRREE(arsez,1,iret)
      IF(IRET.EQ.0) GOTO 1000
C
C ATTIVAZIONE LISTA TENSIONI
      MLREEL=MOT1                                                             
      SEGACT MLREEL                                                             
      LX = PROG(/1)
C
C VALUTAZIONI STATISTICHE
      VOLUT = DISTAP * ARSEZ 
      RAPPCA= DISTCA / DISTAP
C
      CALL WEIPA1(lx,prog,VOLUT,RAPPCA,vm,sigzer)
C
C DISATTIVAZIONE LISTA TENSIONI
      SEGDES MLREEL
C
C USCITA PARAMETRI DI WEIBULL
      CALL ECRREE(SIGZER)
      CALL ECRREE(VM)
C
1000  CONTINUE
      RETURN
      END