MFC:Pre_process  v1.0
m_compile_specific.f90
Go to the documentation of this file.
1 !! __ _______________
2 !! / |/ / ____/ ____/
3 !! / /|_/ / /_ / /
4 !! / / / / __/ / /___
5 !! /_/ /_/_/ \____/
6 !!
7 !! This file is part of MFC.
8 !!
9 !! MFC is the legal property of its developers, whose names
10 !! are listed in the copyright file included with this source
11 !! distribution.
12 !!
13 !! MFC is free software: you can redistribute it and/or modify
14 !! it under the terms of the GNU General Public License as published
15 !! by the Free Software Foundation, either version 3 of the license
16 !! or any later version.
17 !!
18 !! MFC is distributed in the hope that it will be useful,
19 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
20 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 !! GNU General Public License for more details.
22 !!
23 !! You should have received a copy of the GNU General Public License
24 !! along with MFC (LICENSE).
25 !! If not, see <http://www.gnu.org/licenses/>.
26 
33 
36 
37  IMPLICIT NONE
38 
39  CONTAINS
40 
44  SUBROUTINE my_inquire(fileloc,dircheck)
45  CHARACTER(LEN=*), INTENT(IN) :: fileloc
46  LOGICAL, INTENT(INOUT) :: dircheck
47 
48 #ifdef __INTEL_COMPILER
49  INQUIRE(directory=trim(fileloc),exist=dircheck) !Intel
50 #else
51  INQUIRE(file=trim(fileloc),exist=dircheck) !GCC
52 #endif
53 
54  END SUBROUTINE my_inquire
55 
56 END MODULE m_compile_specific
This module contains subroutines that are compiler specific.
subroutine my_inquire(fileloc, dircheck)
Inquires on the existence of a directory.