LCOV - code coverage report
Current view: top level - init - checks.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 5 10 50.0 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 Peter Gruenberg Institut, Forschungszentrum Juelich, 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_checks
       8             :   USE m_juDFT
       9             :   CONTAINS
      10          76 :     SUBROUTINE check_command_line()
      11             :       !Here we check is command line arguments are OK
      12             :       IMPLICIT NONE
      13             : #ifdef CPP_MPI
      14             :       INCLUDE 'mpif.h'
      15             :       INTEGER:: isize,ierr,irank
      16             : #endif
      17          76 :       IF (TRIM(juDFT_string_for_argument("-eig"))=="hdf") THEN
      18             : #ifndef CPP_HDF
      19             :          CALL judft_error("HDF5 cannot be used for Eigenvector IO",&
      20             :               hint="You compiled without support for HDF5. Please use another mode")
      21             : #endif
      22             : #ifdef CPP_MPI
      23             : #ifndef CPP_HDFMPI
      24             :          CALL judft_error("HDF5 cannot be used in parallel mode for Eigenvector IO",&
      25             :               hint="Your HDF5 library does not support parallel IO" )
      26             : #endif
      27             : #endif
      28             :       ENDIF
      29             :       !Check for IO options not available in parallel
      30             : #ifdef CPP_MPI
      31          76 :       CALL MPI_COMM_SIZE(MPI_COMM_WORLD,irank,ierr)
      32          76 :       IF (irank.EQ.0) THEN
      33           0 :          IF (isize>1) THEN
      34           0 :             IF (TRIM(juDFT_string_for_argument("-eig"))=="-mem") CALL judft_error(&
      35           0 :                 "-eig mem cannot be used in parallel mode for Eigenvector IO",hint="Use -eig mpi or -eig hdf instead")
      36           0 :             IF (TRIM(juDFT_string_for_argument("-eig"))=="-da") CALL judft_error(&
      37           0 :                 "-eig da cannot be used in parallel mode for Eigenvector IO",hint="Use -eig mpi or -eig hdf instead")
      38             :          END IF
      39             :       END IF
      40             : #endif
      41          76 :     END SUBROUTINE check_command_line
      42             :   END MODULE m_checks

Generated by: LCOV version 1.13