FLASH-X
Doxygen Generated Documentation From Interface Source Code
ut_generalInterface.F90
Go to the documentation of this file.
1!! NOTICE
2!! Copyright 2022 UChicago Argonne, LLC and contributors
3!!
4!! Licensed under the Apache License, Version 2.0 (the "License");
5!! you may not use this file except in compliance with the License.
6!!
7!! Unless required by applicable law or agreed to in writing, software
8!! distributed under the License is distributed on an "AS IS" BASIS,
9!! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
10!! See the License for the specific language governing permissions and
11!! limitations under the License.
12!!
18
19! Modification history:
20! Created March 2016 KW
21
23
24 interface
25 integer function ut_getFreeFileUnit ()
26 end function ut_getFreeFileUnit
27 end interface
28
29 interface
30 subroutine ut_printMatrix (fileUnit, &
31 title, &
32 rowMinMatrix, rowMaxMatrix, &
33 colMinMatrix, colMaxMatrix, &
34 rowMinPrint , rowMaxPrint, &
35 colMinPrint , colMaxPrint, &
36 matrix )
37 implicit none
38 integer, intent (in) :: fileUnit
39 character (len=*), intent (in) :: title
40 integer, intent (in) :: rowMinMatrix, rowMaxMatrix
41 integer, intent (in) :: colMinMatrix, colMaxMatrix
42 integer, intent (in) :: rowMinPrint , rowMaxPrint
43 integer, intent (in) :: colMinPrint , colMaxPrint
44 real, intent (in) :: matrix (rowMinMatrix:rowMaxMatrix , colMinMatrix:colMaxMatrix)
45 end subroutine ut_printMatrix
46 end interface
47
48
49end module ut_generalInterface