Télécharger limail.eso

Retour à la liste

Numérotation des lignes :

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

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