conflu/ijk2l.f90 at master · wandadars/conflu · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
! ******************************************************************************
!
! $Id: ijk2l.f90,v 1.1 2005/03/05 17:25:53 haselbac Exp $
!
! Filename: ijk2l.F90
!
! Purpose: Map vertices from ijk to single index
!
! Description: None.
!
! Input:
!   i,j,k	i,j,k indices
!   ni,nj	Number of vertices in i,j directions
!
! Output: None.
!
! Notes: None.
!
! Author: Andreas Haselbacher
!
! Copyright: (c) 2004 by the University of Illinois
!
! RCS Revision history:
!
! $Log: ijk2l.f90,v $
! Revision 1.1  2005/03/05 17:25:53  haselbac
! Initial revision
!
! Revision 1.1  2004/12/27 15:37:35  haselbac
! Initial revision
!
! Revision 1.1  2004/12/27 15:06:21  haselbac
! Initial revision
!
! ******************************************************************************

INTEGER FUNCTION ijk2l(i,j,k,ni,nj)

  IMPLICIT NONE

! ******************************************************************************
! Declarations and definitions
! ******************************************************************************

! ==============================================================================
! Arguments
! ==============================================================================

  INTEGER, INTENT(IN) :: i,j,k,ni,nj

! ==============================================================================
! Local variables
! ==============================================================================

! ******************************************************************************
! Start
! ******************************************************************************

  ijk2l = i + ni*(j-1) + ni*nj*(k-1)


! ******************************************************************************
! End
! ******************************************************************************

END FUNCTION ijk2l