SPEED
MAKE_SPX_LOC_NUMERATION.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine make_spx_loc_numeration (nnloc, loc_n_num, cs_nnz, cs_loc, cs_nnz_bc, cs_bc_loc)
 Makes local numeration of spectral nodes.
 

Function/Subroutine Documentation

◆ make_spx_loc_numeration()

subroutine make_spx_loc_numeration ( integer*4  nnloc,
integer*4, dimension(nnloc), intent(inout)  loc_n_num,
integer*4  cs_nnz,
integer*4, dimension(0:cs_nnz), intent(inout)  cs_loc,
integer*4  cs_nnz_bc,
integer*4, dimension(0:cs_nnz_bc), intent(inout)  cs_bc_loc 
)

Makes local numeration of spectral nodes.

Author
Ilario Mazzieri
Date
September, 2013
Version
1.0
Parameters
[in]nnlocnumber of local nodes
[in]loc_n_numlocal node numeration
[in]cs_nnzlength of cs_loc
[in]cs_nnz_bclength of cs_bc_loc
[in,out]cs_locspectral connectivity vector (IN -> global num, OUT -> local num.)
[in,out]cs_bc_locspectral boundary connectivity vector (IN -> global num, OUT -> local num.)

Definition at line 33 of file MAKE_SPX_LOC_NUMERATION.f90.

36
37
38 implicit none
39
40 integer*4 :: cs_nnz, cs_nnz_bc, nnloc
41 integer*4, dimension(0:cs_nnz), intent(inout) :: cs_loc
42 integer*4, dimension(0:cs_nnz_bc), intent(inout) :: cs_bc_loc
43 integer*4, dimension(nnloc), intent(inout) :: loc_n_num
44
45 integer*4 :: ne_loc, ne_loc_bc
46 integer*4 :: ie, j, iglo, iloc
47
48
49 ne_loc = cs_loc(0) - 1
50
51 do ie = 1, ne_loc
52 do j = cs_loc(ie -1) + 1, cs_loc(ie) - 1
53
54 iglo = cs_loc(j)
55 call get_indloc_from_indglo(loc_n_num, nnloc, iglo, iloc)
56 cs_loc(j) = iloc
57
58 if(iloc .eq. 0) write(*,*) '1 Error in MAKE_SPX_LOC_NUMERATION'
59 enddo
60 enddo
61
62 ne_loc_bc = cs_bc_loc(0) - 1
63
64 do ie = 1, ne_loc_bc
65 do j = cs_bc_loc(ie -1) + 1, cs_bc_loc(ie) - 1
66
67 iglo = cs_bc_loc(j)
68 call get_indloc_from_indglo(loc_n_num, nnloc, iglo, iloc)
69 cs_bc_loc(j) = iloc
70
71 if(iloc .eq. 0) write(*,*) '2 Error in MAKE_SPX_LOC_NUMERATION'
72 enddo
73 enddo
74
75
76
subroutine get_indloc_from_indglo(local_el, nel_loc, ie, ic)
Returns local id from global id.

References get_indloc_from_indglo().

Referenced by make_spx_grid_with_loc_numeration().

Here is the call graph for this function:
Here is the caller graph for this function: