Télécharger typfil.eso

Retour à la liste

Numérotation des lignes :

  1. C TYPFIL SOURCE PV 17/10/03 21:16:56 9581
  2. SUBROUTINE TYPFIL(ITYPE,IFILE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C ETABLIT LA CORRESPONDANCE :
  7. C NOM DU TYPE (ITYPE) - NUMERO DU TYPE
  8. C SI TYPE EN ENTREE EN SORTIE LE NUMERO DE LA FILE ASSOCIE
  9. C SI FILE EN ENTREE EN SORTIE LE TYPE ASSOCIE
  10. C
  11. C EN RETOUR SI IFILE NEGATIF .....ERREUR ...IFILE=-NPOSSI
  12. C=======================================================================
  13. C TABLEAU KCOLA :
  14. C 1 MELEME 2 CHPOIN 3 MRIGID 4 5 6 MCLSTR
  15. C 7 MELSTR 8 MSOLUT 9 MSTRUC 10 MTABLE 11 12 MSOSTU
  16. C 13 IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL
  17. C 19 MLENTI 20 MCHARG 21 22 MEVOLL 23 MSUPER 24 LOGIQUE
  18. C 25 FLOTTA 26 ENTIER 27 MOT 28 MTEXT 29 MLMOTS 30 MVECT
  19. C 31 MVECTD 32 POINT 33 CONFIG 34 LICHPO 35 BASEM 36 PROCEDUR
  20. C 37 BLOC 38 MMODEL 39 MCHAML 40 MINTE 41 MNUAGE 42 MATRAK
  21. C 43 MATRIK 44 OBJET 45 METHODE 46 ESCLAVE 47 FANTOME
  22. C=======================================================================
  23. PARAMETER (NPOSSI=48)
  24. CHARACTER*(*) ITYPE
  25. CHARACTER*(8) IPOSSI(NPOSSI)
  26. C
  27. DATA IPOSSI( 1) /'MAILLAGE'/
  28. C
  29. DATA IPOSSI( 2) /'CHPOINT '/
  30. C
  31. DATA IPOSSI( 3) /'RIGIDITE'/
  32. C
  33. DATA IPOSSI( 4) /'********'/
  34. C
  35. DATA IPOSSI( 5) /'********'/
  36. C
  37. DATA IPOSSI( 6) /'BLOQSTRU'/
  38. C
  39. DATA IPOSSI( 7) /'ELEMSTRU'/
  40. C
  41. DATA IPOSSI( 8) /'SOLUTION'/
  42. C
  43. DATA IPOSSI( 9) /'STRUCTUR'/
  44. C
  45. DATA IPOSSI(10) /'TABLE '/
  46. C
  47. DATA IPOSSI(11) /'********'/
  48. C
  49. DATA IPOSSI(12) /'MSOSTU '/
  50. C
  51. DATA IPOSSI(13) /'IMATRI '/
  52. C
  53. DATA IPOSSI(14) /'MJONCT '/
  54. C
  55. DATA IPOSSI(15) /'ATTACHE '/
  56. C
  57. DATA IPOSSI(16) /'MMATRI '/
  58. C
  59. DATA IPOSSI(17) /'DEFORME '/
  60. C
  61. DATA IPOSSI(18) /'LISTREEL'/
  62. C
  63. DATA IPOSSI(19) /'LISTENTI'/
  64. C
  65. DATA IPOSSI(20) /'CHARGEME'/
  66. C
  67. DATA IPOSSI(21) /'********'/
  68. C
  69. DATA IPOSSI(22) /'EVOLUTIO'/
  70. C
  71. DATA IPOSSI(23) /'SUPERELE'/
  72. C
  73. DATA IPOSSI(24) /'LOGIQUE '/
  74. C
  75. DATA IPOSSI(25) /'FLOTTANT'/
  76. C
  77. DATA IPOSSI(26) /'ENTIER '/
  78. C
  79. DATA IPOSSI(27) /'MOT '/
  80. C
  81. DATA IPOSSI(28) /'TEXTE '/
  82. C
  83. DATA IPOSSI(29) /'LISTMOTS'/
  84. C
  85. DATA IPOSSI(30) /'VECTEUR '/
  86. C
  87. DATA IPOSSI(31) /'VECTDOUB'/
  88. C
  89. DATA IPOSSI(32) /'POINT '/
  90. C
  91. DATA IPOSSI(33) /'CONFIGUR'/
  92. C
  93. DATA IPOSSI(34) /'LISTCHPO'/
  94. C
  95. DATA IPOSSI(35) /'BASEMODA'/
  96. C
  97. DATA IPOSSI(36) /'PROCEDUR'/
  98. C
  99. DATA IPOSSI(37) /'BLOC '/
  100. C
  101. DATA IPOSSI(38) /'MMODEL '/
  102. C
  103. DATA IPOSSI(39) /'MCHAML '/
  104. C
  105. DATA IPOSSI(40) /'MINTE '/
  106. C
  107. DATA IPOSSI(41) /'NUAGE '/
  108. C
  109. DATA IPOSSI(42) /'MATRAK '/
  110. C
  111. DATA IPOSSI(43) /'MATRIK '/
  112. C
  113. DATA IPOSSI(44) /'OBJET '/
  114. C
  115. DATA IPOSSI(45) /'METHODE '/
  116. C
  117. DATA IPOSSI(46) /'ESCLAVE '/
  118. C
  119. DATA IPOSSI(47) /'FANTOME '/
  120. C
  121. DATA IPOSSI(48) /'IELVAL '/
  122. C
  123. C Maniere de fonctionnement en fonction des parametres :
  124. C
  125. C ITYPE | IFILE | Resultat
  126. C -----------------------------------------------------------
  127. C 8 blancs | >= 1 et <= NPOSSI | ITYPE <- IPOSSI(IFILE)
  128. C 8 blancs | < 1 ou > NPOSSI | IFILE <- -NPOSSI
  129. C qqch | peu importe | IFILE <- I tq IPOSSI(I)=qqch
  130. C | | -NPOSSI si un tel I n'existe pas
  131. C
  132. IF(ITYPE.EQ.' ') THEN
  133. C ------ ON RENVOIE DANS ITYPE, LE TYPE CORRESPONDANT A IFILE
  134. C ------ A CONDITION QUE IFILE SOIT BON
  135. IF (IFILE.LT.1.OR.IFILE.GT.NPOSSI) THEN
  136. IFILE = -NPOSSI
  137. ELSE
  138. ITYPE = IPOSSI(IFILE)
  139. ENDIF
  140. ELSE
  141. C ------ ON RENVOIE DANS IFILE,LE NUMERO CORRESPONDANT AU TYPE ITYPE
  142. DO 3 I=1,NPOSSI
  143. IF(ITYPE.EQ.IPOSSI(I)) THEN
  144. IFILE=I
  145. RETURN
  146. ENDIF
  147. 3 CONTINUE
  148. IFILE = -NPOSSI
  149. ENDIF
  150. C
  151. RETURN
  152. END
  153.  
  154.  
  155.  
  156.  
  157.  

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