Télécharger la plaquette Cast3M


fr en

Télécharger chmlgk.eso

Retour à la liste

Numérotation des lignes : 

chmlgk

  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.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.       SEGMENT LGKMOD
  18.            REAL*8 DELH0(NYDIM),DELCP0(NYDIM)
  19.       ENDSEGMENT
  20.       SEGMENT LGKTMP
  21.            INTEGER NUMT(NYDIM),NTVT(NYDIM)
  22.            REAL*8 TMIMA(NYDIM,NT)
  23.            REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT)
  24.       ENDSEGMENT
  25.       CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
  26. C
  27.       IF(IGKMOD.NE.0)THEN
  28. C                  BASE MINEQL
  29.             LGKMOD=IGKMOD
  30.             MLREEL=IP1
  31.             NYDIM=PROG(/1)
  32.             CALL RSETD(DELH0,PROG,NYDIM)
  33.             MLREEL=IP2
  34.             CALL RSETD(DELCP0,PROG,NYDIM)
  35.       ELSEIF(IGKTMP.NE.0)THEN
  36. C                   BASE DE STASBOURG
  37.             LGKTMP=IGKTMP
  38.             MLREEL=IP1
  39.             JG=PROG(/1)
  40.             CALL RSETD(TMIMA,PROG,JG)
  41.             MLREEL=IP2
  42.             JG=PROG(/1)
  43.             CALL RSETD(POLYT,PROG,JG)
  44.             MLREEL=IP3
  45.             JG=PROG(/1)
  46.             CALL RSETD(TGKLU,PROG,JG)
  47.             MLENTI=IP4
  48.             NYDIM=LECT(/1)
  49.             CALL RSETI(NTVT,LECT,NYDIM)
  50.             MLENTI=IP5
  51.             CALL RSETI(NUMT,LECT,NYDIM)
  52.       ENDIF
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  
  58.  

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