Télécharger chmlgk.eso

Retour à la liste

Numérotation des lignes :

  1. C CHMLGK SOURCE CHAT 05/01/12 21:59:20 5004
  2. SUBROUTINE CHMLGK(IGKMOD,IGKTMP,IP1,IP2,IP3,IP4,IP5)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C CHARGEMENT DES SEGMENTS LGKMOD OU LGKTMP S'ILS EXISTENT
  8. C S'ILS EXISTENT ILS SONT ACTIFS
  9. C SINON ON RETOURNE
  10. C
  11. C------------------------------------------------------------------
  12. -INC SMLENTI
  13. -INC SMLREEL
  14. -INC CCOPTIO
  15. SEGMENT LGKMOD
  16. REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  17. ENDSEGMENT
  18. SEGMENT LGKTMP
  19. INTEGER NUMT(NYDIM),NTVT(NYDIM)
  20. REAL*8 TMIMA(NYDIM,NT)
  21. REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT)
  22. ENDSEGMENT
  23. CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
  24. C
  25. IF(IGKMOD.NE.0)THEN
  26. C BASE MINEQL
  27. LGKMOD=IGKMOD
  28. MLREEL=IP1
  29. NYDIM=PROG(/1)
  30. CALL RSETD(DELH0,PROG,NYDIM)
  31. MLREEL=IP2
  32. CALL RSETD(DELCP0,PROG,NYDIM)
  33. ELSEIF(IGKTMP.NE.0)THEN
  34. C BASE DE STASBOURG
  35. LGKTMP=IGKTMP
  36. MLREEL=IP1
  37. JG=PROG(/1)
  38. CALL RSETD(TMIMA,PROG,JG)
  39. MLREEL=IP2
  40. JG=PROG(/1)
  41. CALL RSETD(POLYT,PROG,JG)
  42. MLREEL=IP3
  43. JG=PROG(/1)
  44. CALL RSETD(TGKLU,PROG,JG)
  45. MLENTI=IP4
  46. NYDIM=LECT(/1)
  47. CALL RSETI(NTVT,LECT,NYDIM)
  48. MLENTI=IP5
  49. CALL RSETI(NUMT,LECT,NYDIM)
  50. ENDIF
  51. RETURN
  52. END
  53.  
  54.  
  55.  
  56.  

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