Télécharger la plaquette Cast3M


fr en

Télécharger typfil.eso

Retour à la liste

Numérotation des lignes : 

typfil

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

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