OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_prop10.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| hm_read_prop10 ../starter/source/properties/shell/hm_read_prop10.F
25!||--- called by ------------------------------------------------------
26!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
27!||--- calls -----------------------------------------------------
28!|| ancmsg ../starter/source/output/message/message.F
29!|| fretitl2 ../starter/source/starter/freform.F
30!|| hm_get_float_array_index ../starter/source/devtools/hm_reader/hm_get_float_array_index.F
31!|| hm_get_floatv ../starter/source/devtools/hm_reader/hm_get_floatv.F
32!|| hm_get_intv ../starter/source/devtools/hm_reader/hm_get_intv.F
33!|| hm_option_is_encrypted ../starter/source/devtools/hm_reader/hm_option_is_encrypted.F
34!|| subrotvect ../starter/source/model/submodel/subrot.f
35!||--- uses -----------------------------------------------------
36!|| defaults_mod ../starter/source/modules/defaults_mod.F90
37!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
38!|| message_mod ../starter/share/message_module/message_mod.F
39!|| submodel_mod ../starter/share/modules1/submodel_mod.F
40!||====================================================================
41 SUBROUTINE hm_read_prop10(IGTYP , GEO , IGEO ,PROP_TAG ,UNITAB ,
42 . RTRANS,LSUBMODEL,IDTITL ,IG ,SUB_ID ,ISKN ,
43 . DEFAULTS_SHELL)
44C============================================================================
45C M o d u l e s
46C-----------------------------------------------
47 USE unitab_mod
48 USE elbuftag_mod
49 USE submodel_mod
50 USE message_mod
51 USE names_and_titles_mod , ONLY : nchartitle
52 USE defaults_mod
53C-----------------------------------------------
54C I m p l i c i t T y p e s
55C-----------------------------------------------
56#include "implicit_f.inc"
57C-----------------------------------------------
58C C o m m o n B l o c k s
59C-----------------------------------------------
60#include "units_c.inc"
61#include "com04_c.inc"
62#include "param_c.inc"
63#include "scr16_c.inc"
64#include "scr17_c.inc"
65#include "tablen_c.inc"
66#include "sphcom.inc"
67C-----------------------------------------------
68C D u m m y A r g u m e n t s
69C-----------------------------------------------
70 TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB
71 INTEGER
72 . igtyp , igeo(*),iskn(liskn,*), ig
73 TYPE(submodel_data) LSUBMODEL(*)
74 my_real GEO(*),RTRANS(NTRANSF,*)
75
76 CHARACTER(LEN=NCHARTITLE)::IDTITL
77
78 TYPE(prop_tag_) , DIMENSION(0:MAXPROP) :: PROP_TAG
79 TYPE(SHELL_DEFAULTS_), INTENT(IN) :: DEFAULTS_SHELL
80C-----------------------------------------------
81C L o c a l V a r i a b l e s
82C-----------------------------------------------
83 INTEGER I, ISMSTR, J,
84 . ISHEAR, ISTRAIN,IHBE,IPLAST,ITHK,IHBEOUTP,K,
85 . iss,igmat
86 INTEGER ISH3N,ISROT,SUB_ID,NLY,IRP,IDSK,ISK,IUN
87 INTEGER NLYMAX,N1,M1, IPANG,IPTHK,IPPOS,IPWEIGHT,IPOS
88 INTEGER IHBE_D,IPLA_D,ITHK_D,ISHEA_D,ISST_D,
89 . ish3n_d, istra_d,npts_d,idril_d
90 my_real
91 . pun,cvis,vx,vy,vz,
92 . pthk, an, phi_i,thk10,zshift
93 LOGICAL IS_AVAILABLE, IS_ENCRYPTED
94 CHARACTER(LEN=NCHARTITLE) :: TITR
95C-----------------------------------------------
96C E x t e r n a l F u n c t i o n s
97C-----------------------------------------------
98 DATA iun/1/
99 DATA pun/0.1/
100C=======================================================================
101C------------------------
102C ORTHOTROPIC SHELL
103C------------------------
104C=======================================================================
105 ihbe_d = defaults_shell%ishell
106 ish3n_d= defaults_shell%ish3n
107 isst_d = defaults_shell%ismstr
108 ipla_d = defaults_shell%iplas
109 ithk_d = defaults_shell%ithick
110 idril_d= defaults_shell%idrill
111 ishea_d = 0
112 npts_d = 0
113 istra_d = 1
114C fixing flag and removed from input
115 istrain=1
116 ihbe=0
117 ismstr=0
118 isrot=0
119 igmat =0
120 pthk = zero
121 irp = 0
122 idsk = 0
123 ipos =0
124
125 is_encrypted = .false.
126 is_available = .false.
127
128C HIDDEN FLAGS
129C----------------------
130 ishear = 0
131C Cvis used in shell routines
132 cvis = one
133
134
135C--------------------------------------------------
136C EXTRACT DATA (IS OPTION CRYPTED)
137C--------------------------------------------------
138 CALL hm_option_is_encrypted(is_encrypted)
139C--------------------------------------------------
140C EXTRACT DATAS (INTEGER VALUES)
141C--------------------------------------------------
142 CALL hm_get_intv('Ishell',ihbe,is_available,lsubmodel)
143 CALL hm_get_intv('Ismstr',ismstr,is_available,lsubmodel)
144 CALL hm_get_intv('ISH3N',ish3n,is_available,lsubmodel)
145 CALL hm_get_intv('Idrill',isrot,is_available,lsubmodel)
146 CALL hm_get_intv('NIP',nly,is_available,lsubmodel)
147C CALL HM_GET_INTV('ISTRAIN',ISTRAIN,IS_AVAILABLE,LSUBMODEL)
148 CALL hm_get_intv('ITHICK',ithk,is_available,lsubmodel)
149 CALL hm_get_intv('IPLAS',iplast,is_available,lsubmodel)
150 CALL hm_get_intv('SKEW_CSID',idsk,is_available,lsubmodel)
151 CALL hm_get_intv('Ipos',ipos,is_available,lsubmodel)
152 CALL hm_get_intv('Ip',irp,is_available,lsubmodel)
153C--------------------------------------------------
154C EXTRACT DATAS (REAL VALUES)
155C--------------------------------------------------
156 CALL hm_get_floatv('P_Thick_Fail',pthk,is_available,lsubmodel,unitab)
157 CALL hm_get_floatv('Hm',geo(13),is_available,lsubmodel,unitab)
158 CALL hm_get_floatv('Hf',geo(14),is_available,lsubmodel,unitab)
159 CALL hm_get_floatv('Hr',geo(15),is_available,lsubmodel,unitab)
160 CALL hm_get_floatv('Dm',geo(16),is_available,lsubmodel,unitab)
161 CALL hm_get_floatv('Dn',geo(17),is_available,lsubmodel,unitab)
162 CALL hm_get_floatv('THICK',geo(1),is_available,lsubmodel,unitab)
163 CALL hm_get_floatv('AREA_SHEAR',geo(38),is_available,lsubmodel,unitab)
164 CALL hm_get_floatv('V_X',vx,is_available,lsubmodel,unitab)
165 CALL hm_get_floatv('V_Y',vy,is_available,lsubmodel,unitab)
166 CALL hm_get_floatv('V_Z',vz,is_available,lsubmodel,unitab)
167C----------------------
168Capply submodel transform to V (VX,VY,VZ)
169C
170 IF (sub_id /= 0)
171 . CALL subrotvect(vx,vy,vz,rtrans,sub_id,lsubmodel)
172
173C------lecgeo :
174c WRITE(IOUT,'(A40)') IDTITL
175C Double stockage temporaire - supprimer GEO(12,I)=IGTYP apres tests
176 igeo(1)=ig
177 igeo(11)=igtyp
178 geo(12) =igtyp+pun
179
180 IF (pthk == zero) pthk = one-em06
181 pthk = min(pthk, one)
182 pthk = max(pthk,-one)
183 geo(42) = pthk
184C fixing flag and removed from input
185 istrain=1
186C---------IHBE,ISH3N-------------
187 IF(ihbe==0)ihbe=ihbe_d
188 ihbeoutp=ihbe
189 IF (ihbe == 4 .AND. ish3n==0 .AND. ish3n_d == 1) THEN
190 CALL ancmsg(msgid=680,
191 . msgtype=msgwarning,
192 . anmode=aninfo_blind_1,
193 . i1=ig,
194 . c1=idtitl)
195 ENDIF
196 IF (ihbe==22.OR.ihbe==23) THEN
197 CALL ancmsg(msgid=539,
198 . msgtype=msgwarning,
199 . anmode=aninfo_blind_1,
200 . i1=ig,
201 . c1=idtitl)
202 ihbe=24
203 ENDIF
204C Temporary double storage -
205 igeo(10)=ihbe
206 geo(171)=ihbe
207 IF(ihbe==2)THEN
208 geo(171)=0
209 ELSEIF(ihbe>=3.AND.ihbe<100.AND.ihbe/=4)THEN
210 geo(171)=ihbe-1
211 ENDIF
212 IF(geo(171)/=zero.AND.igeo(10)== 0)igeo(10)=nint(geo(171))
213 IF(ish3n==0) ish3n = ish3n_d
214 igeo(18) = ish3n
215C---------ISMSTR-------------
216 IF(ismstr==0)ismstr=isst_d
217 IF (isst_d == -2) ismstr = -1
218 IF(ismstr==0)ismstr=2
219 IF(ismstr==3.AND.ihbe/=0.AND.ihbe/=2) THEN
220 ismstr = 2
221 CALL ancmsg(msgid=319,
222 . msgtype=msgwarning,
223 . anmode=aninfo_blind_2,
224 . i1=ig,
225 . c1=idtitl)
226 ENDIF
227 geo(3)=ismstr
228 igeo(5) = ismstr
229C---------ISROT-------------
230 IF(isrot==0)isrot=idril_d
231 IF(isrot>=2) isrot = 0
232 igeo(20)=isrot
233C---------ITHK,ISHEAR,IPLAST,ISTRAIN-------------
234 IF(ithk == 0)ithk=ithk_d
235 IF(ithk_d==-2)ithk=-1
236 IF(ishear == 0)ishear=ishea_d
237 IF(iplast == 0)iplast=ipla_d
238 IF(ipla_d==-2) iplast=-1
239C IF(ISTRAIN == 0)ISTRAIN=ISTR_D
240 geo(11)=istrain
241 geo(35)=ithk
242 geo(37)=ishear
243 IF(ishear==2) geo(37)=0
244 geo(39)=iplast
245 IF(geo(39)/=zero.AND.igeo(9)== 0)igeo(9)=iplast
246C-------other initializations----
247 IF (ismstr==10.AND.isrot>0.AND.idrot==0) idrot = 1
248C
249 IF(ihbe==3)THEN
250 IF(geo(13)==zero)geo(13)=em01
251 IF(geo(14)==zero)geo(14)=em01
252 IF(geo(15)==zero)geo(15)=em02
253 ELSE
254 IF(geo(13)==zero)geo(13)=em02
255 IF(geo(14)==zero)geo(14)=em02
256 IF(geo(15)==zero)geo(15)=em02
257 ENDIF
258 IF(ismstr==3) geo(5)=ep06
259C------Dm
260 IF (geo(16) == zero) igeo(31) = 1
261C------Dn : GEO(13) in Engine
262 IF (ihbe==12) geo(13)=geo(17)
263 IF (ihbe==24) THEN
264 IF (geo(17)==zero) geo(17)=zep015
265 geo(13)=geo(17)
266 geo(17)=cvis
267 ENDIF
268C------lecgeo10 :
269 nlymax= 100
270 ipang = 200
271 ipthk = 300
272 ippos = 400
273 ipweight = 900
274 IF(geo(38) == zero) geo(38)=five_over_6
275 IF(nly == -1)nly=npts_d
276 IF(nly == 0) nly = 1
277 IF(nly == 1) geo(38)= zero
278 an=sqrt(vx*vx+vy*vy+vz*vz)
279c
280 DO i=1,nly
281 geo(ipweight+i) = one
282 ENDDO
283c
284 IF(an <em10)THEN
285 vx=one
286 vy=zero
287 vz=zero
288 IF (irp==23) THEN
289 CALL ancmsg(msgid=1922,
290 . msgtype=msgerror,
291 . anmode=aninfo,
292 . c1='PROPERTY',
293 . i1=ig,
294 . c2='PROPERTY',
295 . c3=titr,
296 . i2=irp)
297 END IF
298 ELSE
299 vx=vx/an
300 vy=vy/an
301 vz=vz/an
302 ENDIF
303 geo(7)=vx
304 geo(8)=vy
305 geo(9)=vz
306 iss=ismstr
307C----
308 isk = 0
309 IF (idsk/=0) THEN
310 DO j=0,numskw+min(iun,nspcond)*numsph+nsubmod
311 IF(idsk == iskn(4,j+1)) THEN
312 isk=j+1
313 GO TO 10
314 ENDIF
315 END DO
316 CALL fretitl2(titr,igeo(npropgi-ltitr+1),ltitr)
317 CALL ancmsg(msgid=184,
318 . msgtype=msgerror,
319 . anmode=aninfo,
320 . c1='PROPERTY',
321 . i1=ig,
322 . c2='PROPERTY',
323 . c3=titr,
324 . i2=idsk)
325 10 CONTINUE
326 ENDIF
327 IF ((irp==22.OR.irp==25).AND.isk==0) THEN
328 CALL ancmsg(msgid=1923,
329 . msgtype=msgerror,
330 . anmode=aninfo,
331 . c1='PROPERTY',
332 . i1=ig,
333 . c2='PROPERTY',
334 . c3=titr,
335 . i2=irp)
336 END IF
337 igeo(2)=isk
338 igeo(14) = irp
339
340C---+#---1----+----2----+----3----+----4----+----5----+----6----+----7-#
341 IF(is_encrypted)THEN
342 WRITE(iout,1000)ig
343 1000 FORMAT(
344 & 5x,'ORTHOTROPIC LAYERED SHELL PROPERTY SET'/,
345 & 5x,'--------------------------------------'/,
346 & 5x,'PROPERTY SET NUMBER . . . . . . . . . .=',i10/,
347 & 5x,'CONFIDENTIAL DATA'//)
348 ELSE
349 IF (ihbe>11.AND.ihbe<29) THEN
350 WRITE(iout,2011)ig,nly,istrain,geo(1),iss,ihbe,
351 . ish3n,igeo(20),
352 . geo(16),geo(13),geo(38),geo(42),ishear,ithk,iplast,
353 . geo(7),geo(8),geo(9),idsk,igeo(14),ipos
354 ELSE
355 WRITE(iout,2010)ig,nly,istrain,geo(1),iss,ihbe,
356 . ish3n,
357 . geo(13),geo(14),geo(15),geo(16),
358 . geo(38),geo(42),ishear,ithk,iplast,
359 . geo(7),geo(8),geo(9),idsk,igeo(14),ipos
360 ENDIF
361 ENDIF
362 IF (nly == 0) THEN
363 CALL ancmsg(msgid=27,
364 . msgtype=msgerror,
365 . anmode=aninfo_blind_1,
366 . i1=ig,
367 . c1=idtitl)
368 ENDIF
369 IF (nly>nlymax) THEN
370 CALL ancmsg(msgid=28,
371 . msgtype=msgerror,
372 . anmode=aninfo_blind_1,
373 . i2=nlymax,
374 . i1=ig,
375 . c1=idtitl)
376 ENDIF
377 igeo(99) = ipos
378 zshift = zero
379 IF (ipos==3) THEN
380 zshift = -half
381 ELSEIF (ipos==4) THEN
382 zshift = half
383 END IF
384 geo(199) = zshift
385!
386 n1=min0(nly,nlymax)
387 geo(6) = n1+em01
388 igeo(4) = n1
389 thk10 = one/n1
390 DO k=1,n1
391 CALL hm_get_float_array_index('Prop_phi',phi_i,k,is_available,lsubmodel,unitab)
392C----------------------
393 m1 = ipang+k
394 geo(m1) = phi_i
395 geo(ipthk+k) = thk10
396 geo(ippos+k) = -half*(one+thk10)+k*thk10 + zshift
397 IF(.NOT.is_encrypted)WRITE(iout,2020) k,geo(m1)
398 geo(m1)=geo(m1)*pi/hundred80
399 ENDDO
400 geo(200)=geo(1)
401
402
403C-------- Variables stored in element buffer
404
405c---- Shells
406 prop_tag(igtyp)%G_SIG = 0
407 prop_tag(igtyp)%G_FOR = 5
408 prop_tag(igtyp)%G_MOM = 3
409 prop_tag(igtyp)%G_THK = 1
410 prop_tag(igtyp)%G_EINT= 2
411 prop_tag(igtyp)%G_EINS= 0
412 prop_tag(igtyp)%L_SIG = 5
413
414 prop_tag(igtyp)%L_THK = 0
415 prop_tag(igtyp)%L_EINT= 2
416 prop_tag(igtyp)%L_EINS= 0
417 prop_tag(igtyp)%G_VOL = 0
418 prop_tag(igtyp)%L_VOL = 0
419 prop_tag(igtyp)%LY_DMG = 2
420C
421 prop_tag(igtyp)%LY_GAMA = 6
422 prop_tag(igtyp)%LY_DIRA = 2
423C
424 prop_tag(igtyp)%LY_PLAPT = 1
425 prop_tag(igtyp)%LY_SIGPT = 5
426 prop_tag(igtyp)%G_FORPG = 5
427 prop_tag(igtyp)%G_MOMPG = 3
428 prop_tag(igtyp)%G_STRPG = 8
429C
430
431
432C-----------
433 RETURN
434C-----------
435 2010 FORMAT(
436 & 5x,'ORTHOTROPIC LAYERED SHELL PROPERTY SET'/,
437 & 5x,'PROPERTY SET NUMBER . . . . . . . . . .=',i10/,
438 & 5x,'NUMBER OF LAYERS. . . . . . . . . . . .=',i10/,
439 & 5x,'POST PROCESSING STRAIN FLAG . . . . . .=',i10/,
440 & 5x,'SHELL THICKNESS . . . . . . . . . . . .=',1pg20.13/,
441 & 5x,'SMALL STRAIN. . . . . . . . . . . . . .=',i10/,
442 & 5x,'SHELL FORMULATION FLAG. . . . . . . . .=',i10/,
443 & 5x,'3NODE SHELL FORMULATION FLAG. . . . . .=',i10/,
444 & 5x,'SHELL HOURGLASS MEMBRANE DAMPING. . . .=',1pg20.13/,
445 & 5x,'SHELL HOURGLASS FLEXURAL DAMPING. . . .=',1pg20.13/,
446 & 5x,'SHELL HOURGLASS ROTATIONAL DAMPING. . .=',1pg20.13/,
447 & 5x,'SHELL MEMBRANE DAMPING. . . . . . . . .=',1pg20.13/,
448 & 5x,'SHEAR AREA REDUCTION FACTOR . . . . . .=',1pg20.13/,
449 & 5x,'ELEMENT DELETION PARAMETER. . . . . . .=',1pg20.13/,
450 & 5x,' > 0.0 : FRACTION OF FAILED THICKNESS ',/,
451 & 5x,' < 0.0 : FRACTION OF FAILED LAYERS ',/,
452 & 5x,'SHEAR FORMULATION FLAG. . . . . . . . .=',i10/,
453 & 5x,'THICKNESS VARIATION FLAG. . . . . . . .=',i10/,
454 & 5x,'PLASTICITY FORMULATION FLAG . . . . . .=',i10/,
455 & 5x,'X COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
456 & 5x,'Y COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
457 & 5x,'Z COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
458 & 5x,'SKEW OF THE FIRST ORTHOTROPY DIRECTION.=',i10/,
459 & 5x,'REFERENCE DIRECTION FLAG IN SHELL PLANE=',i10/,
460 & 5x,'SHELL OFFSET POSITION FLAG . . . . . . =',i10/)
461 2011 FORMAT(
462 & 5x,'ORTHOTROPIC LAYERED SHELL PROPERTY SET'/,
463 & 5x,'PROPERTY SET NUMBER . . . . . . . . . .=',i10/,
464 & 5x,'NUMBER OF LAYERS. . . . . . . . . . . .=',i10/,
465 & 5x,'POST PROCESSING STRAIN FLAG . . . . . .=',i10/,
466 & 5x,'SHELL THICKNESS . . . . . . . . . . . .=',1pg20.13/,
467 & 5x,'SMALL STRAIN. . . . . . . . . . . . . .=',i10/,
468 & 5x,'SHELL FORMULATION FLAG. . . . . . . . .=',i10/,
469 & 5x,'3NODE SHELL FORMULATION FLAG. . . . . .=',i10/,
470 & 5x,'DRILLING D.O.F. FLAG . . . . . . . . .=',i10/,
471 & 5x,'SHELL MEMBRANE DAMPING. . . . . . . . .=',1pg20.13/,
472 & 5x,'SHELL NUMERICAL DAMPING . . . . . . . .=',1pg20.13/,
473 & 5x,'SHEAR AREA REDUCTION FACTOR . . . . . .=',1pg20.13/,
474 & 5x,'ELEMENT DELETION PARAMETER. . . . . . .=',1pg20.13/,
475 & 5x,' > 0.0 : FRACTION OF FAILED THICKNESS ',/,
476 & 5x,' < 0.0 : FRACTION OF FAILED LAYERS ',/,
477 & 5x,'SHEAR FORMULATION FLAG. . . . . . . . .=',i10/,
478 & 5x,'THICKNESS VARIATION FLAG. . . . . . . .=',i10/,
479 & 5x,'PLASTICITY FORMULATION FLAG . . . . . .=',i10/,
480 & 5x,'X COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
481 & 5x,'Y COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
482 & 5x,'Z COMPONENT OF DIR 1 OF ORTHOTROPY. . .=',1pg20.13/,
483 & 5x,'SKEW OF THE FIRST ORTHOTROPY DIRECTION.=',i10/,
484 & 5x,'REFERENCE DIRECTION FLAG IN SHELL PLANE=',i10/,
485 & 5x,'SHELL OFFSET POSITION FLAG . . . . . . =',i10/)
486 2020 FORMAT(
487 & 5x,'LAYER,ANGLE (DIR 1,PROJ(DIR 1 / SHELL).=',i10,e12.5)
488C-----------
489
490 END
491
492
493
494
hm_get_float_array_index
subroutine hm_get_float_array_index(name, rval, index, is_available, lsubmodel, unitab)
Definition hm_get_float_array_index.F:105
hm_get_floatv
subroutine hm_get_floatv(name, rval, is_available, lsubmodel, unitab)
Definition hm_get_floatv.F:418
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:528
hm_option_is_encrypted
subroutine hm_option_is_encrypted(is_encrypted)
Definition hm_option_is_encrypted.F:288
hm_read_prop10
subroutine hm_read_prop10(igtyp, geo, igeo, prop_tag, unitab, rtrans, lsubmodel, idtitl, ig, sub_id, iskn, defaults_shell)
Definition hm_read_prop10.F:44
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
elbuftag_mod
Definition elbuftag_mod.F:230
message_mod
Definition message_mod.F:1257
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
submodel_mod
Definition submodel_mod.F:717
submodel_mod::nsubmod
integer nsubmod
Definition submodel_mod.F:725
unitab_mod
Definition unitab_mod.F:517
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:895
fretitl2
subroutine fretitl2(titr, iasc, l)
Definition freform.F:799
starter
program starter
Definition starter.F:39
elbuftag_mod::prop_tag_
Definition elbuftag_mod.F:377
submodel_mod::submodel_data
Definition submodel_mod.F:728
subrotvect
subroutine subrotvect(x, y, z, rtrans, sub_id, lsubmodel)
Definition subrot.F:54