Télécharger la plaquette Cast3M


fr en

Télécharger sigmoy.eso

Retour à la liste

Numérotation des lignes : 

sigmoy

  1. C SIGMOY    SOURCE    CHAT      06/08/24    22:07:37     5529
  2.       SUBROUTINE SIGMOY(IPMODL,IPCHE1,IPCHE2)
  3. *_______________________________________________________________________
  4. *
  5. *      CALCUL DU SIGMA MOYENNE A PARTIR
  6. *         DU SIGMA OBTENU DIRECTEMENT
  7. *
  8. *_______________________________________________________________________
  9. *
  10. *      ENTREE :
  11. *      --------
  12. *           IPMODL   POINTEUR SUR UN MMODEL
  13. *           IPCHE1   POINTEUR SUR MCHAML DE CONTRAINTES
  14. *
  15. *
  16. *      SORTIE :
  17. *      --------
  18. *           IPCHE2   POINTEUR SUR MCHAML MOYENNE
  19. *                    = 0 SI IMPOSSIBLE
  20. *
  21. *      PASSAGE AUX NOUVEAUX CHAMELEM PAR JM CAMPENON LE 02/91
  22. *
  23. *_______________________________________________________________________
  24. *
  25.       IMPLICIT INTEGER(I-N)
  26.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. *
  30. *     PASSAGE AUX NOEUDS
  31. *
  32.       CALL CHASUP (IPMODL,IPCHE1,IPCHA1,IRET,1)
  33.       IF (IRET.NE.0) GOTO 630
  34. *
  35. *     ON TRANSFORME LE MCHAML EN CHPOINT
  36. *
  37.       CALL CHAMPO (IPCHA1,1,IPCHP,IRET)
  38.       IF (IRET.NE.1) GOTO 620
  39. *
  40. *     ON FAIT LA TRANSFORMATION INVERSE CHPOINT --> MCHAML
  41. *
  42.       CALL CHAME1 (0,IPMODL,IPCHP,' ',IPCHE2,5)
  43.       IF (IERR.NE.0) GOTO 610
  44. *
  45.       CALL DTCHAM(IPCHA1)
  46.       CALL DTCHPO(IPCHP )
  47.       RETURN
  48. *
  49. *     EN CAS D'ERREUR
  50. *
  51.  610  CONTINUE
  52.       CALL DTCHPO(IPCHP)
  53. *
  54.  620  CONTINUE
  55.       CALL DTCHAM(IPCHA1)
  56. *
  57.  630  CONTINUE
  58.       IPCHE2=0
  59.       RETURN
  60.       END
  61.  
  62.  
  63.  

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