Télécharger la plaquette Cast3M


fr en

Télécharger chmdgk.eso

Retour à la liste

Numérotation des lignes : 

chmdgk

  1. C CHMDGK    SOURCE    CHAT      05/01/12    21:58:52     5004
  2.       SUBROUTINE CHMDGK(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       ON FAIT LE MENAGE POUR LES DONNEES DE TEMPERATURE
  8. C
  9. C------------------------------------------------------------------
  10. -INC SMLENTI
  11. -INC SMLREEL
  12.  
  13. -INC PPARAM
  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. C
  24.       IF(IGKMOD.NE.0)THEN
  25. C                  BASE MINEQL
  26.             LGKMOD=IGKMOD
  27.             SEGSUP LGKMOD
  28.             MLREEL=IP1
  29.             SEGDES MLREEL
  30.             MLREEL=IP2
  31.             SEGDES MLREEL
  32.       ELSEIF(IGKTMP.NE.0)THEN
  33. C                   BASE DE STASBOURG
  34.             LGKTMP=IGKTMP
  35.             SEGSUP LGKTMP
  36.             MLREEL=IP1
  37.             SEGDES MLREEL
  38.             MLREEL=IP2
  39.             SEGDES MLREEL
  40.             MLREEL=IP3
  41.             SEGDES MLREEL
  42.             MLENTI=IP4
  43.             SEGDES MLENTI
  44.             MLENTI=IP5
  45.             SEGDES MLENTI
  46.       ENDIF
  47.       RETURN
  48.       END
  49.  
  50.  
  51.  
  52.  

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