1 : C BAPOIN SOURCE CHAT 05/01/12 21:33:11 5004
2 : SUBROUTINE BAPOIN(IMAIL,IPT,INOMA,INOPT)
3 : IMPLICIT INTEGER(I-N)
4 : IMPLICIT REAL*8(A-H,O-Z)
5 :
6 : *--------------------------------------------------------------------*
7 : * *
8 : * correspondance entre les points de l'ancien maillage et du *
9 : * nouveau maillage. *
10 : * *
11 : * Param}tres: *
12 : * *
13 : * e IMAIL maillage initial *
14 : * e IPT point initial *
15 : * e INOMA maillage translat{ *
16 : * e INOPT point translat{ *
17 : * *
18 : * Auteur, date de cr{ation: *
19 : * *
20 : * Lionel VIVAN, le 9 mai 1990. *
21 : * *
22 : *--------------------------------------------------------------------*
23 : * *
24 : -INC CCOPTIO
25 : -INC SMELEME
26 : *
27 : INOPT = 0
28 : MELEME = IMAIL
29 : SEGACT MELEME
30 : NBEL = NUM(/2)
31 : NBNO = NUM(/1)
32 : IPT1 = INOMA
33 : SEGACT IPT1
34 : DO 10 IE = 1,NBEL
35 : DO 20 IN = 1,NBNO
36 : INOE = NUM(IN,IE)
37 : IF (INOE.EQ.IPT) THEN
38 : INOPT = IPT1.NUM(IN,IE)
39 : GOTO 30
40 : ENDIF
41 : 20 CONTINUE
42 : * end do
43 : 10 CONTINUE
44 : * end do
44 : CALL ERREUR(504)
45 : 30 CONTINUE
46 : SEGDES IPT1
47 : SEGDES MELEME
48 : *
49 : END
50 :
© Cast3M 2003 - All rights reserved.
Disclaimer