Télécharger typfil.eso

Retour à la liste

Numérotation des lignes :

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

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