[updated 23.Jan.2001]

Librairie utiliter > Fichier cessin.f

Qui appelle cessin ?

line
      FUNCTION CESSIN (INDICE)
line
  Auteur : D.Martin (Janvier 2001)
  Derniere modification : D.Martin (23 Janvier 2001)
  Version 1.0.0
 
  Retrouve le type de calcul d'un terme 'Condition Essentielle' d'apres le code
  Function reciproque InCess
 
 -- Argument d'entree --
  INDICE entier representant le type d'assemblage d'apres InCess
line
      IMPLICIT NONE
      CHARACTER*(*) CESSIN
      INTEGER       INDICE
 
      INTEGER       NBCHEN,NBCCHN
      PARAMETER    (NBCHEN=3,NBCCHN=2)
      CHARACTER*2   CCCHEN*120,TBCHEN(NBCHEN)
      COMMON/ONSEPA/CCCHEN
      EQUIVALENCE  (TBCHEN,CCCHEN)
line
      CCCHEN(1:NBCCHN*NBCHEN)='  .N^N'
 
      IF (INDICE.LE.1) THEN
         CESSIN=' '
      ELSEIF (INDICE.LE.NBCHEN) THEN
         CESSIN=TBCHEN(INDICE)
      ELSE
         CALL ENCLER (INDICE,TBCHEN(1))                                 !utilite
         CALL BAISE  (' *CessIn* Code entier de type Cond. ESsentielle'
     &//' fantaisiste :'//TBCHEN(1)//'.')
      ENDIF
                                                                    END !CessIn
line
top

cessin est appelé dans (2 procédures)

top