1 : C NOMCOM SOURCE FANDEUR 11/07/19 21:16:51 7039 2 : 3 : C======================================================================= 4 : C 5 : C NOMME UN CHPOINT A UNE COMPOSANTE 6 : C 7 : C ENTREE 8 : C IPCH1=POINTEUR SUR UN CHPOINT 9 : C MOT =NOM DE LA COMPOSANTE 10 : C SORTIE 11 : C IPCH2=POINTEUR SUR LE CHPOINT RENOMME (0 EN CAS D'ERREUR) 12 : C IRET =1 SI SUCCES 13 : C =0 SINON ( MESSAGE D ERREUR IMPRIME DANS CE CAS ) 14 : C 15 : C DECEMBRE 84 EBERSOLT 16 : C======================================================================= 17 : 18 : SUBROUTINE NOMCOM(IPCH1,MOT,IPCH2,IRET) 19 : 20 : IMPLICIT INTEGER(I-N) 21 : IMPLICIT REAL*8(A-H,O-Z) 22 : 23 : -INC CCOPTIO 24 : -INC SMCHPOI 25 : 26 : CHARACTER*(*) MOT 27 : * 28 : IRET = 0 29 : MCHPO1 = IPCH1 30 : SEGINI,MCHPOI=MCHPO1 31 : * 32 : * VERIFICATION CHAMP NON VIDE A UNE PARTITION 33 : IF (IPCHP(/1).NE.1) THEN 33 : CALL ERREUR(180) 34 : GOTO 666 35 : ENDIF 36 : * 37 : MSOUP1 = IPCHP(1) 38 : SEGINI,MSOUPO=MSOUP1 39 : IPCHP(1) = MSOUPO 40 : * 41 : * VERFICATION SUR LA PRESENCE D'UNE SEULE COMPOSANTE 42 : IF (NOCOMP(/2).NE.1) THEN 43 : SEGSUP,MSOUPO 43 : CALL ERREUR(180) 44 : GOTO 666 45 : ENDIF 46 : * 47 : NOCOMP(1) = MOT 48 : * 49 : MPOVA1 = IPOVAL 50 : SEGINI,MPOVAL=MPOVA1 51 : IPOVAL = MPOVAL 52 : * 53 : SEGDES,MPOVAL,MSOUPO 54 : IRET = 1 55 : 56 : 666 CONTINUE 57 : IF (IRET.NE.0) THEN 58 : SEGDES,MCHPOI 59 : IPCH2 = MCHPOI 60 : ELSE 61 : SEGSUP,MCHPOI 62 : IPCH2 = 0 63 : ENDIF 64 : 65 : RETURN 66 : END 67 : 68 :
© Cast3M 2003 - All rights reserved.
Disclaimer