Télécharger la plaquette Cast3M


fr en

Télécharger zeroro.eso

Retour à la liste

Numérotation des lignes : 

zeroro

  1. C ZERORO    SOURCE    CB215821  19/08/01    21:16:48     10279          
  2.  
  3. *_______________________________________________________________________
  4. *
  5. *            OPERATEUR MCHAML A ZERO
  6. *
  7. *            SYNTAXE :
  8. *            _________
  9. *
  10. *      CHAM1 = ZERO  MOT1 MODL1 ;
  11. *
  12. *            MOT1   Mot cle indiquant le sous-type de MCHAML voulu
  13. *            MODL1  Modele de calcul (type MMODEL)
  14. *            CHAM1  Champ par element resultat (type MCHAML)
  15. *_______________________________________________________________________
  16.  
  17.       SUBROUTINE ZERORO
  18.  
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8(A-H,O-Z)
  21.  
  22.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25.  
  26.       CHARACTER*8 MOT
  27. C
  28. C     LECTURE DU TYPE DE CHAMP A CREER
  29. C
  30.       CALL LIRCHA(MOT,1,IRET)
  31.       IF (IERR.NE.0) RETURN
  32. C
  33. C     LECTURE DU MODELE
  34. C
  35.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRET)
  36.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  37.       IF (IERR.NE.0) RETURN
  38. C
  39. C     CREATION DU MCHAML
  40. C
  41.       CALL ZEROP(IPMODL,MOT,IPCHEL)
  42.       IF (IERR.NE.0 .OR. IPCHEL.EQ.0) RETURN
  43. C
  44. C     ECRITURE DU RESULTAT
  45. C
  46.       CALL ACTOBJ('MCHAML  ',IPCHEL,1)
  47.       CALL ECROBJ('MCHAML  ',IPCHEL)
  48.  
  49.       END
  50.  
  51.  
  52.  

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