GRIDMAN
grid managment library
test_print_examples.f
1 C> Print test grids
2 C GRIDMAN, grid managment library. Author: Vladislav Kotov, v.kotov@fz-juelich.de
3 
4  PROGRAM test_print_examples
5  USE gridman
6  USE gridman_lib
7  IMPLICIT NONE
8 
9  TYPE(gridman_grid) :: grid
10  INTEGER :: ierr
11 
12  CALL grid_example1(grid,ierr)
13  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
14  grid%DESCRIPTION='Grid example 1'
15  CALL gridman_grid_write(grid,'example1.grd',ierr)
16  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
17 
18  CALL grid_example2(grid,ierr)
19  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
20  grid%DESCRIPTION='Grid example 2'
21  CALL gridman_grid_write(grid,'example2.grd',ierr)
22  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
23 
24  CALL grid_example3(grid,ierr)
25  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
26  grid%DESCRIPTION='Grid example 3'
27  CALL gridman_grid_write(grid,'example3.grd',ierr)
28  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
29 
30  CALL grid_example4(grid,ierr)
31  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
32  grid%DESCRIPTION='Grid example 4'
33  CALL gridman_grid_write(grid,'example4.grd',ierr)
34  IF(ierr.NE.0) stop "TEST_PRINT_EXAMPLES"
35 
36  END PROGRAM test_print_examples
gridman_lib
Explicit interfaces to GRIDMAN subroutines and functions.
Definition: gridman.f:251
gridman::gridman_grid
Data-type which describes a grid as a set of edges, methods in grid.f.
Definition: gridman.f:168
gridman
Definition of data types, global constants and variables.
Definition: gridman.f:83
Generated on Thu Oct 5 2017 09:49:57 for GRIDMAN by   doxygen 1.8.9.1