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