Esope source files

   1 : C CHPOIN    SOURCE    CHAT      05/01/12    22:01:36     5004           
   2 :       SUBROUTINE CHPOIN                                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                              C H P O I N                                      
   6 : *                              -----------                                      
   7 : *                                                                               
   8 : *            SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "CHPOINT"                     
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *                                                                               
  13 : *     CREER UN CHPOINT.                                                         
  14 : *                                                                               
  15 : * PHRASE D'APPEL (EN GIBIANE):                                                  
  16 : * ----------------------------                                                  
  17 : *                                                                               
  18 : *                   | ALEATOIRE ... |                                           
  19 : *     ... = CHPOINT |               | ;                                         
  20 : *                   | UNIFORME  ... |                                           
  21 : *                                                                               
  22 : *     LES SYNTAXES COMPLETES SE TROUVENT DANS LES SOUS-PROGRAMMES               
  23 : *     RELATIFS A CHAQUE OPTION.                                                 
  24 : *                                                                               
  25 : * SOUS-PROGRAMMES APPELES:                                                      
  26 : * ------------------------                                                      
  27 : *                                                                               
  28 : *     ALEAT, LIRMOT, UNIFOR.                                                    
  29 : *                                                                               
  30 : * AUTEUR, DATE DE CREATION:                                                     
  31 : * -------------------------                                                     
  32 : *                                                                               
  33 : *     PASCAL MANIGOT     29 MARS 1985                                           
  34 : *                                                                               
  35 : * LANGAGE:                                                                      
  36 : * --------                                                                      
  37 : *                                                                               
  38 : *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS                    
  39 : *                                                                               
  40 : ************************************************************************        
  41 : *                                                                               
  42 :       IMPLICIT INTEGER(I-N)
  43 : -INC CCOPTIO                                                                    
  44 : *                                                                               
  45 :       PARAMETER (NBRMOT = 2)                                                    
  46 : *                                                                               
  47 :       CHARACTER*4 LISMOT(NBRMOT)                                                
  48 : *                                                                               
  49 :       DATA LISMOT/'ALEA','UNIF'/                                                
  50 : *                                                                               
  51 :       ICODE = 1                                                                 
  52 :       NBMOT = NBRMOT                                                            
  52 :       CALL LIRMOT (LISMOT,NBMOT,NUMLIS,ICODE)                                   
  53 :       IF (IERR .NE. 0) RETURN                                                   
  54 : *                                                                               
  55 :       IF (NUMLIS .EQ. 1) THEN                                                   
  55 :          CALL ALEAT                                                             
  56 :       ELSE IF (NUMLIS .EQ. 2) THEN                                              
  56 :          CALL UNIFOR                                                            
  57 :       END IF                                                                    
  58 : *                                                                               
  59 :       END                                                                       
  60 :