Esope source files

   1 : C KRIPEE    SOURCE    CHAT      05/01/13    01:07:24     5004           
   2 :       SUBROUTINE KRIPEE(LENTI,NRANGE,
   3 :      $     KRENTI,
   4 :      $     IMPR,IRET)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : C***********************************************************************
   8 : C NOM         : KRIPEE
   9 : C DESCRIPTION : Inspiré de KRIPAD.
  10 : C               On construit KRENTI tel que 
  11 : C               KRENTI(LENTI(ienti))=ienti
  12 : C               Les entiers de LENTI sont compris entre 1 et NRANGE
  13 : C
  14 : C LANGAGE     : ESOPE
  15 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  16 : C               mél : gounand@semt2.smts.cea.fr
  17 : C***********************************************************************
  18 : C APPELES          : RSETEE
  19 : C APPELES (UTIL.)  : OOOETA
  20 : C APPELE PAR       : PROMAT
  21 : C***********************************************************************
  22 : C ENTREES            : LENTI, NRANGE
  23 : C SORTIES            : KRENTI
  24 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  25 : C***********************************************************************
  26 : C VERSION    : v1, 03/02/99, version initiale
  27 : C HISTORIQUE : v1, 03/02/99, création
  28 : C HISTORIQUE :
  29 : C HISTORIQUE :
  30 : C***********************************************************************
  31 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  32 : C en cas de modification de ce sous-programme afin de faciliter
  33 : C la maintenance !
  34 : C***********************************************************************
  35 : -INC CCOPTIO
  36 : -INC SMLENTI
  37 :       POINTEUR LENTI.MLENTI
  38 :       INTEGER JG
  39 :       POINTEUR KRENTI.MLENTI
  40 : *
  41 :       INTEGER IMPR,IRET
  42 : *
  43 :       INTEGER LEETA
  44 :       INTEGER NLENTI,NRANGE
  45 : *     
  46 : * Executable statements
  47 : *
  48 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans kripee.eso'
  49 :       JG=NRANGE
  50 :       SEGINI KRENTI
  50 :       CALL OOOETA(LENTI,LEETA)
  51 :       IF (LEETA.NE.1) SEGACT LENTI
  52 :       NLENTI=LENTI.LECT(/1)
  52 :       CALL RSETEE(LENTI.LECT,NLENTI,
  53 :      $     KRENTI.LECT,NRANGE,
  54 :      $     IMPR,IRET)
  55 :       IF (IRET.NE.0) GOTO 9999
  56 :       IF (LEETA.NE.1) SEGDES LENTI
  57 :       SEGDES KRENTI
  58 : *     
  59 : * Normal termination
  60 : *
  61 :       IRET=0
  62 :       RETURN
  63 : *
  64 : * Format handling
  65 : *
  66 : *
  67 : * Error handling
  68 : *
  69 :  9999 CONTINUE
  70 :       IRET=1
  71 :       WRITE(IOIMP,*) 'An error was detected in subroutine kripee'
  72 :       RETURN
  73 : *
  74 : * End of subroutine KRIPEE
  75 : *
  76 :       END
  77 : 
  78 : 
  79 :  
  80 :