FrontISTR  5.9.0
Large-scale structural analysis program with finit element method
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 
7 module hecmw_visualizer
8 
9  use hecmw_util
10  use hecmw_result
11  use hecmw_dist_copy_f2c_f
12 
13  implicit none
14 
15  public :: hecmw_visualize
16  public :: hecmw_visualize_by_addfname
17  public :: hecmw_visualize_init
18  public :: hecmw_visualize_finalize
19 
20 contains
21 
22  subroutine hecmw_visualize( mesh, result_data, step )
23  implicit none
24  type(hecmwst_local_mesh), intent(in) :: mesh
25  type(hecmwst_result_data), intent(in) :: result_data
26  integer(kind=kint), intent(in) :: step
27  integer(kind=kint) :: ierr
28 
29  call hecmw_visualize_init_if( mesh%n_node, mesh%n_elem, ierr )
30  if( ierr /= 0 ) then
31  call hecmw_abort( hecmw_comm_get_comm( ) )
32  endif
33 
34  call hecmw_dist_copy_f2c( mesh, ierr )
35  if( ierr /= 0 ) then
36  call hecmw_abort( hecmw_comm_get_comm( ) )
37  endif
38 
39  call hecmw_result_copy_f2c( result_data, ierr )
40  if( ierr /= 0 ) then
41  call hecmw_abort( hecmw_comm_get_comm( ) )
42  endif
43 
44  call hecmw_visualize_if( step, ierr )
45  if( ierr /= 0 ) then
46  call hecmw_abort( hecmw_comm_get_comm( ) )
47  endif
48 
49  call hecmw_visualize_finalize_if( ierr )
50  if( ierr /= 0 ) then
51  call hecmw_abort( hecmw_comm_get_comm( ) )
52  endif
53  end subroutine hecmw_visualize
54 
55 
56  subroutine hecmw_visualize_by_addfname( mesh, result_data, step, addfname )
57  implicit none
58  type(hecmwst_local_mesh), intent(in) :: mesh
59  type(hecmwst_result_data), intent(in) :: result_data
60  integer(kind=kint), intent(in) :: step
61  character(len=*), intent(in) :: addfname
62  integer(kind=kint) :: ierr
63 
64  call hecmw_visualize_init_if( mesh%n_node, mesh%n_elem, ierr )
65  if( ierr /= 0 ) then
66  call hecmw_abort( hecmw_comm_get_comm( ) )
67  endif
68 
69  call hecmw_dist_copy_f2c( mesh, ierr )
70  if( ierr /= 0 ) then
71  call hecmw_abort( hecmw_comm_get_comm( ) )
72  endif
73 
74  call hecmw_result_copy_f2c( result_data, ierr )
75  if( ierr /= 0 ) then
76  call hecmw_abort( hecmw_comm_get_comm( ) )
77  endif
78 
79  call hecmw_visualize_by_addfname_if( step, addfname, ierr )
80  if( ierr /= 0 ) then
81  call hecmw_abort( hecmw_comm_get_comm( ) )
82  endif
83 
84  call hecmw_visualize_finalize_if( ierr )
85  if( ierr /= 0 ) then
86  call hecmw_abort( hecmw_comm_get_comm( ) )
87  endif
88  end subroutine hecmw_visualize_by_addfname
89 
90 
91  subroutine hecmw_visualize_init( )
92  implicit none
93  integer(kind=kint) :: ierr
94 
95  call hecmw_init_for_visual_if( ierr )
96  if( ierr /= 0 ) then
97  call hecmw_abort( hecmw_comm_get_comm( ) )
98  endif
99  end subroutine hecmw_visualize_init
100 
101 
102  subroutine hecmw_visualize_finalize( )
103  implicit none
104  integer(kind=kint) :: ierr
105 
106  call hecmw_finalize_for_visual_if( ierr )
107  if( ierr /= 0 ) then
108  call hecmw_abort( hecmw_comm_get_comm( ) )
109  endif
110  end subroutine hecmw_visualize_finalize
111 
112 end module hecmw_visualizer
hecmw_finalize_for_visual_if
void hecmw_finalize_for_visual_if(int *err)
Definition: hecmw_visual_if.c:204
hecmw_init_for_visual_if
void hecmw_init_for_visual_if(int *err)
Definition: hecmw_visual_if.c:191
hecmw_visualize_init_if
void hecmw_visualize_init_if(int *nnode, int *nelem, int *err)
Definition: hecmw_visual_if.c:137
hecmw_visualize_finalize_if
void hecmw_visualize_finalize_if(int *err)
Definition: hecmw_visual_if.c:164
hecmw_visualize_by_addfname_if
void hecmw_visualize_by_addfname_if(int *step, char *addfname, int *err, int len)
Definition: hecmw_visual_if.c:110
hecmw_visualize_if
void hecmw_visualize_if(int *step, int *err)
Definition: hecmw_visual_if.c:91
hecmw_dist_copy_f2c_f
I/O and Utility memo) Intel 9 compiler generates codes to waste stack memory when an array of string ...
Definition: hecmw_dist_copy_f2c_f.f90:12
hecmw_dist_copy_f2c_f::hecmw_dist_copy_f2c
subroutine, public hecmw_dist_copy_f2c(mesh, ierr)
Definition: hecmw_dist_copy_f2c_f.f90:41
hecmw_result
I/O and Utility.
Definition: hecmw_result_f.f90:7
hecmw_result::hecmw_result_copy_f2c
subroutine, public hecmw_result_copy_f2c(result_data, ierr)
Definition: hecmw_result_f.f90:230
hecmw_util
I/O and Utility.
Definition: hecmw_util_f.F90:7
hecmw_util::hecmw_comm_get_comm
integer(kind=kint) function hecmw_comm_get_comm()
Definition: hecmw_util_f.F90:579
hecmw_util::hecmw_abort
subroutine hecmw_abort(comm)
Definition: hecmw_util_f.F90:542
hecmw_visualizer
I/O and Utility.
Definition: hecmw_visualizer_f.f90:7
hecmw_visualizer::hecmw_visualize_by_addfname
subroutine, public hecmw_visualize_by_addfname(mesh, result_data, step, addfname)
Definition: hecmw_visualizer_f.f90:57
hecmw_visualizer::hecmw_visualize
subroutine, public hecmw_visualize(mesh, result_data, step)
Definition: hecmw_visualizer_f.f90:23
hecmw_visualizer::hecmw_visualize_init
subroutine, public hecmw_visualize_init()
Definition: hecmw_visualizer_f.f90:92
hecmw_visualizer::hecmw_visualize_finalize
subroutine, public hecmw_visualize_finalize()
Definition: hecmw_visualizer_f.f90:103
hecmw_util::hecmwst_local_mesh
Definition: hecmw_util_f.F90:236