Télécharger chrcha.eso

Retour à la liste

Numérotation des lignes :

  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