1 : C GNFL SOURCE CHAT 06/08/24 21:39:57 5529
2 : SUBROUTINE GNFL
3 : C_______________________________________________________________________
4 : C
5 : C
6 : C CH2 = GNFL MODL1 CH1 ( CAR1 ) ;
7 : C
8 : C MODL1 MMODEL
9 : C CH1 MCHAML OU CHPOINT
10 : C CAR1 MCHAML de caract{ristiques (facultatif)
11 : C CH2 CHPOINT
12 : C___________________________________________________________________
13 : C
14 : IMPLICIT INTEGER(I-N)
15 : IMPLICIT REAL*8(A-H,O-Z)
16 : -INC CCOPTIO
17 : -INC SMCHPOI
18 : *
19 : IPCHE1=0
20 : IPCHE2=0
21 : IPCHE3=0
22 : IPCHPO=0
23 : *
23 : CALL LIROBJ('MMODEL',IPMODL,1,IRT1)
24 : IF (IERR.NE.0) RETURN
25 : *
26 : * LECTURE D'UN CHPOINT OU D'UN MCHAML
27 : *
27 : CALL LIROBJ('CHPOINT',IPCHPO,0,IRT1)
28 : IF (IERR.NE.0) RETURN
29 : IF (IRT1.EQ.0) THEN
29 : CALL LIROBJ('MCHAML',IPCHE1,1,IRT1)
30 : IF (IERR.NE.0) RETURN
31 : ENDIF
32 : C
33 : C 2 EME CHAMP (FACULTATIF)
34 : C
34 : CALL LIROBJ('MCHAML',IPCHE2,0,IRT1)
35 : IF (IERR.NE.0) RETURN
36 : C
36 : CALL GNFLP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHE3,IRET)
37 : C
38 : IF (IRET.EQ.1) THEN
39 : C
40 : C ATTRIBUTION D'UNE NATURE DISCRETE AU CHPO QUI SORT
41 : C
42 : MCHPOI = IPCHE3
43 : SEGACT MCHPOI*MOD
44 : JATTRI(1) = 2
45 : SEGDES MCHPOI
46 : C
46 : CALL ECROBJ('CHPOINT',IPCHE3)
47 : ENDIF
48 : C
49 : RETURN
50 : END
51 :
52 :
53 :
54 :
© Cast3M 2003 - All rights reserved.
Disclaimer