Télécharger menag1.eso

Retour à la liste

Numérotation des lignes :

  1. C MENAG1 SOURCE CB215821 17/10/18 21:15:06 9592
  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. C LISTE DES SEGMENTS
  14. CALL OOOLIS(ISLIS)
  15. SEGINI IBLIS
  16. C TRI
  17. CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))
  18. C LISTE DES SEGMENTS INITIAUX
  19. ISLI2=NOYSEG
  20. SEGACT ISLI2
  21.  
  22. C liste des segments du preconditionnement des MELEME
  23. segini isli3
  24. do 10 ip=1,30
  25. meleme=prenum(ip)
  26. if (meleme.eq.0) goto 10
  27. isli3(**)=meleme
  28. segact meleme
  29. do 20 is=1,lisous(/1)
  30. isli3(**)=lisous(is)
  31. 20 continue
  32. segdes,meleme
  33. 10 continue
  34.  
  35. C liste des segments du preconditionnement des MLENTI dans REDUAF
  36. DO 30 ith1=1,NBASMA+1
  37. DO 40 ip=1,NTRIPL
  38. mlenti=PMLENT(ip,ith1)
  39. if (mlenti.EQ.0) GOTO 40
  40. isli3(**)=mlenti
  41. 40 CONTINUE
  42. 30 CONTINUE
  43.  
  44.  
  45. C* do ip=1,nbemel
  46. C* meleme=premel(ip)
  47. C* if (meleme.ne.0) isli3(**)=meleme
  48. C* enddo
  49. if (isli3(/1).ne.0) CALL TRIENT(ISLI3(1),IBLIS(1),ISLI3(/1))
  50. SEGSUP IBLIS
  51. C OTER LA DEUXIEME LISTE A LA PREMIERE
  52. CALL MENAG3(ISLIS,ISLI2)
  53. SEGDES ISLI2
  54. C OTER LA TROISIEME LISTE
  55. CALL MENAG3(ISLIS,ISLI3)
  56. segsup isli3
  57. END
  58.  
  59.  
  60.  
  61.  
  62.  

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