Télécharger ecevol.eso

Retour à la liste

Numérotation des lignes :

  1. C ECEVOL SOURCE BP208322 16/11/18 21:16:34 9177
  2. SUBROUTINE ECEVOL(MEVOLL,jentet)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C ====================================================================
  7. C = ECRITURE DE L'OBJET EVOLUTION =
  8. C = CREATION : 01/10/86 =
  9. C = PROGRAMMEUR : GUILBAUD =
  10. C ====================================================================
  11. C
  12. -INC CCOPTIO
  13. -INC SMLREEL
  14. -INC SMEVOLL
  15. -INC SMELEME
  16. -INC SMLENTI
  17. -INC SMLMOTS
  18. -INC CCGEOME
  19. SEGACT MEVOLL
  20. WRITE (IOIMP,100) IEVTEX
  21. 100 FORMAT (2X,A72)
  22. N=IEVOLL(/1)
  23. INTERR(1)=MEVOLL
  24. INTERR(2)=N
  25. MOTERR(1:8)=ITYEVO
  26. CALL ERREUR(-116)
  27. C
  28. DO 1 I=1,N
  29. KEVOLL=IEVOLL(I)
  30. SEGACT KEVOLL
  31. INTERR(1)=I
  32. MOTERR(1:4)=NCOUL(NUMEVX)
  33. CALL ERREUR(-117)
  34. WRITE (IOIMP,100) KEVTEX
  35. MOTERR(1:12)= NOMEVX
  36. CALL ERREUR(-118)
  37. MOTERR(1:4)=NUMEVY
  38. MOTERR(5:16)=NOMEVY
  39. CALL ERREUR(-119)
  40.  
  41. IF(TYPX.EQ.'LISTREEL')THEN
  42. MLREEL=IPROGX
  43. SEGACT MLREEL
  44. NPAS=PROG(/1)
  45. npi=npas
  46. if(jentet.eq.1) npi=min(npi,10)
  47. INTERR(1)=NPAS
  48. CALL ERREUR(-120)
  49. 106 FORMAT (' NOMBRE DE POINTS =',I7)
  50.  
  51. IF(TYPY.EQ.'LISTREEL') THEN
  52. MLREE1=IPROGY
  53. SEGACT MLREE1
  54. WRITE(IOIMP,101)(J,PROG(J),MLREE1.PROG(J),J=1,NPi)
  55. C 101 FORMAT(/4(1X,I5,1X,1PE12.5,1X,1PE12.5,1X))
  56. 101 FORMAT(/(3X,I5,3X,1PE12.5,3X,1PE12.5))
  57. SEGDES MLREEL,MLREE1
  58.  
  59. ELSEIF(TYPY.EQ.'LISTMOTS') THEN
  60. MLMOTS=IPROGY
  61. SEGACT MLMOTS
  62. WRITE(IOIMP,102)(J,PROG(J),MOTS(J),J=1,NPi)
  63. C 102 FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X))
  64. 102 FORMAT(/(3X,I5,3X,1PE12.5,3X,A8))
  65. SEGDES MLREEL,MLMOTS
  66.  
  67. ELSEIF(TYPY.EQ.'LISTENTI') THEN
  68. MLENTI=IPROGY
  69. SEGACT MLENTI
  70. WRITE(IOIMP,103)(J,PROG(J),LECT(J),J=1,NPi)
  71. C 103 FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X))
  72. 103 FORMAT(/(3X,I5,3X,1PE12.5,3X,I8))
  73. SEGDES MLREEL,MLENTI
  74. ENDIF
  75.  
  76. ELSEIF(TYPX.EQ.'LISTMOTS') THEN
  77. MLMOTS=IPROGX
  78. SEGACT MLMOTS
  79. NPAS=MOTS(/2)
  80. npi=npas
  81. if(jentet.eq.1) npi=min(npi,10)
  82. INTERR(1)=NPAS
  83. CALL ERREUR(-120)
  84.  
  85. IF(TYPY.EQ.'LISTREEL') THEN
  86. MLREE1=IPROGY
  87. SEGACT MLREE1
  88. WRITE(IOIMP,111)(J,MOTS(J),MLREE1.PROG(J),J=1,NPi)
  89. C 111 FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X))
  90. 111 FORMAT(/(3X,I5,3X,A8,3X,1PE12.5))
  91. SEGDES MLMOTS,MLREE1
  92.  
  93. ELSEIF(TYPY.EQ.'LISTMOTS') THEN
  94. MLMOT2=IPROGY
  95. SEGACT MLMOT2
  96. WRITE(IOIMP,112)(J,MOTS(J),MLMOT2.MOTS(J),J=1,NPi)
  97. C 112 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X))
  98. 112 FORMAT(/(3X,I5,3X,A8,3X,A8))
  99. SEGDES MLMOTS,MLMOT2
  100.  
  101. ELSEIF(TYPY.EQ.'LISTENTI') THEN
  102. MLENTI=IPROGY
  103. SEGACT MLENTI
  104. WRITE(IOIMP,113)(J,MOTS(J),LECT(J),J=1,NPi)
  105. C 113 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X))
  106. 113 FORMAT(/(3X,I5,3X,A8,3X,I8))
  107. SEGDES MLMOTS,MLENTI
  108. ENDIF
  109.  
  110. ELSEIF(TYPX.EQ.'LISTENTI') THEN
  111. MLENTI=IPROGX
  112. SEGACT MLENTI
  113. NPAS=LECT(/1)
  114. npi=npas
  115. if(jentet.eq.1) npi=min(npi,10)
  116. INTERR(1)=NPAS
  117. CALL ERREUR(-120)
  118.  
  119. IF(TYPY.EQ.'LISTREEL') THEN
  120. MLREE1=IPROGY
  121. SEGACT MLREE1
  122. WRITE(IOIMP,121)(J,LECT(J),MLREE1.PROG(J),J=1,NPi)
  123. C 121 FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X))
  124. 121 FORMAT(/(3X,I5,3X,I8,3X,1PE12.5))
  125. SEGDES MLENTI,MLREE1
  126.  
  127. ELSEIF(TYPY.EQ.'LISTMOTS') THEN
  128. MLMOT2=IPROGY
  129. SEGACT MLMOT2
  130. WRITE(IOIMP,122)(J,LECT(J),MLMOT2.MOTS(J),J=1,NPi)
  131. C 122 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X))
  132. 122 FORMAT(/(3X,I5,3X,I8,3X,A8))
  133. SEGDES MLENTI,MLMOT2
  134.  
  135. ELSEIF(TYPY.EQ.'LISTENTI') THEN
  136. MLENT1=IPROGY
  137. SEGACT MLENT1
  138. WRITE(IOIMP,113)(J,LECT(J),MLENT1.LECT(J),J=1,NPi)
  139. C 123 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X))
  140. 123 FORMAT(/(3X,I5,3X,I8,3X,I8))
  141. SEGDES MLENTI,MLENT1
  142. ENDIF
  143. ENDIF
  144. SEGDES KEVOLL
  145. 1 CONTINUE
  146. SEGDES MEVOLL
  147. RETURN
  148. END
  149.  
  150.  
  151.  
  152.  
  153.  

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