22 implicit real(kind=kreal) (a - h, o - z)
24 character(len=80) :: line
26 type(hecmwst_local_mesh) :: hecMESH
35 write(
ineu,
'(a)')
' -1'
39 do im1 = 1, hecmesh%material%n_mat
41 line(7:23) =
',-601,55,0,0,1,0,'
42 write(line(1:6),
'(i6)') im1
43 write(
ineu,
'(a23)') line(1:23)
44 write(
ineu,*)
'<NULL>'
46 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
48 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
49 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
50 write(
ineu,*)
'0,0,0,0,0,'
53 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
54 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
55 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
56 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
60 is= hecmesh%material%mat_TABLE_index(icou -1) + 1
61 val = hecmesh%material%mat_VAL (is)
63 if (im2.eq.3) cd = val
64 if (im2.eq.2) cp = val
65 if (im2.eq.1) rho = val
79 write(
ineu,
'(1p,10(E9.2,'',''))') ( rdum(i),i=0,9 )
81 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
82 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
83 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
84 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
85 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
86 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
87 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
88 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
89 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
90 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
91 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
92 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
93 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
94 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
95 write(
ineu,*)
'0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,'
97 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
98 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
99 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
100 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
101 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
103 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
104 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
105 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
106 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
107 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
108 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
109 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
112 write(
ineu,
'(a)')
' -1'
124 implicit real(kind=kreal) (a - h, o - z)
127 type(hecmwst_local_mesh) :: hecMESH
132 write(
ineu,
'(a)')
' -1'
135 do im = 1, hecmesh%section%n_sect
138 idum(2) = hecmesh%section%sect_mat_ID_item(im)
139 if ( hecmesh%section%sect_type(im) == 1 )
then
141 elseif( hecmesh%section%sect_type(im) == 2 )
then
143 elseif( hecmesh%section%sect_type(im) == 3 )
then
145 elseif( hecmesh%section%sect_type(im) == 4 )
then
151 write(
ineu,
'(6(i6,'',''))') ( idum(i),i=0,5 )
152 write(
ineu,*)
'<NULL>'
153 write(
ineu,*)
'0,0,0,0,'
155 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
156 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
157 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
158 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
159 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
160 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
161 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
162 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
163 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
164 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
165 write(
ineu,*)
'0,0,0,0,0,0,0,0,'
168 write(
ineu,*)
'0.,0.,0.,0.,0.,'
169 write(
ineu,*)
'0.,0.,0.,0.,0.,'
170 write(
ineu,*)
'0.,0.,0.,0.,0.,'
171 write(
ineu,*)
'0.,0.,0.,0.,0.,'
172 write(
ineu,*)
'0.,0.,0.,0.,0.,'
173 write(
ineu,*)
'0.,0.,0.,0.,0.,'
174 write(
ineu,*)
'0.,0.,0.,0.,0.,'
175 write(
ineu,*)
'0.,0.,0.,0.,0.,'
176 write(
ineu,*)
'0.,0.,0.,0.,0.,'
177 write(
ineu,*)
'0.,0.,0.,0.,0.,'
178 write(
ineu,*)
'0.,0.,0.,0.,0.,'
179 write(
ineu,*)
'0.,0.,0.,0.,0.,'
180 write(
ineu,*)
'0.,0.,0.,0.,0.,'
181 write(
ineu,*)
'0.,0.,0.,0.,0.,'
182 write(
ineu,*)
'0.,0.,0.,0.,0.,'
183 write(
ineu,*)
'0.,0.,0.,0.,0.,'
184 write(
ineu,*)
'0.,0.,0.,0.,0.,'
185 write(
ineu,*)
'0.,0.,0.,0.,0.,'
186 write(
ineu,*)
'0.,0.,0.,0.,0.,'
187 write(
ineu,*)
'0.,0.,0.,0.,0.,'
188 write(
ineu,*)
'0.,0.,0.,0.,0.,'
189 write(
ineu,*)
'0.,0.,0.,0.,0.,'
190 write(
ineu,*)
'0.,0.,0.,0.,0.,'
191 write(
ineu,*)
'0.,0.,0.,0.,0.,'
192 write(
ineu,*)
'0.,0.,0.,0.,0.,'
193 write(
ineu,*)
'0.,0.,0.,0.,0.,'
194 write(
ineu,*)
'0.,0.,0.,0.,0.,'
195 write(
ineu,*)
'0.,0.,0.,0.,0.,'
196 write(
ineu,*)
'0.,0.,0.,0.,0.,'
197 write(
ineu,*)
'0.,0.,0.,0.,0.,'
198 write(
ineu,*)
'0.,0.,0.,0.,0.,'
199 write(
ineu,*)
'0.,0.,0.,0.,0.,'
200 write(
ineu,*)
'0.,0.,0.,0.,0.,'
201 write(
ineu,*)
'0.,0.,0.,0.,0.,'
202 write(
ineu,*)
'0.,0.,0.,0.,0.,'
203 write(
ineu,*)
'0.,0.,0.,0.,0.,'
204 write(
ineu,*)
'0.,0.,0.,0.,0.,'
205 write(
ineu,*)
'0.,0.,0.,0.,0.,'
211 write(
ineu,
'(a)')
' -1'
222 implicit real(kind=kreal) (a - h, o - z)
224 type(hecmwst_local_mesh) :: hecMESH
229 write(
ineu,
'(a)')
' -1'
232 do i = 1, hecmesh%n_node
234 inod = hecmesh%global_node_ID(i)
235 xx = hecmesh%node( 3*i-2 )
236 yy = hecmesh%node( 3*i-1 )
237 zz = hecmesh%node( 3*i )
239 write(
ineu,
'(i8,a,3(e15.7,'',''))') &
240 & inod,
',0,0,1,46,0,0,0,0,0,0,',xx,yy,zz
243 write(
ineu,
'(a)')
' -1'
254 implicit real(kind=kreal) (a - h, o - z)
255 dimension nn(20), nna(10), nnb(10)
257 type(hecmwst_local_mesh) :: hecMESH
263 write(
ineu,
'(a)')
' -1'
266 do i = 1, hecmesh%n_elem
268 ielm = hecmesh%global_elem_ID(i)
270 isid = hecmesh%section_ID(i)
271 isop = hecmesh%section%sect_opt(isid)
273 is = hecmesh%elem_node_index(i-1) + 1
274 ie = hecmesh%elem_node_index(i)
279 jj = hecmesh%elem_node_item(j)
280 nn(k) = hecmesh%global_node_ID(jj)
284 ietyp = hecmesh%elem_type(i)
285 if( ietyp == 231 )
then
287 if( isop == 1 ) istyp = 19
288 if( isop == 2 ) istyp = 35
293 elseif( ietyp == 731 )
then
299 elseif( ietyp == 232 )
then
301 if( isop == 1 ) istyp = 20
302 if( isop == 2 ) istyp = 36
310 elseif( ietyp == 732 )
then
319 elseif( ietyp == 241 )
then
321 if( isop == 1 ) istyp = 19
322 if( isop == 2 ) istyp = 35
328 elseif( ietyp == 741 )
then
335 elseif( ietyp == 242 )
then
337 if( isop == 1 ) istyp = 20
338 if( isop == 2 ) istyp = 36
343 elseif( ietyp == 742 )
then
349 elseif( ietyp == 341 )
then
356 elseif( ietyp == 351 )
then
365 elseif( ietyp == 361 )
then
371 elseif( ietyp == 342 )
then
384 elseif( ietyp == 352 )
then
402 elseif( ietyp == 362 )
then
420 write(
ineu,
'(5(i8,'',''),a)') &
421 & ielm,icol,isid,istyp,itopo,
'1,0,0,0,0,0,0,0,'
422 write(
ineu,
'(10(i8,'',''))') (nna(j),j=1,10)
423 write(
ineu,
'(10(i8,'',''))') (nnb(j),j=1,10)
424 write(
ineu,*)
'0,0,0,'
425 write(
ineu,*)
'0,0,0,'
426 write(
ineu,*)
'0,0,0,'
427 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,'
431 write(
ineu,
'(a)')
' -1'
443 write(ineu,
'(a)')
' -1'
446 write(ineu,*)
'Default XY View'
447 write(ineu,*)
'2,0,1,'
449 write(ineu,*)
'0.,0.,0.,'
450 write(ineu,*)
'2.5,1.25,1.5,'
451 write(ineu,*)
'1.,1.,0,0.,0.,0.,0.,0.,0.,'
452 write(ineu,*)
'1.03572,0.51035,0.,'
453 write(ineu,*)
'1.2574,'
454 write(ineu,*)
'0.,0.,1.,1.,'
455 write(ineu,*)
'2,0,1,1,0,'
456 write(ineu,*)
'-1,-1,0,1,0,1,1,60031,0,4000000,'
458 write(ineu,*)
'0,0,0,'
459 write(ineu,*)
'0,0,0,'
460 write(ineu,*)
'0,0,0,'
461 write(ineu,*)
'0,0,0,'
462 write(ineu,*)
'0,0,0,'
463 write(ineu,*)
'0,0,0,'
464 write(ineu,*)
'0,0,0,'
465 write(ineu,*)
'0,0,0,'
466 write(ineu,*)
'0,0,0,'
467 write(ineu,*)
'100.,100.,1,7,'
468 write(ineu,*)
'0,1,1.,'
469 write(ineu,*)
'0.,0.,0.,'
470 write(ineu,*)
'0.,0.,1.,'
471 write(ineu,*)
'0,1,0,0,'
472 write(ineu,*)
'0.,0.,0.,'
473 write(ineu,*)
'1.,0.,0.,'
474 write(ineu,*)
'0.,0.,0.,'
475 write(ineu,*)
'0.,1.,0.,'
476 write(ineu,*)
'2.,1.,70.,0.5,'
477 write(ineu,*)
'0.,0.,0.,0.,0.,0,100.,1000.,0.,0.,0.,100.,-100.,1,'
478 write(ineu,*)
'5.,90.,10.,10.,1.,'
479 write(ineu,*)
'4,176,0,0,0,0,0,0,0,0,0.,0.,0.,'
480 write(ineu,*)
'0,0,0,0,0,0,14,110,'
481 write(ineu,*)
'0,1,1,1,0,1,0,1,1,0,1,1,0,1,1,1,0,0,1,'
482 write(ineu,*)
'0,0,0.00000001,25.,100.,0.,0.,0.,20,'
483 write(ineu,*)
'0,1,1,0,0,1,20.,0,'
485 write(ineu,*)
'0,0.,'
486 write(ineu,*)
'0,0.,'
487 write(ineu,*)
'0,0.,'
488 write(ineu,*)
'0,0.,'
489 write(ineu,*)
'0,0.,'
490 write(ineu,*)
'0,0.,'
491 write(ineu,*)
'0,0.,'
492 write(ineu,*)
'0,0.,'
493 write(ineu,*)
'0,0.,'
494 write(ineu,*)
'0,0.,'
495 write(ineu,*)
'0,0.,'
496 write(ineu,*)
'0,0.,'
497 write(ineu,*)
'0,5,0,0,0,0.,25.,'
498 write(ineu,*)
'4,16408,20,16504,100,16488,'
499 write(ineu,*)
'0.,0.,'
500 write(ineu,*)
'0.,0.,0.,0.,'
512 write(ineu,*)
'<NULL>'
513 write(ineu,*)
'<NULL>'
514 write(ineu,*)
'0,0,0,0,'
515 write(ineu,*)
'0.,0.,0.,0.,'
516 write(ineu,*)
'0.,0.,0.,0.,'
517 write(ineu,*)
'90,1,124,1,0,'
518 write(ineu,*)
'0,60,0,0,'
519 write(ineu,*)
'0,24,0,0,'
520 write(ineu,*)
'0,100,0,0,'
521 write(ineu,*)
'0,2,0,0,'
522 write(ineu,*)
'0,24580,0,0,'
523 write(ineu,*)
'0,124,0,0,'
524 write(ineu,*)
'0,46,0,0,'
525 write(ineu,*)
'0,120,0,0,'
526 write(ineu,*)
'0,124,0,1,'
527 write(ineu,*)
'0,124,0,0,'
528 write(ineu,*)
'0,12,0,1,'
529 write(ineu,*)
'0,62,0,0,'
530 write(ineu,*)
'0,62,0,0,'
531 write(ineu,*)
'0,10,0,0,'
532 write(ineu,*)
'0,52,0,0,'
533 write(ineu,*)
'0,4,0,0,'
534 write(ineu,*)
'0,120,0,0,'
535 write(ineu,*)
'0,12,0,0,'
536 write(ineu,*)
'0,2,0,0,'
537 write(ineu,*)
'0,120,0,0,'
538 write(ineu,*)
'0,8312,0,0,'
539 write(ineu,*)
'0,24600,0,0,'
540 write(ineu,*)
'0,0,0,0,'
541 write(ineu,*)
'1,74,0,1,'
542 write(ineu,*)
'0,0,0,0,'
543 write(ineu,*)
'3,124,0,1,'
544 write(ineu,*)
'0,24636,0,0,'
545 write(ineu,*)
'0,0,0,0,'
546 write(ineu,*)
'0,4,0,0,'
547 write(ineu,*)
'0,100,0,0,'
548 write(ineu,*)
'0,124,0,1,'
549 write(ineu,*)
'0,60,0,1,'
550 write(ineu,*)
'0,56,0,1,'
551 write(ineu,*)
'0,24,0,0,'
552 write(ineu,*)
'0,8216,0,1,'
553 write(ineu,*)
'0,4,0,0,'
554 write(ineu,*)
'0,124,2,0,'
555 write(ineu,*)
'0,0,1,1,'
556 write(ineu,*)
'0,0,0,1,'
557 write(ineu,*)
'1,124,5,1,'
558 write(ineu,*)
'0,0,0,1,'
559 write(ineu,*)
'0,24,0,1,'
560 write(ineu,*)
'0,124,0,0,'
561 write(ineu,*)
'0,100,0,1,'
562 write(ineu,*)
'1,100,0,1,'
563 write(ineu,*)
'0,0,0,1,'
564 write(ineu,*)
'0,16,0,0,'
565 write(ineu,*)
'0,124,4,1,'
566 write(ineu,*)
'0,62,0,0,'
567 write(ineu,*)
'2,124,1,1,'
568 write(ineu,*)
'1,8254,0,0,'
569 write(ineu,*)
'0,124,1,1,'
570 write(ineu,*)
'1,0,5,1,'
571 write(ineu,*)
'0,124,0,1,'
572 write(ineu,*)
'0,100,0,1,'
573 write(ineu,*)
'0,100,0,1,'
574 write(ineu,*)
'1,46,0,1,'
575 write(ineu,*)
'1,120,0,1,'
576 write(ineu,*)
'1,4,0,1,'
577 write(ineu,*)
'1,52,0,1,'
578 write(ineu,*)
'1,24,0,1,'
579 write(ineu,*)
'1,93,0,1,'
580 write(ineu,*)
'1,12,0,1,'
581 write(ineu,*)
'1,10,0,1,'
582 write(ineu,*)
'1,104,0,1,'
583 write(ineu,*)
'0,100,0,0,'
584 write(ineu,*)
'0,24,0,0,'
585 write(ineu,*)
'0,60,0,0,'
586 write(ineu,*)
'0,104,0,0,'
587 write(ineu,*)
'0,0,0,0,'
588 write(ineu,*)
'0,0,1,1,'
589 write(ineu,*)
'0,0,1,1,'
590 write(ineu,*)
'0,0,1,1,'
591 write(ineu,*)
'0,0,1,1,'
592 write(ineu,*)
'0,0,1,1,'
593 write(ineu,*)
'0,4,0,0,'
594 write(ineu,*)
'0,0,1,0,'
595 write(ineu,*)
'0,0,0,0,'
596 write(ineu,*)
'0,0,1,1,'
597 write(ineu,*)
'0,0,1,1,'
598 write(ineu,*)
'0,0,1,1,'
599 write(ineu,*)
'0,0,1,1,'
600 write(ineu,*)
'0,0,1,1,'
601 write(ineu,*)
'0,0,1,1,'
602 write(ineu,*)
'0,0,1,1,'
603 write(ineu,*)
'0,62,1,1,'
604 write(ineu,*)
'0,60,4,0,'
605 write(ineu,*)
'0,0,1,1,'
606 write(ineu,*)
'0,0,1,1,'
607 write(ineu,
'(a)')
'-1,'
608 write(ineu,
'(a)')
' -1'
620 write(ineu,
'(a)')
' -1'
623 write(ineu,*)
'hecmw_FSTR_heat_result'
627 write(ineu,*)
'<NULL>'
628 write(ineu,
'(a)')
' -1'
639 implicit real(kind=kreal) (a - h, o - z)
642 type(hecmwst_local_mesh) :: hecMESH
654 do i = 1, hecmesh%n_node
657 if( tt > tmax ) tmax = tt
658 if( tt < tmin ) tmin = tt
664 if( absmin > absmax ) absmax = absmin
666 write(
ineu,
'(a)')
' -1'
669 write(
ineu,*)
'1,1,1,'
670 write(
ineu,*)
'Temperature'
671 write(
ineu,
'(3(e15.7,'',''))') tmin, tmax, absmax
672 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
673 write(
ineu,*)
'0,0,0,0,0,0,0,0,0,0,'
674 write(
ineu,*)
'0,0,6,7,'
675 write(
ineu,*)
'0,0,1,'
677 do i = 1, hecmesh%n_node
678 inod = hecmesh%global_node_ID(i)
680 write(
ineu,
'(i8,'','',E15.7,'','')') inod,tt
682 write(
ineu,*)
'-1,0.'
686 write(
ineu,
'(a)')
' -1'
This module defined coomon data and basic structures for analysis.
integer(kind=kint), parameter ineu
This module provide functions to generate Femap neutral output.
subroutine heat_put_neutral_601(hecMESH)
subroutine heat_put_neutral_409(INEU)
subroutine heat_put_neutral_403(hecMESH)
subroutine heat_put_neutral_404(hecMESH)
subroutine heat_put_neutral_402(hecMESH)
subroutine heat_put_neutral_451(hecMESH, hecHEAT)
subroutine heat_put_neutral_450(INEU)
Data for HEAT ANSLYSIS (fstrHEAT)