Télécharger la plaquette Cast3M


fr en

Télécharger dtmval.eso

Retour à la liste

Numérotation des lignes : 

dtmval

  1. C DTMVAL    SOURCE    OF166741  25/02/21    21:15:58     12166          
  2. *
  3. *---------------------------------------------------------------*
  4. *     utilitaire de desactivation/destruction associe au        *
  5. *                segment "MPTVAL"                               *
  6. *                                                               *
  7. *     MPTVOL: pointeur sur un segment MPTVAL (actif)            *
  8. *     MODES : mode de desactivation des segments pointes par    *
  9. *             IVAL  ==> 1 = SEGDES                              *
  10. *                   ==> 2 = SEGDES                              *
  11. *                   ==> 3 = SEGSUP                              *
  12. *                                                               *
  13. *     PP 16/8/91                                                *
  14. *     CLB 11/02/92                                              *
  15. *---------------------------------------------------------------*
  16.       SUBROUTINE DTMVAL(MPTVOL,MODES)
  17.  
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8 (A-H,O-Z)
  20.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23.  
  24. -INC SMCHAML
  25.  
  26. -INC TMPTVAL
  27.  
  28.       IF (MPTVOL .EQ. 0 .OR. MODES.NE.3) RETURN
  29.  
  30.       MPTVAL=MPTVOL
  31.       LONG=IVAL(/1)
  32.       IF (MODES .EQ.1) THEN
  33.         DO 11 IO=1,LONG
  34.           MELVAL=IVAL(IO)
  35.           IF (MELVAL.NE.0) SEGDES,MELVAL
  36.  11     CONTINUE
  37. *        segdes mptval
  38.         SEGSUP,MPTVAL
  39.       ELSE IF (MODES .EQ.2) THEN
  40.         DO 21 IO=1,LONG
  41.           MELVAL=IVAL(IO)
  42.           IF (MELVAL.NE.0) SEGDES,MELVAL
  43.  21     CONTINUE
  44.         SEGSUP,MPTVAL
  45.       ELSE IF (MODES .EQ. 3)THEN
  46.         DO 31 IO=1,LONG
  47.           MELVAL=IVAL(IO)
  48. *          if (melval.ne.0) segdes melval
  49.           IF (MELVAL.NE.0) SEGSUP,MELVAL
  50.  31     CONTINUE
  51. *        segdes mptval
  52.         SEGSUP,MPTVAL
  53.       ELSE
  54.         INTERR(1)=MODES
  55.         CALL ERREUR (555)
  56.       END IF
  57.  
  58. c      RETURN
  59.       END
  60.  
  61.  
  62.  

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