Sources Esope | Cast3M

manuob
C MANUOB    SOURCE    CHAT      05/01/13    01:29:53     5004
      SUBROUTINE MANUOB
*
*      PERMET DE DONNER UN NOM A UN POINTEUR
*
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      SEGMENT ISLIS(NP)
*
      CHARACTER*8  MOTYP
*
*     LECTURE DU TYPE ET DU POINTEUR
*
      CALL LIRCHA(MOTYP,1,IRETOU)
      IF(IERR.NE.0) RETURN
*
      CALL LIRENT(IPOIN,1,IRETOU)
      IF(IERR.NE.0) RETURN
*
*    ANALYSE DU POINTEUR ( CF MENAG1 )
*
      CALL OOOLIS(ISLIS)
      DO 1 I=1,ISLIS(/1)
      IF(IPOIN.EQ.ISLIS(I)) GO TO 2
 1    CONTINUE
*
      CALL ERREUR(597)
      RETURN
*
 2    CONTINUE
*
      CALL ECROBJ(MOTYP,IPOIN)
      RETURN
      END