[updated 12.Dec.2002]

Qui appelle intykl ?

      FUNCTION INTYKL (CHAINE)

  Auteur : D.Martin (Octobre 1989)  
  Derniere modification : D.Martin (12 decembre 2002)
  Version 1.0.3
   
  Codage du type de calcul d'un terme par un entier
  Function reciproque YklInt
   
 -- Argument d'entree --  
  CHAINE chaine de caractere representant le type de calcul  

      IMPLICIT NONE
      CHARACTER   CHAINE*(*)
      INTEGER     INTYKL
 
      CHARACTER   UPPERC*6
      INTEGER     KELCHN
      INTEGER     NBCHEN,NBCCHN
      PARAMETER ( NBCHEN=15,NBCCHN=6 )
      CHARACTER   CCCHEN*120,TBCHEN(NBCCHN*NBCHEN),CHAINW*6
      COMMON/ONSEPA/CCCHEN
      EQUIVALENCE ( TBCHEN,CCCHEN)

      INTYKL=0
      CHAINW=UPPERC (CHAINE)
      CCCHEN(:NBCCHN*NBCHEN)=
     &  'NONDEFMATELMELFINIELFLQUELFLOCSPECTRC.ESSEC.TRANVALNODCOUPLA'
     &//'ASSEMBSOLUTIFACTORINTERPFORMLI'
 
      INTYKL=KELCHN (CHAINE,TBCHEN,NBCHEN,NBCCHN)                       !utilite
   
      IF (INTYKL.GT.0) INTYKL=INTYKL-1

                                                                    END !Intykl

intykl est appelé dans (60 procédures)