155 lines
4.1 KiB
Fortran
155 lines
4.1 KiB
Fortran
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
MODULE CALCULATORS_5
|
||
|
|
!
|
||
|
|
! This module contains the subroutines allowing to compute
|
||
|
|
! various Fermi properties of the electron/plasma liquids:
|
||
|
|
!
|
||
|
|
! * Fermi energy : CALC_EFF
|
||
|
|
! * Fermi momentum : CALC_KFF
|
||
|
|
! * Fermi velocity : CALC_VFF
|
||
|
|
! * Fermi temperature : CALC_TFF
|
||
|
|
! * Fermi density of states : CALC_NFF
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE ACCURACY_REAL
|
||
|
|
!
|
||
|
|
CONTAINS
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_EFF
|
||
|
|
!
|
||
|
|
! This subroutine computes the Fermi energy and writes it into a file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 16 Sep 2020
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE FERMI_SI, ONLY : EF_SI
|
||
|
|
USE ENE_CHANGE, ONLY : EV
|
||
|
|
!
|
||
|
|
USE OUT_VALUES_5, ONLY : I_EF
|
||
|
|
USE PRINT_FILES, ONLY : IO_EF
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
IF(I_EF == 1) THEN !
|
||
|
|
WRITE(IO_EF,*) EF_SI / EV !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_EFF
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_KFF
|
||
|
|
!
|
||
|
|
! This subroutine computes the Fermi momentum and writes it into a file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 16 Sep 2020
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE FERMI_SI, ONLY : KF_SI
|
||
|
|
USE ENE_CHANGE, ONLY : ANG
|
||
|
|
!
|
||
|
|
USE OUT_VALUES_5, ONLY : I_KF
|
||
|
|
USE PRINT_FILES, ONLY : IO_KF
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
IF(I_KF == 1) THEN !
|
||
|
|
WRITE(IO_KF,*) KF_SI * ANG !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_KFF
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_VFF
|
||
|
|
!
|
||
|
|
! This subroutine computes the Fermi velocity and writes it into a file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 16 Sep 2020
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE FERMI_SI, ONLY : VF_SI
|
||
|
|
!
|
||
|
|
USE OUT_VALUES_5, ONLY : I_VF
|
||
|
|
USE PRINT_FILES, ONLY : IO_VF
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
IF(I_VF == 1) THEN !
|
||
|
|
WRITE(IO_VF,*) VF_SI !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_VFF
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_TFF
|
||
|
|
!
|
||
|
|
! This subroutine computes the Fermi temperature and writes it into a file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 16 Sep 2020
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE FERMI_SI, ONLY : TF_SI
|
||
|
|
!
|
||
|
|
USE OUT_VALUES_5, ONLY : I_TE
|
||
|
|
USE PRINT_FILES, ONLY : IO_TE
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
IF(I_TE == 1) THEN !
|
||
|
|
WRITE(IO_TE,*) TF_SI !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_TFF
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_NFF
|
||
|
|
!
|
||
|
|
! This subroutine computes the Fermi density of states
|
||
|
|
! and writes it into a file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 16 Sep 2020
|
||
|
|
!
|
||
|
|
!
|
||
|
|
USE FERMI_SI, ONLY : NF_SI
|
||
|
|
USE ENE_CHANGE, ONLY : EV
|
||
|
|
!
|
||
|
|
USE OUT_VALUES_5, ONLY : I_DL
|
||
|
|
USE PRINT_FILES, ONLY : IO_DL
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
IF(I_DL == 1) THEN !
|
||
|
|
WRITE(IO_DL,*) NF_SI * EV !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_NFF
|
||
|
|
!
|
||
|
|
END MODULE CALCULATORS_5
|