Télécharger la plaquette Cast3M


fr en

Télécharger chrcha.eso

Retour à la liste

Numérotation des lignes : 

chrcha

  1. C CHRCHA    SOURCE    CHAT      05/01/12    22:01:43     5004
  2.       SUBROUTINE CHRCHA(MOT,ITYP,IRET,ISOLIT)
  3. C====================================================================
  4. C     SUBROUTINE FORTRAN POUR CHERCHER DANS LE MSOLUT DE TYPE ITYP
  5. C     LE RANG IRET DES CHAMPS DE TYPE MOT.
  6. C     ECRIT PAR FARVACQUE 16/10/85
  7. C     IS....= 2 : CHPOINT   |
  8. C     IS....= 5 : MCHELM    |   POUR MSOLIT(IRET). VOIR LE SOUS PROG.
  9. C     IS....= 14: MJONCT    |   TYPFIL QUI MET EN CORRSPONDANCE LE TYPE
  10. C                               ET LE NUMERO
  11. C======================================================================
  12.       IMPLICIT INTEGER(I-N)
  13.       CHARACTER*4 MOT
  14.       CHARACTER*8 ITYP
  15.       CHARACTER*4 IDYNA(9),IMODE(5),ISOLS(6),IGREEN(1)
  16.       DIMENSION ISDYNA(9),ISMODE(5),ISSOLS(6),ISGREE(1)
  17.       DATA LDYNA/9/,LMODE/5/,LSOLS/6/,LGREE/1/
  18.       DATA IMODE/'DEPL','CONT','VMIS','VITE','ACCE'/
  19.       DATA ISMODE/2,5,5,2,2/
  20.       DATA ISOLS/'DEPL','CONT','VMIS','VITE','ACCE','JONC'/
  21.       DATA ISSOLS/2,5,5,2,2,14/
  22. C
  23. C  2 MOTS SONT BLANCS DS IDYNA CORRESPONDANT AUX MSOLIS(11 & 12) RESERVE
  24. C  PAR ALGOGD . DEVO UTILSE MSOLIS(13)
  25. C
  26.       DATA IDYNA/'DEPL','CONT','VMIS','VITE','ACCE','LIAI','    ',
  27.      &           '    ','USUR'/
  28.       DATA ISDYNA/2,5,5,2,2,2,0,0,2/
  29.       DATA IGREEN/'GREE'/
  30.       DATA ISGREE/2/
  31. C
  32.       IRET=0
  33.       ISOLIT=0
  34.       IF(ITYP.NE.'MODE    ') GOTO 100
  35.       CALL CHRMOT(IMODE,LMODE,MOT,IRET)
  36.       IF(IRET.NE.0) THEN
  37.         ISOLIT=ISMODE(IRET)
  38.         IRET=IRET+4
  39.       ENDIF
  40.       GOTO 5000
  41.   100 CONTINUE
  42.       IF(ITYP.NE.'SOLUSTAT'.AND.ITYP.NE.'PSEUMODE') GOTO 101
  43.       CALL CHRMOT(ISOLS,LSOLS,MOT,IRET)
  44.       IF(IRET.NE.0) THEN
  45.         ISOLIT=ISSOLS(IRET)
  46.         IRET=IRET+4
  47.       ENDIF
  48.       GOTO 5000
  49.   101 CONTINUE
  50.       IF(ITYP.NE.'DYNAMIQU')GOTO 102
  51.       CALL CHRMOT(IDYNA,LDYNA,MOT,IRET)
  52.       IF(IRET.NE.0) THEN
  53.         ISOLIT=ISDYNA(IRET)
  54.         IRET=IRET+4
  55.       ENDIF
  56.       GOTO 5000
  57.   102 CONTINUE
  58.       IF(ITYP.NE.'FONCGREE')GOTO 103
  59.       CALL CHRMOT(IGREEN,LGREE,MOT,IRET)
  60.       IF(IRET.NE.0) THEN
  61.         ISOLIT=ISGREE(IRET)
  62.         IRET=IRET+4
  63.       ENDIF
  64.       GOTO 5000
  65.   103 CONTINUE
  66.  5000 CONTINUE
  67.       RETURN
  68.       END
  69.  
  70.  

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