FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_visualizer_f.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
8
9 use hecmw_util
10 use hecmw_result
12
13 implicit none
14
15 public :: hecmw_visualize
16 public :: hecmw_visualize_init
18
19contains
20
21 subroutine hecmw_visualize( mesh, result_data, step )
22 implicit none
23 type(hecmwst_local_mesh), intent(in) :: mesh
24 type(hecmwst_result_data), intent(in) :: result_data
25 integer(kind=kint), intent(in) :: step
26 integer(kind=kint) :: ierr
27
28 call hecmw_visualize_init_if( mesh%n_node, mesh%n_elem, ierr )
29 if( ierr /= 0 ) then
31 endif
32
33 call hecmw_dist_copy_f2c( mesh, ierr )
34 if( ierr /= 0 ) then
36 endif
37
38 call hecmw_result_copy_f2c( result_data, ierr )
39 if( ierr /= 0 ) then
41 endif
42
43 call hecmw_visualize_if( step, ierr )
44 if( ierr /= 0 ) then
46 endif
47
49 if( ierr /= 0 ) then
51 endif
52 end subroutine hecmw_visualize
53
54
56 implicit none
57 integer(kind=kint) :: ierr
58
59 call hecmw_init_for_visual_if( ierr )
60 if( ierr /= 0 ) then
62 endif
63 end subroutine hecmw_visualize_init
64
65
67 implicit none
68 integer(kind=kint) :: ierr
69
71 if( ierr /= 0 ) then
73 endif
74 end subroutine hecmw_visualize_finalize
75
76end module hecmw_visualizer
void hecmw_finalize_for_visual_if(int *err)
void hecmw_init_for_visual_if(int *err)
void hecmw_visualize_init_if(int *nnode, int *nelem, int *err)
void hecmw_visualize_finalize_if(int *err)
void hecmw_visualize_if(int *step, int *err)
I/O and Utility memo) Intel 9 compiler generates codes to wast stack memory when an array of string i...
subroutine, public hecmw_dist_copy_f2c(mesh, ierr)
I/O and Utility.
subroutine, public hecmw_result_copy_f2c(result_data, ierr)
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=kint) function hecmw_comm_get_comm()
subroutine hecmw_abort(comm)
I/O and Utility.
subroutine, public hecmw_visualize(mesh, result_data, step)
subroutine, public hecmw_visualize_init()
subroutine, public hecmw_visualize_finalize()