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  20/11/09    10:36:23     10766          
  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.       MCHELM=IRET
  10.       call oooprl(1)
  11.       SEGACT MCHELM
  12.       DO 100 IA=1,IMACHE(/1)
  13.       MCHAML=ICHAML(IA)
  14.       SEGACT MCHAML
  15.       DO 200 IB=1,IELVAL(/1)
  16.       MELVAL=IELVAL(IB)
  17.       SEGSUP MELVAL
  18.   200 CONTINUE
  19.       n2 = 0
  20.       segadj mchaml
  21. **    SEGSUP MCHAML
  22.   100 CONTINUE
  23.       l1=0
  24.       n1=0
  25.       n3=0
  26.       segadj mchelm
  27. ***   SEGSUP MCHELM
  28. ***   IRET=0
  29.       call oooprl(0)
  30.       RETURN
  31.       END
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  

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