Esope source files

   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 : -INC CCOPTIO
  42 : C
  43 :       INTEGER NBOP,IOP
  44 :       PARAMETER (NBOP=3)
  45 :       CHARACTER*8 LOPTI(NBOP)
  46 : C
  47 :       DATA LOPTI/'PROPCOST','PERFMULT','CLAUDEIS'/
  48 : C
  49 : C**** Le modele du GAZ
  50 : C
  50 :       CALL LIRMOT(LOPTI,NBOP,IOP,1)
  51 :       IF(IOP .EQ. 1)THEN
  51 :          CALL YLAP11()
  52 :       ELSEIF(IOP .EQ. 2)THEN
  52 :          CALL ZLAP11()
  53 :       ELSEIF(IOP .EQ. 3)THEN
  53 :          CALL YLAP22()
  54 :       ELSE
  55 : C
  56 : C******* Message d'erreur standard
  57 : C        21 2
  58 : C        Données incompatibles
  59 : C
  59 :          CALL ERREUR(21)
  60 :          GOTO 9999
  61 :       ENDIF
  62 :  9999 RETURN
  63 :       END
  64 :  
  65 :  
  66 :  
  67 :