30 integer,
parameter :: verb = 2
36 character(len=150) :: msh_file
38 integer,
dimension(4,6) :: mesh_desc
49 write(*,*)
'mesh_visu: start' 51 write(*,*)
" ASSEMBLE A MESH " 53 write(*,*)
" and visualise it with gmsh" 60 msh_file = trim(gmsh_dir)//
"disk/disk2_1.msh" 66 write(*,*)
"================================== ASSEMBLING THE MESH " 67 msh = mesh(trim(msh_file),
"gmsh")
68 if (verb>1)
call print(msh)
71 write(*,*)
"================================== ANALYSE THE MESH " 72 mesh_desc = mesh_analyse(msh, verb-1)
75 write(*,*)
"================================== MESH DISPLAY " 76 call system(
"gmsh -option "//trim(gmsh_dir)//
"gmsh-options-mesh "//trim(msh_file))
subroutine, public choral_init(verb)
Initialisation for the CHORAL library
TOP-LEVEL MODULE FOR THE LIBRARY CHORAL
program mesh_visu
CONSTRUCT AND VISUALISE A mesh