Télécharger la plaquette Cast3M


fr en

Télécharger menag1.eso

Retour à la liste

Numérotation des lignes : 

menag1

  1. C MENAG1    SOURCE    PV        21/12/21    21:15:03     11215          
  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,npreco
  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. C  liste des segments du preconditionnement de ACTOBJ
  45.       DO 50 ith1=1,NBASMA+1
  46.         iseg=PACTOB(ith1)
  47.         if(iseg.EQ.0) GOTO 50
  48.         isli3(**)=iseg
  49.   50  CONTINUE
  50.  
  51.  
  52. C*    do  ip=1,nbemel
  53. C*     meleme=premel(ip)
  54. C*     if (meleme.ne.0) isli3(**)=meleme
  55. C*     enddo
  56.        if (isli3(/1).ne.0) CALL TRIENT(ISLI3(1),IBLIS(1),ISLI3(/1))
  57.        SEGSUP IBLIS
  58. C  OTER LA DEUXIEME LISTE A LA PREMIERE
  59.       CALL MENAG3(ISLIS,ISLI2)
  60.       SEGDES ISLI2
  61. C  OTER LA TROISIEME LISTE
  62.       CALL MENAG3(ISLIS,ISLI3)
  63.       segsup isli3
  64.       END
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  

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