File: /nfs/home/0/users/jenkins/mfix.git/model/xsi_array_mod.f

1     MODULE xsi_array
2     
3           Use param
4           Use param1
5     
6     ! IMPORTANT:  For using these arrays in a subroutine
7     ! lock the module in the beginning of the subroutine
8     !   call lock_xsi_array
9     !
10     ! and unlock the module at the end of the subroutine
11     !   call unlock_xsi_array
12     !
13     
14     !  discretization factors xsi
15        DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: &
16           XSI_e, XSI_n, XSI_t
17     
18     !!!HPF$ align Xsi_e(:) with TT(:)
19     !!!HPF$ align Xsi_n(:) with TT(:)
20     !!!HPF$ align Xsi_t(:) with TT(:)
21     
22     
23        LOGICAL :: xsi_array_locked = .false.
24     
25        CONTAINS
26           SUBROUTINE lock_xsi_array
27             IF(xsi_array_locked)Then
28               Write(*,*)'Error:  Multiple use of xsi_array (xsi_array_mod.f)'
29               CALL MFIX_EXIT(myPE)
30             Else
31               xsi_array_locked = .true.
32             Endif
33           END SUBROUTINE lock_xsi_array
34     
35           SUBROUTINE unlock_xsi_array
36             xsi_array_locked = .false.
37           END SUBROUTINE unlock_xsi_array
38     
39     END MODULE xsi_array
40