Télécharger menag1.eso

Retour à la liste

Numérotation des lignes :

  1. C MENAG1 SOURCE CB215821 16/09/30 21:15:08 9105
  2. C SUPPRIMER LES SEGMENTS INDESIRABLES
  3. C
  4. SUBROUTINE MENAG1(ISLIS)
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCNOYAU
  7. -INC SMELEME
  8. -INC CCPRECO
  9. SEGMENT ISLIS(NP)
  10. SEGMENT ISLI2(0)
  11. segment isli3(0)
  12. SEGMENT IBLIS(ISLIS(/1))
  13. * LISTE DES SEGMENTS
  14. CALL OOOLIS(ISLIS)
  15. SEGINI IBLIS
  16. * TRI
  17. CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))
  18. * LISTE DES SEGMENTS INITIAUX
  19. ISLI2=NOYSEG
  20. SEGACT ISLI2
  21. * liste des segments du preconditionnement
  22. segini isli3
  23. do 10 ip=1,30
  24. meleme=prenum(ip)
  25. if (meleme.eq.0) goto 10
  26. isli3(**)=meleme
  27. segact meleme
  28. do 20 is=1,lisous(/1)
  29. isli3(**)=lisous(is)
  30. 20 continue
  31. segdes meleme
  32. 10 continue
  33. ** do ip=1,nbemel
  34. ** meleme=premel(ip)
  35. ** if (meleme.ne.0) isli3(**)=meleme
  36. ** enddo
  37. if (isli3(/1).ne.0) CALL TRIENT(ISLI3(1),IBLIS(1),ISLI3(/1))
  38. SEGSUP IBLIS
  39. * OTER LA DEUXIEME LISTE A LA PREMIERE
  40. CALL MENAG3(ISLIS,ISLI2)
  41. SEGDES ISLI2
  42. * OTER LA TROISIEME LISTE
  43. CALL MENAG3(ISLIS,ISLI3)
  44. segsup isli3
  45. END
  46.  
  47.  
  48.  
  49.  

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