Esope source files

   1 : C TYPFIL    SOURCE    FANDEUR   10/12/14    21:20:04     6812           
   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=47)
  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 : C  Maniere de fonctionnement en fonction des parametres :
 122 : C
 123 : C       ITYPE   |       IFILE         |        Resultat
 124 : C    -----------------------------------------------------------
 125 : C      8 blancs | >= 1 et <= NPOSSI   |   ITYPE <- IPOSSI(IFILE)
 126 : C      8 blancs |  < 1 ou  > NPOSSI   |   IFILE <- -NPOSSI
 127 : C       qqch    |    peu importe      |   IFILE <-  I       tq IPOSSI(I)=qqch
 128 : C               |                     |            -NPOSSI  si un tel I n'existe pas
 129 : C
 130 :       IF(ITYPE.EQ.'        ') THEN
 131 : C ------ ON RENVOIE DANS ITYPE, LE TYPE CORRESPONDANT A IFILE
 132 : C ------ A CONDITION QUE IFILE SOIT BON
 133 :          IF (IFILE.LT.1.OR.IFILE.GT.NPOSSI) THEN
 134 :            IFILE = -NPOSSI
 135 :          ELSE
 136 :            ITYPE = IPOSSI(IFILE)
 137 :          ENDIF
 138 :       ELSE
 139 : C ------ ON RENVOIE DANS IFILE,LE NUMERO CORRESPONDANT AU TYPE ITYPE
 140 :          DO 3 I=1,NPOSSI
 141 :             IF(ITYPE.EQ.IPOSSI(I)) THEN
 142 :                IFILE=I
 143 :                RETURN
 144 :             ENDIF
 145 :    3     CONTINUE
 146 :          IFILE = -NPOSSI
 147 :       ENDIF
 148 : C
 149 :       RETURN
 150 :       END
 151 : 
 152 :