Télécharger la plaquette Cast3M


fr en

Télécharger dtcham.eso

Retour à la liste

Numérotation des lignes : 

dtcham

  1. C DTCHAM    SOURCE    CB215821  25/06/20    21:15:03     12290          
  2.       SUBROUTINE DTCHAM(IRET)
  3. *-----------------------------------------------------------------------
  4. *     DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )
  5. *-----------------------------------------------------------------------
  6.       IMPLICIT INTEGER(I-N)
  7. -INC SMCHAML
  8. -INC PPARAM
  9.  
  10. C     On ne supprime plus rien... Supprimer cette source peut-etre
  11.       MCHELM=IRET
  12.       call oooprl(1)
  13.       SEGACT MCHELM
  14.       DO 100 IA=1,IMACHE(/1)
  15.       MCHAML=ICHAML(IA)
  16.       SEGACT MCHAML
  17.       DO 200 IB=1,IELVAL(/1)
  18.       MELVAL=IELVAL(IB)
  19. C      SEGSUP MELVAL
  20.   200 CONTINUE
  21.       n2 = 0
  22.       segadj mchaml
  23. **    SEGSUP MCHAML
  24.   100 CONTINUE
  25.       l1=0
  26.       n1=0
  27.       n3=0
  28.       segadj mchelm
  29. ***   SEGSUP MCHELM
  30. ***   IRET=0
  31.       call oooprl(0)
  32.       RETURN
  33.       END
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  

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