Télécharger la plaquette Cast3M


fr en

Télécharger weipar.eso

Retour à la liste

Numérotation des lignes : 

weipar

  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
  23.       CALL LIROBJ('LISTREEL',MOT1,1,IRET)
  24.       IF(IRET.EQ.0) GOTO 1000
  25. C
  26. C LETTURA CARATTERISTICHE GEOMETRICHE PROVINO
  27. C
  28. C DISTANZA TRA GLI APPOGGI
  29.       CALL LIRREE(distap,1,iret)
  30.       IF(IRET.EQ.0) GOTO 1000
  31. C
  32. C DISTANZA TRA I CARICHI
  33.       CALL LIRREE(distca,1,iret)
  34.       IF(IRET.EQ.0) GOTO 1000
  35. C
  36. C AREA DELLA SEZIONE DEL PROVINO
  37.       CALL LIRREE(arsez,1,iret)
  38.       IF(IRET.EQ.0) GOTO 1000
  39. C
  40. C ATTIVAZIONE LISTA TENSIONI
  41.       MLREEL=MOT1
  42.       SEGACT MLREEL
  43.       LX = PROG(/1)
  44. C
  45. C VALUTAZIONI STATISTICHE
  46.       VOLUT = DISTAP * ARSEZ
  47.       RAPPCA= DISTCA / DISTAP
  48. C
  49.       CALL WEIPA1(lx,prog,VOLUT,RAPPCA,vm,sigzer)
  50. C
  51. C DISATTIVAZIONE LISTA TENSIONI
  52.       SEGDES MLREEL
  53. C
  54. C USCITA PARAMETRI DI WEIBULL
  55.       CALL ECRREE(SIGZER)
  56.       CALL ECRREE(VM)
  57. C
  58. 1000  CONTINUE
  59.       RETURN
  60.       END
  61.  
  62.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales