Télécharger la plaquette Cast3M


fr en

Télécharger limail.eso

Retour à la liste

Numérotation des lignes : 

limail

  1. C LIMAIL    SOURCE    BP208322  16/11/18    21:18:47     9177           
  2.       SUBROUTINE LIMAIL (MELEME,NBANC,IRETOU,IFORM)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C
  7. C    BUT          :  LECTURE D UN MELEME SUR LA BANDE IORES
  8. C                    INCREMENT DES NUMEROS SI NBANC NON NUL
  9. C    ECRIT PAR FARVACQUE -REPRIS PAR LENA
  10. C    APPELLE      :  LFCDIE
  11. C    APPELLE PAR  :  LIPIL
  12. C=======================================================================
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC CCGEOME
  17. -INC SMELEME
  18. C=======================================================================
  19. C
  20.       DIMENSION ILENA(10)
  21. C
  22. C*******************LECTURE D 1 OBJET MAILLAGE
  23. C
  24.       IRET=0
  25.       MELEME=0
  26.       ITOTO    = 5
  27.       CALL LFCDIE (IORES,ITOTO,ILENA,IRET,IFORM)
  28.       IF(IRET.NE.0) GOTO 1000
  29.       NOMLU =ILENA(1)
  30.       NBSOUS=ILENA(2)
  31.       NBREF =ILENA(3)
  32.       NBNN  =ILENA(4)
  33.       NBELEM=ILENA(5)
  34. C     TEST S IL S AGIT D UN MELEME NUL
  35.       ITEST= ILENA(1)+ILENA(2)+ILENA(3)+ILENA(4)+ILENA(5)
  36.       IF (ITEST.EQ.-100)GO TO  1000
  37.       SEGINI MELEME
  38.       CALL LFCDIE (IORES,NBSOUS,LISOUS,IRET,IFORM)
  39.       IF(IRET.NE.0) GOTO 1001
  40.       CALL LFCDIE (IORES,NBREF,LISREF,IRET,IFORM)
  41.       IF(IRET.NE.0) GOTO 1001
  42. C---- EST CE UN TYPE D'ELEM CONNU
  43.       IF(NOMLU.LE.NOMBR)GOTO 11
  44.   10  CONTINUE
  45. C     MCOT(1)=NOMLU
  46. C     WRITE (MOT(1:4),FMT='(A4)') MCOT
  47.       IRET=1
  48.       GO TO 1000
  49. C-- FAIRE ICI QQCHOSESI ELEM INCONNU
  50. C -----
  51.   11  ITYPEL=NOMLU
  52.       IF (NBELEM.EQ.0) GOTO 7
  53.       L=NBELEM*NBNN
  54.       CALL LFCDIE(IORES,NBELEM,ICOLOR,IRET,IFORM)
  55.       IF(IRET.NE.0) GOTO 1001
  56.   13  CALL LFCDIE(IORES,L,NUM,IRET,IFORM)
  57.       IF(IRET.NE.0) GOTO 1001
  58. C --- INCREMENTATION DES NUMEROS
  59.       IF(IONIVE.LE.9) THEN
  60.         DO 17 IK=1,NBNN
  61.         DO 17 JK=1,NBELEM
  62.         NUM(IK,JK)=NUM(IK,JK)+NBANC
  63.   17     CONTINUE
  64.       ENDIF
  65.    7  CONTINUE
  66.       SEGDES MELEME
  67.       GO TO 1000
  68. C --- CAS D ERREUR
  69.  1001 CONTINUE
  70.       SEGSUP MELEME
  71. C ---
  72.  1000 IRETOU=IRET
  73.       RETURN
  74.       END
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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