[updated 9.Nov.2000]

Librairie ef00 > Fichier elxxco.f 

line
      SUBROUTINE ELXXCO
line
  Auteur : D.Martin (Novembre 1988)
  Derniere modification : D.Martin (13 Janvier 2000)
  Version 1.0.1
 
  Procedure 'Vide' pour un oubli de procedure de type ElemCO
 
 -- Arguments des point d'entree secondaire -- Cf. Commentaire dans ElemCO
line
      INTEGER TYPE,NDIM
      REAL    CORLOC(NDIM,*)
 
      CHARACTER*2 SPNAME,TYNAME
line
      ENTRY HEXXCO (TYPE,NDIM,CORLOC)
      SPNAME='HE'
      GOTO 1
 
      ENTRY PRXXCO (TYPE,NDIM,CORLOC)
      SPNAME='PR'
      GOTO 1
 
      ENTRY TEXXCO (TYPE,NDIM,CORLOC)
      SPNAME='TE'
      GOTO 1
 
      ENTRY QUXXCO (TYPE,NDIM,CORLOC)
      SPNAME='QU'
      GOTO 1
 
      ENTRY TRXXCO (TYPE,NDIM,CORLOC)
      SPNAME='TR'
      GOTO 1
 
      ENTRY SEXXCO (TYPE,NDIM,CORLOC)
      SPNAME='SE'
 
1     CALL ENCLER (TYPE,TYNAME)
      IF (TYNAME(1:1).EQ.' ') TYNAME='0'
      CALL BAISE  ('*Elxxco* Vous avez oublie le sous-programme '
     &//SPNAME//'XXCO pour le type '//TYNAME//'.')
                                                                    END !Elxxco
line
top