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    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