Télécharger la plaquette Cast3M


fr en

Télécharger ylapl1.eso

Retour à la liste

Numérotation des lignes : 

ylapl1

  1. C YLAPL1    SOURCE    CHAT      05/01/13    04:19:10     5004
  2.       SUBROUTINE YLAPL1()
  3. C************************************************************************
  4. C
  5. C PROJET            :  CASTEM 2000
  6. C
  7. C NOM               :  YLAPL1
  8. C
  9. C DESCRIPTION       :  Subroutine appellée par YLAPL
  10. C
  11. C                      Terms diffusifs VF
  12. C
  13. C                      Calcul du residu / jacobien / DELTAT
  14. C
  15. C LANGUAGE          :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  16. C
  17. C AUTEUR            :  A. BECCANTINI, DRN/DMT/SEMT/LTMF
  18. C
  19. C************************************************************************
  20. C
  21. C
  22. C APPELES (E/S)     :  LIRMOT, ERREUR
  23. C
  24. C
  25. C APPELES           :  YLAP11 (proprietés constantes),
  26. C                      ZLAP11 (multi-espèces)
  27. C
  28. C************************************************************************
  29. C
  30. C*** ENTREE / SORTIE Phrase d'appel GIBIANE:
  31. C cf. lapn.notice
  32. C
  33. C***********************************************************************
  34. C
  35. C HISTORIQUE (Anomalies et modifications éventuelles)
  36. C HISTORIQUE :
  37. C
  38. C************************************************************************
  39. C
  40.       IMPLICIT INTEGER(I-N)
  41.  
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. C
  45.       INTEGER NBOP,IOP
  46.       PARAMETER (NBOP=3)
  47.       CHARACTER*8 LOPTI(NBOP)
  48. C
  49.       DATA LOPTI/'PROPCOST','PERFMULT','CLAUDEIS'/
  50. C
  51. C**** Le modele du GAZ
  52. C
  53.       CALL LIRMOT(LOPTI,NBOP,IOP,1)
  54.       IF(IOP .EQ. 1)THEN
  55.          CALL YLAP11()
  56.       ELSEIF(IOP .EQ. 2)THEN
  57.          CALL ZLAP11()
  58.       ELSEIF(IOP .EQ. 3)THEN
  59.          CALL YLAP22()
  60.       ELSE
  61. C
  62. C******* Message d'erreur standard
  63. C        21 2
  64. C        Données incompatibles
  65. C
  66.          CALL ERREUR(21)
  67.          GOTO 9999
  68.       ENDIF
  69.  9999 RETURN
  70.       END
  71.  
  72.  
  73.  
  74.  
  75.  

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