multidip_params.f90

Go to the documentation of this file.

! Copyright 2020
!
! For a comprehensive list of the developers that contributed to these codes
! see the UK-AMOR website.
!
! This file is part of UKRmol-out (UKRmol+ suite).
!
!     UKRmol-out is free software: you can redistribute it and/or modify
!     it under the terms of the GNU General Public License as published by
!     the Free Software Foundation, either version 3 of the License, or
!     (at your option) any later version.
!
!     UKRmol-out is distributed in the hope that it will be useful,
!     but WITHOUT ANY WARRANTY; without even the implied warranty of
!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!     GNU General Public License for more details.
!
!     You should have received a copy of the GNU General Public License
!     along with  UKRmol-out (in source/COPYING). Alternatively, you can also visit
!     <https://www.gnu.org/licenses/>.
!
module multidip_params

    use precisn_gbl, only: wp

    implicit none

    integer,  parameter :: ntermsasy = 5
    integer,  parameter :: ntermsppt = 5
    integer,  parameter :: nmaxphotons = bit_size(0)    
    logical,  parameter :: closed_interm = .false.      

    real(wp), parameter :: alpha = 1/137.03599907_wp    
    real(wp), parameter :: rzero = 0
    real(wp), parameter :: rone = 1

    complex(wp), parameter :: czero = 0
    complex(wp), parameter :: cone = 1

    character(len=1), parameter :: compt(3) = ['x', 'y', 'z']

end module multidip_params