Esope source files

   1 : C MANUOB    SOURCE    CHAT      05/01/13    01:29:53     5004           
   2 :       SUBROUTINE MANUOB
   3 : *
   4 : *      PERMET DE DONNER UN NOM A UN POINTEUR
   5 : *
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCOPTIO                                                                    
   8 :       SEGMENT ISLIS(NP)
   9 : *
  10 :       CHARACTER*8  MOTYP
  11 : *
  12 : *     LECTURE DU TYPE ET DU POINTEUR
  13 : *
  13 :       CALL LIRCHA(MOTYP,1,IRETOU)
  14 :       IF(IERR.NE.0) RETURN
  15 : *
  15 :       CALL LIRENT(IPOIN,1,IRETOU)
  16 :       IF(IERR.NE.0) RETURN
  17 : *
  18 : *    ANALYSE DU POINTEUR ( CF MENAG1 )
  19 : *
  19 :       CALL OOOLIS(ISLIS)
  20 :       DO 1 I=1,ISLIS(/1)
  21 :       IF(IPOIN.EQ.ISLIS(I)) GO TO 2
  22 :  1    CONTINUE
  23 : *
  23 :       CALL ERREUR(597)
  24 :       RETURN
  25 : *
  26 :  2    CONTINUE
  27 : *
  27 :       CALL ECROBJ(MOTYP,IPOIN)
  28 :       RETURN                                                                    
  29 :       END                                                                       
  30 :