1 : C ZERORO SOURCE FANDEUR 10/12/14 21:20:25 6812
2 : SUBROUTINE ZERORO
3 : *_______________________________________________________________________
4 : *
5 : * OPERATEUR MCHAML A ZERO
6 : *
7 : * SYNTAXE :
8 : * _________
9 : *
10 : * CHAM1 = ZERO MOT1 MODL1 ;
11 : *
12 : * MOT1 Mot cl{ indiquant le sous-type de MCHAML voulu
13 : * MODL1 mod}le de calcul, type MMODEL
14 : * CHAM1 champ par {l{ment r{sultat (type MCHAML )
15 : *
16 : * Passage aux nouveaux CHAMELEMs par I.Monnier le 30 8 1990
17 : *
18 : *_______________________________________________________________________
19 : C
20 : IMPLICIT INTEGER(I-N)
21 : IMPLICIT REAL*8(A-H,O-Z)
22 : C
23 : -INC CCOPTIO
24 : C
25 : PARAMETER(NMOT=24)
26 : *
27 : CHARACTER*8 LISMOT(NMOT),MOT
28 : *
29 : DATA LISMOT / 'NOEUD ', 'GRAVITE ', 'RIGIDITE', 'MASSE ',
30 : 1 'STRESSES', 'DEPLACEM', 'FORCES ', 'REACTUAL',
31 : 1 'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT',
32 : 1 'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA',
33 : 1 'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER',
34 : 1 'GRAFLEXI', 'VONMISES', 'VIMISTRU', 'DEFINELA'/
35 : C
36 : C LECTURE DU TYPE DE CHAMP A CREER
37 : C
37 : CALL LIRMOT(LISMOT,NMOT,IPLAC,1)
38 : IF (IPLAC.EQ.0) THEN
38 : CALL ERREUR(78)
39 : RETURN
40 : ELSE
41 : MOT=LISMOT(IPLAC)
42 : ENDIF
43 : C
44 : C LECTURE DU MODELE
45 : C
45 : CALL LIROBJ('MMODEL',IPMODL,1,IRET)
46 : IF (IERR.NE.0) RETURN
47 : C
48 : C CREATION DU MCHAML
49 : C
49 : CALL ZEROP (IPMODL,MOT,IPCHE1)
50 : IF (IERR.NE.0) RETURN
51 : C
52 : C ECRITURE DU RESULTAT
53 : C
53 : CALL ECROBJ('MCHAML',IPCHE1)
54 : C
55 : RETURN
56 : END
57 :
58 :
© Cast3M 2003 - All rights reserved.
Disclaimer