Sources Esope | Cast3M

skname
C SKNAME    SOURCE    CB215821  18/09/13    21:16:18     9917           
      SUBROUTINE SKNAME (NOMBRE,NOMQUA,IRETOU,IPOINT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
*-----------------------------------------------------------------------
*  ROUTINE PERMETTANT D'OBTENIR @ PARTIR D'UN POINTEUR LE NOM DE       |
*  L'OBJET VERS LEQUEL IL POINTE                                       |
*                                                                      |
*    ENTREE                                                            |
*    ------      + NOMBRE : POINTEUR                                   |
*                                                                      |
*    SORTIE                                                            |
*    ------      + NOMQUA : LE NOM DE L'OBJET POINTE PAR NOMBRE        |
*                           CET OBJET N'EST NI UN MOT NI UN ENTIER     |
*                           NI UN FLOTTANT NI UN LOGIQUE               |
*                + IRETOU : CODE DE RETOUR  (1 SI SUCCES, 0 SINON)     |
*                                                                      |
*-----------------------------------------------------------------------
      CHARACTER*(*) NOMQUA
-INC CCNOYAU
-INC CCASSIS
      IRETOU=0
      SEGACT ITABOB*MOD,ITABOD*MOD,ITABOC*MOD
      if(nbesc.ne.0) segact ipiloc
      DO 293 IOP=1,IOUEP2(/1)
       IF (IOUEP2(IOP).EQ.NOMBRE) THEN
        IF (INOOB2(IOP).EQ.'POINT'.OR.IPOINT.EQ.0) THEN
        IP= INOOB1(IOP)
        IDEBCH=IPCHAR(IP)
        IFINCH=IPCHAR(IP+1)-1
        IF (ICHARA(IDEBCH:IDEBCH).NE.' ') THEN
          IF (ICHARA(IDEBCH:IDEBCH).NE.'#') THEN
         NOMQUA= ICHARA(IDEBCH:IFINCH)
         IRETOU=1
         go to 294
        ENDIF
        ENDIF
        ENDIF
       ENDIF
293   CONTINUE
294   Continue
      if(nbesc.ne.0) SEGDES,IPILOC
      RETURN
      END