1 : C SKNAME SOURCE CHAT 06/03/16 21:26:25 5336 2 : SUBROUTINE SKNAME (NOMBRE,NOMQUA,IRETOU,IPOINT) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : *----------------------------------------------------------------------- 6 : * ROUTINE PERMETTANT D'OBTENIR @ PARTIR D'UN POINTEUR LE NOM DE | 7 : * L'OBJET VERS LEQUEL IL POINTE | 8 : * | 9 : * ENTREE | 10 : * ------ + NOMBRE : POINTEUR | 11 : * | 12 : * SORTIE | 13 : * ------ + NOMQUA : LE NOM DE L'OBJET POINTE PAR NOMBRE | 14 : * CET OBJET N'EST NI UN MOT NI UN ENTIER | 15 : * NI UN FLOTTANT NI UN LOGIQUE | 16 : * + IRETOU : CODE DE RETOUR (1 SI SUCCES, 0 SINON) | 17 : * | 18 : *----------------------------------------------------------------------- 19 : CHARACTER*(*) NOMQUA 20 : -INC CCNOYAU 21 : -INC CCASSIS 22 : IRETOU=0 23 : SEGACT ITABOB*MOD,ITABOD*MOD,ITABOC*MOD 24 : if(nbesc.ne.0) segact ipiloc 25 : DO 293 IOP=1,IOUEP2(/1) 26 : IF (IOUEP2(IOP).EQ.NOMBRE) THEN 27 : IF (INOOB2(IOP).EQ.'POINT'.OR.IPOINT.EQ.0) THEN 28 : IP= INOOB1(IOP) 29 : IDEBCH=IPCHAR(IP) 30 : IFINCH=IPCHAR(IP+1)-1 31 : IF (ICHARA(IDEBCH:IDEBCH).NE.' ') THEN 32 : IF (ICHARA(IDEBCH:IDEBCH).NE.'#') THEN 33 : NOMQUA= ICHARA(IDEBCH:IFINCH) 34 : IRETOU=1 35 : go to 294 36 : ENDIF 37 : ENDIF 38 : ENDIF 39 : ENDIF 40 : 293 CONTINUE 41 : 294 Continue 42 : if(nbesc.ne.0) segdes ipiloc 43 : RETURN 44 : END 45 :
© Cast3M 2003 - All rights reserved.
Disclaimer