LCOV - code coverage report
Current view: top level - global - utility.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 19 19 100.0 %
Date: 2019-09-08 04:53:50 Functions: 4 4 100.0 %

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_utility
       8             : 
       9             :    IMPLICIT NONE
      10             : 
      11             :    CONTAINS
      12             : 
      13             :      
      14          76 :    SUBROUTINE getComputerArchitectures(architectures, numArchitectures)
      15             :       IMPLICIT NONE
      16             :       INTEGER         , INTENT(OUT) :: numArchitectures
      17             :       CHARACTER(LEN=*), INTENT(OUT) :: architectures(11)
      18          76 :       numArchitectures = 0
      19         912 :       architectures = ''
      20             : #ifdef CPP_AIX
      21             :       numArchitectures = numArchitectures + 1
      22             :       architectures(numArchitectures) = 'AIX'
      23             : #endif
      24          76 :    END SUBROUTINE getComputerArchitectures
      25             : 
      26          38 :    SUBROUTINE getPrecision(precisionString)
      27             :       IMPLICIT NONE
      28             :       CHARACTER(LEN=*), INTENT(OUT) :: precisionString
      29             : #ifdef CPP_DOUBLE                
      30          38 :       precisionString = 'DOUBLE'        
      31             : #else
      32             :       precisionString = 'SINGLE'
      33             :       CALL juDFT_warn("You compiled with single precision, this is most probably wrong!",calledby ="dimens")
      34             : #endif
      35          76 :    END SUBROUTINE getPrecision
      36             : 
      37          38 :    SUBROUTINE getTargetStructureProperties(specifiers, numSpecifiers)
      38             :       IMPLICIT NONE
      39             :       INTEGER         , INTENT(OUT) :: numSpecifiers
      40             :       CHARACTER(LEN=*), INTENT(OUT) :: specifiers(11)
      41          38 :       numSpecifiers = 0
      42         456 :       specifiers = ''
      43          38 :    END SUBROUTINE getTargetStructureProperties
      44             : 
      45          76 :    SUBROUTINE getAdditionalCompilationFlags(flags, numFlags)
      46             :       IMPLICIT NONE
      47             :       INTEGER         , INTENT(OUT) :: numFlags
      48             :       CHARACTER(LEN=*), INTENT(OUT) :: flags(11)
      49          76 :       numFlags = 0
      50         912 :       flags = ''
      51             : #ifdef CPP_MPI
      52          76 :       numFlags = numFlags + 1
      53          76 :       flags(numFlags) = 'CPP_MPI'
      54             : #endif
      55             : #ifdef CPP_HDF
      56          76 :       numFlags = numFlags + 1
      57          76 :       flags(numFlags) = 'CPP_HDF'
      58             : #endif
      59             : #ifdef CPP_WANN
      60             :       numFlags = numFlags + 1
      61             :       flags(numFlags) = 'CPP_WANN'
      62             : #endif
      63             : #ifdef CPP_NOSPMVEC
      64             :       numFlags = numFlags + 1
      65             :       flags(numFlags) = '+NOSPMVEC'
      66             : #endif
      67             : #ifdef CPP_IRAPPROX
      68             :       numFlags = numFlags + 1
      69             :       flags(numFlags) = '+IRAPPROX'
      70             : #endif
      71          76 :    END SUBROUTINE getAdditionalCompilationFlags
      72             : 
      73             : END MODULE m_utility

Generated by: LCOV version 1.13