860 lines
40 KiB
Fortran
860 lines
40 KiB
Fortran
!
|
|
!=======================================================================
|
|
!
|
|
MODULE INPUT_DATA
|
|
!
|
|
CONTAINS
|
|
!
|
|
!=======================================================================
|
|
!
|
|
SUBROUTINE READ_DATA
|
|
!
|
|
! This subroutine reads the input data file of the epsilon.f90 code,
|
|
! and either stores them into modules or pass them as arguments
|
|
!
|
|
!
|
|
!
|
|
! Author : D. Sébilleau
|
|
!
|
|
! Last modified : 6 Aug 2021
|
|
!
|
|
! Modules storing the data
|
|
!
|
|
USE MATERIAL_PROP
|
|
USE EXT_FIELDS
|
|
USE Q_GRID
|
|
USE E_GRID
|
|
USE R_GRID
|
|
USE CONFIN_VAL
|
|
USE MULTILAYER
|
|
USE UNITS
|
|
USE SCREENING_TYPE
|
|
USE PLASMA
|
|
USE CALCTYPE
|
|
USE DF_VALUES
|
|
USE PLASMON_DISPERSION
|
|
USE LF_VALUES
|
|
USE DAMPING_VALUES
|
|
USE EL_ELE_INTER
|
|
USE EL_PHO_INTER
|
|
USE EL_IMP_INTER
|
|
USE CLASSICAL_FLUID_VALUES
|
|
USE SF_VALUES
|
|
USE PC_VALUES
|
|
USE PD_VALUES
|
|
USE SPF_VALUES
|
|
USE ENERGIES
|
|
USE SPIN_POLARIZATION
|
|
USE THERMO_PROPERTIES
|
|
USE ELECTRON_MEAN_FREE_PATH
|
|
USE MOMENTS
|
|
USE ION_BEAM
|
|
!
|
|
USE OUT_VALUES_1
|
|
USE OUT_VALUES_2
|
|
USE OUT_VALUES_3
|
|
USE OUT_VALUES_4
|
|
USE OUT_VALUES_5
|
|
USE OUT_VALUES_6
|
|
USE OUT_VALUES_7
|
|
USE OUT_VALUES_8
|
|
USE OUT_VALUES_9
|
|
USE OUT_VALUES_10
|
|
USE OUT_VALUES_P
|
|
!
|
|
USE OUT_CALC
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
INTEGER :: N_HEAD,N_SEP,N_INT
|
|
INTEGER :: I
|
|
!
|
|
CHARACTER (LEN = 8) :: DUMMY
|
|
!
|
|
! Separation blocks to skip when reading
|
|
!
|
|
N_HEAD=8 !
|
|
N_SEP=3 !
|
|
N_INT=1 !
|
|
!
|
|
! Reading the input data file
|
|
!
|
|
DO I=1,N_HEAD !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,10) Q_MIN,Q_MAX,N_Q !
|
|
READ(5,11) E_MIN,E_MAX,N_E !
|
|
READ(5,12) R_MIN,R_MAX,N_R !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,13) RS,MSOM,MAT_TYP,EPS_B !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,14) T,E,H,FLD !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,15) DMN !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,16) R0,L,OM0,CONFIN !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,17) DL,D1,N_DEP,N_INV !
|
|
READ(5,18) H_TYPE,EPS_1,EPS_2 !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,19) UNIT,UNIK !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,20) SC_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,21) PL_TYPE,ZION,ZION2 !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,22) CAL_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,23) ESTDY,EPS_T,D_FUNC,I_T !
|
|
READ(5,24) NEV_TYPE,MEM_TYPE,ALPHA,BETA !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,25) PL_DISP !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,26) GSTDY,GQ_TYPE,IQ_TYPE !
|
|
READ(5,27) LANDAU,GQO_TYPE,G0_TYPE,GI_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,28) DAMPING,LT_TYPE,RT_TYPE !
|
|
READ(5,29) DR_TYPE,DC_TYPE,VI_TYPE !
|
|
READ(5,30) EE_TYPE,EP_TYPE,EI_TYPE !
|
|
READ(5,31) IP_TYPE,PD_TYPE,QD_TYPE,ZETA !
|
|
READ(5,32) D_VALUE_1,POWER_1,EK !
|
|
READ(5,33) D_VALUE_2,POWER_2,PCT !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,34) INT_POT,S,EPS,DELTA !
|
|
READ(5,35) RC,ALF,M,N !
|
|
READ(5,36) A1,A2,A3,A4 !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,37) EP_C,DEBYE_T !
|
|
READ(5,38) NA,MA,RA !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,39) NI,EI_C !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,40) CF_TYPE,PF_TYPE,SL_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,41) SSTDY,SQ_TYPE,SQO_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,42) GR_TYPE,GR0_MODE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,43) RH_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,44) SPF_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,45) EC_TYPE,FXC_TYPE,EXC_TYPE !
|
|
READ(5,46) EX_TYPE,EK_TYPE
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,47) IMODE,XI
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,48) TH_PROP,GP_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,49) EK_INI,EK_FIN !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,50) N_M,M_TYPE !
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,51) Z_BEAM,EK_BEAM !
|
|
!
|
|
! Reading the print switches I_XX
|
|
!
|
|
DO I=1,N_SEP !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,201) I_DF,I_PZ,I_SU,I_CD !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,202) I_PD,I_EH,I_E2,I_CK !
|
|
READ(5,204) I_CR,I_PK !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,205) I_LF,I_IQ,I_SF,I_PC !
|
|
READ(5,206) I_P2,I_VX,I_DC,I_MD !
|
|
READ(5,207) I_LD,I_DP,I_LT,I_BR !
|
|
READ(5,208) I_PE,I_QC,I_RL,I_KS !
|
|
READ(5,209) I_OQ,I_ME,I_MS,I_ML !
|
|
READ(5,210) I_MC,I_DE,I_ZE,I_SR !
|
|
READ(5,211) I_CW,I_CF,I_EM,I_MF !
|
|
READ(5,212) I_SP,I_SE,I_SB,I_ES !
|
|
READ(5,213) I_GR,I_FD,I_BE,I_MX !
|
|
READ(5,214) I_SC,I_DS,I_NV,I_MT !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,215) I_GP,I_PR,I_CO,I_CP !
|
|
READ(5,216) I_BM,I_SH,I_S0,I_S1 !
|
|
READ(5,217) I_DT,I_PS,I_IE,I_EI !
|
|
READ(5,218) I_FH,I_EY !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,219) I_EF,I_KF,I_VF,I_TE !
|
|
READ(5,220) I_DL !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,221) I_TW,I_VT,I_TC !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,222) I_EG,I_EX,I_XC,I_EC !
|
|
READ(5,223) I_HF,I_EK,I_EP !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,224) I_VI,I_DI !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,225) I_FP,I_EL,I_PO,I_RF !
|
|
READ(5,226) I_VC !
|
|
!
|
|
DO I=1,N_INT !
|
|
READ(5,5) DUMMY !
|
|
END DO !
|
|
!
|
|
READ(5,227) I_FN,I_WR,I_TI !
|
|
!
|
|
! Switches to call specific calculators
|
|
!
|
|
I_C1 = I_DF + I_PZ + I_SU + I_CD !
|
|
I_C2 = I_PD + I_EH + I_E2 + I_CK + I_CR + I_PK !
|
|
I_C3 = I_LF + I_IQ + I_SF + I_PC + I_P2 + I_VX + I_DC + & !
|
|
I_MD + I_LD + I_DP + I_LT + I_BR + I_PE + I_QC + & !
|
|
I_RL + I_KS + I_OQ + I_ME + I_MS + I_ML + I_MC + & !
|
|
I_DE + I_ZE + I_SR + I_CW + I_CF + I_EM + I_MF + & !
|
|
I_SP + I_SE + I_SB + I_ES + I_GR + I_FD + I_BE + & !
|
|
I_MX + I_SC + I_DS + I_NV + I_MT !
|
|
I_C4 = I_GP + I_PR + I_CO + I_CP + I_BM + I_SH + I_S0 + & !
|
|
I_S1 + I_DT + I_PS + I_IE + I_EI + I_FH + I_EY !
|
|
I_C5 = I_EF + I_KF + I_VF + I_TE + I_DL !
|
|
I_C6 = I_TW + I_VT + I_TC !
|
|
I_C7 = I_EG + I_EX + I_XC + I_EC + I_HF + I_EK + I_EP !
|
|
I_C8 = I_VI + I_DI !
|
|
I_C9 = I_EL + I_PO + I_RF + I_VC !
|
|
I_PP = I_FP + I_PD !
|
|
!
|
|
! Steps in q/k_F , (h_bar omega)/E_F and k_F*r
|
|
!
|
|
IF(N_Q == 1) THEN !
|
|
Q_STEP = 1 !
|
|
ELSE ! step in Q
|
|
Q_STEP = (Q_MAX - Q_MIN) / (FLOAT(N_Q-1)) !
|
|
END IF !
|
|
!
|
|
IF(N_E == 1) THEN !
|
|
E_STEP = 1 !
|
|
ELSE ! step in E
|
|
E_STEP = (E_MAX - E_MIN) / (FLOAT(N_E-1)) !
|
|
END IF !
|
|
!
|
|
IF(N_R == 1) THEN !
|
|
R_STEP = 1 !
|
|
ELSE ! step in R
|
|
R_STEP = (R_MAX - R_MIN) /(FLOAT(N_R-1)) !
|
|
END IF !
|
|
!
|
|
! Writing into the log file
|
|
!
|
|
!
|
|
WRITE(6,401) !
|
|
WRITE(6,402) !
|
|
WRITE(6,403) !
|
|
WRITE(6,404) !
|
|
WRITE(6,405) !
|
|
WRITE(6,406) !
|
|
WRITE(6,407) !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,702) !
|
|
WRITE(6,601) !
|
|
WRITE(6,801) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,110) Q_MIN,Q_MAX,N_Q !
|
|
WRITE(6,111) E_MIN,E_MAX,N_E !
|
|
WRITE(6,112) R_MIN,R_MAX,N_R !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,802) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,113) RS,MSOM,MAT_TYP,EPS_B !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,803) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,114) T,E,H,FLD !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,804) !
|
|
!
|
|
WRITE(6,115) DMN !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,805) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,116) R0,L,OM0,CONFIN !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,806) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,117) DL,D1,N_DEP,N_INV !
|
|
WRITE(6,118) H_TYPE,EPS_1,EPS_2 !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,807) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,119) UNIT,UNIK !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,808) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,120) SC_TYPE !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,809) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,121) PL_TYPE,ZION,ZION2 !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,810) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,122) CAL_TYPE
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,703) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,123) ESTDY,EPS_T,D_FUNC,I_T !
|
|
!
|
|
WRITE(6,124) NEV_TYPE,MEM_TYPE,ALPHA,BETA !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,811) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,125) PL_DISP !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,812) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,126) GSTDY,GQ_TYPE,IQ_TYPE !
|
|
WRITE(6,127) LANDAU,GQO_TYPE,G0_TYPE,GI_TYPE !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,813) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,128) DAMPING,LT_TYPE,RT_TYPE !
|
|
WRITE(6,129) DR_TYPE,DC_TYPE,VI_TYPE !
|
|
WRITE(6,130) EE_TYPE,EP_TYPE,EI_TYPE !
|
|
WRITE(6,131) IP_TYPE,PD_TYPE,QD_TYPE,ZETA !
|
|
WRITE(6,132) D_VALUE_1,POWER_1,EK !
|
|
WRITE(6,133) D_VALUE_2,POWER_2,PCT !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,814) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,134) INT_POT,S,EPS,DELTA !
|
|
WRITE(6,135) RC,ALF,M,N !
|
|
WRITE(6,136) A1,A2,A3,A4 !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,815) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,137) EP_C,DEBYE_T !
|
|
WRITE(6,138) NA,MA,RA !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,816) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,139) NI,EI_C !
|
|
!
|
|
WRITE(6,602) !
|
|
WRITE(6,817) !
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,140) CF_TYPE,PF_TYPE,SL_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,704) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,141) SSTDY,SQ_TYPE,SQO_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,705) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,142) GR_TYPE,GR0_MODE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,706) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,143) RH_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,707) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,144) SPF_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,708) !
|
|
WRITE(6,601) !
|
|
!
|
|
!
|
|
WRITE(6,145) EC_TYPE,FXC_TYPE,EXC_TYPE !
|
|
WRITE(6,146) EX_TYPE,EK_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,709) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,147) IMODE,XI
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,710) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,148) TH_PROP,GP_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,711) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,149) EK_INI,EK_FIN !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,712) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,150) N_M,M_TYPE !
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,713) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,151) Z_BEAM,EK_BEAM !
|
|
!
|
|
! Writing the print switches
|
|
!
|
|
WRITE(6,601) !
|
|
WRITE(6,714) !
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,301) I_DF,I_PZ,I_SU,I_CD !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,302) I_PD,I_EH,I_E2,I_CK !
|
|
WRITE(6,304) I_CR,I_PK !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,305) I_LF,I_IQ,I_SF,I_PC !
|
|
WRITE(6,306) I_P2,I_VX,I_DC,I_MD !
|
|
WRITE(6,307) I_LD,I_DP,I_LT,I_BR !
|
|
WRITE(6,308) I_PE,I_QC,I_RL,I_KS !
|
|
WRITE(6,309) I_OQ,I_ME,I_MS,I_ML !
|
|
WRITE(6,310) I_MC,I_DE,I_ZE,I_SR !
|
|
WRITE(6,311) I_CW,I_CF,I_EM,I_MF !
|
|
WRITE(6,312) I_SP,I_SE,I_SB,I_ES !
|
|
WRITE(6,313) I_GR,I_FD,I_BE,I_MX !
|
|
WRITE(6,314) I_SC,I_DS,I_NV,I_MT !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,315) I_GP,I_PR,I_CO,I_CP !
|
|
WRITE(6,316) I_BM,I_SH,I_S0,I_S1 !
|
|
WRITE(6,317) I_DT,I_PS,I_IE,I_EI !
|
|
WRITE(6,318) I_FH,I_EY !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,319) I_EF,I_KF,I_VF,I_TE !
|
|
WRITE(6,320) I_DL !
|
|
!
|
|
!
|
|
WRITE(6,321) I_TW,I_VT,I_TC !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,322) I_EG,I_EX,I_XC,I_EC !
|
|
WRITE(6,323) I_HF,I_EK,I_EP !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,324) I_VI,I_DI !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,325) I_FP,I_EL,I_PO,I_RF !
|
|
WRITE(6,326) I_VC !
|
|
!
|
|
WRITE(6,602) !
|
|
!
|
|
WRITE(6,327) I_FN,I_WR,I_TI !
|
|
!
|
|
WRITE(6,601) !
|
|
!
|
|
WRITE(6,500) !
|
|
WRITE(6,500) !
|
|
WRITE(6,407) !
|
|
!
|
|
! Formats: Reading standard input data
|
|
!
|
|
5 FORMAT(A8)
|
|
!
|
|
10 FORMAT(6X,F7.3,3X,F7.3,2X,I5)
|
|
11 FORMAT(6X,F7.3,3X,F7.3,2X,I5)
|
|
12 FORMAT(6X,F7.3,3X,F7.3,2X,I5)
|
|
13 FORMAT(6X,F7.3,3X,F7.3,2X,A5,4X,F9.3)
|
|
14 FORMAT(3X,F10.3,3X,F7.3,3X,F7.3,5X,A2)
|
|
15 FORMAT(8X,A2)
|
|
16 FORMAT(6X,F7.3,3X,F7.3,3X,F6.2,1X,A7)
|
|
17 FORMAT(6X,F7.3,3X,F7.3,3X,F7.3,3X,F7.3)
|
|
18 FORMAT(6X,A4,4X,F9.3,1X,F9.3)
|
|
19 FORMAT(7X,A3,8X,A2)
|
|
20 FORMAT(8X,A2)
|
|
21 FORMAT(7X,A3,6X,F7.3,3X,F7.3)
|
|
22 FORMAT(3X,A7)
|
|
23 FORMAT(3X,A7,6X,A4,6X,A4,9X,I1)
|
|
24 FORMAT(6X,A4,6X,A4,8X,F5.3,5X,F5.3)
|
|
25 FORMAT(3X,A7)
|
|
26 FORMAT(3X,A7,6X,A4,7X,A3)
|
|
27 FORMAT(6X,A4,6X,A4,8X,A2,8X,A2)
|
|
28 FORMAT(6X,A4,6X,A4,7X,A3)
|
|
29 FORMAT(6X,A4,6X,A4,6X,A4)
|
|
30 FORMAT(6X,A4,6X,A4,6X,A4)
|
|
31 FORMAT(6X,A4,6X,A4,6X,A4,4X,F9.3)
|
|
32 FORMAT(6X,F7.3,2X,A5,4X,F9.3)
|
|
33 FORMAT(6X,F7.3,2X,A5,8X,F4.2)
|
|
34 FORMAT(5X,A5,6X,F7.3,2X,F8.3,3X,F7.3)
|
|
35 FORMAT(6X,F7.3,3X,F7.3,5X,I2,8X,I2)
|
|
36 FORMAT(6X,F7.3,3X,F7.3,3X,F7.3,3X,F7.3)
|
|
37 FORMAT(5X,F8.3,2X,F8.3)
|
|
38 FORMAT(5X,F8.3,2X,F8.3,2X,F8.3)
|
|
39 FORMAT(5X,F8.3,2X,F8.3)
|
|
40 FORMAT(7X,A3,7X,A3,7X,A3)
|
|
41 FORMAT(3X,A7,7X,A3,7X,A3)
|
|
42 FORMAT(7X,A3,6X,A4)
|
|
43 FORMAT(7X,A3)
|
|
44 FORMAT(6X,A4)
|
|
45 FORMAT(4X,A6,8X,A2,8X,A2)
|
|
46 FORMAT(7X,A3,7X,A3)
|
|
47 FORMAT(9X,I1,6X,F7.3)
|
|
48 FORMAT(6X,A4,7X,A3)
|
|
49 FORMAT(5X,F9.3,1X,F9.3)
|
|
50 FORMAT(8X,I2,7X,A3)
|
|
51 FORMAT(6X,F6.2,1X,F9.2)
|
|
!
|
|
! Formats: Writing standard input data
|
|
!
|
|
110 FORMAT(6X,F7.3,3X,F7.3,2X,I5,19X,'Q_MIN,Q_MAX,N_Q')
|
|
111 FORMAT(6X,F7.3,3X,F7.3,2X,I5,19X,'E_MIN,E_MAX,N_E')
|
|
112 FORMAT(6X,F7.3,3X,F7.3,2X,I5,19X,'R_MIN,R_MAX,N_R')
|
|
113 FORMAT(6X,F7.3,3X,F7.3,2X,A5,4X,F9.3,6X,'RS,MSOM,MAT_TYP,EPS_B')
|
|
114 FORMAT(3X,F10.3,3X,F7.3,3X,F7.3,5X,A2,9X,'T,E,H,FLD')
|
|
115 FORMAT(8X,A2,39X,'DIM')
|
|
116 FORMAT(6X,F7.3,3X,F7.3,3X,F6.2,1X,A7,9X,'R0,L,OM0,CONFIN')
|
|
117 FORMAT(6X,F7.3,3X,F7.3,3X,F7.3,3X,F7.3,6X,'DL,D1,N_DEP,N_INV')
|
|
118 FORMAT(6X,A4,4X,F9.3,1X,F9.3,16X,'H_TYPE,EPS_1,EPS_2')
|
|
119 FORMAT(7X,A3,8X,A2,29X,'UNIT,UNIK')
|
|
120 FORMAT(8X,A2,39X,'SC_TYPE')
|
|
121 FORMAT(7X,A3,6X,F7.3,3X,F7.3,16X,'PL_TYPE,ZION,ZION2')
|
|
122 FORMAT(3X,A7,39X,'CAL_TYPE')
|
|
123 FORMAT(3X,A7,6X,A4,6X,A4,9X,I1,9X,'ESTDY,EPS_T,D_FUNC,', &
|
|
'I_T')
|
|
124 FORMAT(6X,A4,6X,A4,8X,F5.3,5X,F5.3,6X,'NEV_TYPE,MEM_TYPE,ALPHA,BETA')
|
|
125 FORMAT(3X,A7,39X,'PL_DISP')
|
|
126 FORMAT(3X,A7,6X,A4,7X,A3,19X,'GSTDY,GQ_TYPE,IQ_TYPE')
|
|
127 FORMAT(6X,A4,6X,A4,8X,A2,8X,A2,9X,'LANDAU,GQO_TYPE,G0_TYPE,GI_TYPE')
|
|
128 FORMAT(6X,A4,6X,A4,7X,A3,19X,'DAMPING,LT_TYPE,RT_TYPE')
|
|
129 FORMAT(6X,A4,6X,A4,6X,A4,19X,'DR_TYPE,DC_TYPE,VI_TYPE')
|
|
130 FORMAT(6X,A4,6X,A4,6X,A4,19X,'EE_TYPE,EP_TYPE,EI_TYPE')
|
|
131 FORMAT(6X,A4,6X,A4,6X,A4,4X,F9.3,6X,'IP_TYPE,PD_TYPE,QD_TYPE,ZETA')
|
|
132 FORMAT(6X,F7.3,2X,A5,4X,F9.3,16X,'D_VALUE_1,POWER_1,EK')
|
|
133 FORMAT(6X,F7.3,2X,A5,8X,F4.2,17X,'D_VALUE_2,POWER_2,PCT')
|
|
134 FORMAT(5X,A5,6X,F7.3,2X,F8.3,3X,F7.3,6X,'INT_POT,S,EPS,DELTA')
|
|
135 FORMAT(6X,F7.3,3X,F7.3,5X,I2,8X,I2,9X,'RC,ALF,M,N')
|
|
136 FORMAT(6X,F7.3,3X,F7.3,3X,F7.3,3X,F7.3,6X,'A1,A2,A3,A4')
|
|
137 FORMAT(5X,F8.3,2X,F8.3,26X,'EP_C,DEBYE_T')
|
|
138 FORMAT(5X,F8.3,2X,F8.3,2X,F8.3,16X,'NA,MA,RA')
|
|
139 FORMAT(5X,F8.3,2X,F8.3,26X,'NI,EI_C')
|
|
140 FORMAT(7X,A3,7X,A3,7X,A3,19X,'CF_TYPE,PF_TYPE,SL_TYPE')
|
|
141 FORMAT(3X,A7,7X,A3,7X,A3,19X,'SSTDY,SQ_TYPE,SQO_TYPE')
|
|
142 FORMAT(7X,A3,6X,A4,29X,'GR_TYPE,GR0_MODE')
|
|
143 FORMAT(7X,A3,39X,'RH_TYPE')
|
|
144 FORMAT(6X,A4,39X,'SPF_TYPE')
|
|
145 FORMAT(4X,A6,8X,A2,8X,A2,19X,'EC_TYPE,FXC_TYPE,EXC_TYPE')
|
|
146 FORMAT(7X,A3,7X,A3,29X,'EX_TYPE,EK_TYPE')
|
|
147 FORMAT(9X,I1,6X,F7.3,26X,'IMODE,XI')
|
|
148 FORMAT(6X,A4,7X,A3,29X,'TH_PROP,GP_TYPE')
|
|
149 FORMAT(4X,F9.3,1X,F9.3,26X,'EK_INI,EK_FIN')
|
|
150 FORMAT(8X,I2,7X,A3,29X,'N_M,M_TYPE')
|
|
151 FORMAT(6X,F6.2,1X,F9.2,27X,'Z_BEAM,EK_BEAM')
|
|
!
|
|
! Formats: Reading print switches
|
|
!
|
|
201 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
202 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
204 FORMAT( 9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
205 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
206 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
207 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
208 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
209 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
210 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
211 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
212 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
213 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
214 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
215 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
216 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
217 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
218 FORMAT( 9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
219 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
220 FORMAT( 9X,I1)
|
|
!---------------------------------------------------
|
|
221 FORMAT( 9X,I1,9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
222 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
223 FORMAT( 9X,I1,9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
224 FORMAT( 9X,I1,9X,I1)
|
|
!---------------------------------------------------
|
|
225 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1)
|
|
226 FORMAT( 9X,I1)
|
|
!---------------------------------------------------
|
|
227 FORMAT( 9X,I1,9X,I1,8X,I2)
|
|
!---------------------------------------------------
|
|
!
|
|
! Formats: Writing print switches
|
|
!
|
|
301 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_DF,I_PZ,I_SU,I_CD')
|
|
!---------------------------------------------------
|
|
302 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_PD,I_EH,I_E2,I_CK')
|
|
304 FORMAT( 9X,I1,9X,I1,29X,'I_CR,I_PK')
|
|
!---------------------------------------------------
|
|
305 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_LF,I_IQ,I_SF,I_PC')
|
|
306 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_P2,I_VX,I_DC,I_MD')
|
|
307 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_LD,I_DP,I_LT,I_BR')
|
|
308 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_PE,I_QC,I_RL,I_KS')
|
|
309 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_OQ,I_ME,I_MS,I_ML')
|
|
310 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_MC,I_DE,I_ZE,I_SR')
|
|
311 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_CW,I_CF,I_EM,I_MF')
|
|
312 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_SP,I_SE,I_SB,I_ES')
|
|
313 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_GR,I_FD,I_BE,I_MX')
|
|
314 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_SC,I_DS,I_NV,I_MT')
|
|
!---------------------------------------------------
|
|
315 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_GP,I_PR,I_CO,I_CP')
|
|
316 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_BM,I_SH,I_S0,I_S1')
|
|
317 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_DT,I_PS,I_IE,I_EI')
|
|
318 FORMAT( 9X,I1,9X,I1,29X,'I_FH,I_EY')
|
|
!---------------------------------------------------
|
|
319 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_EF,I_KF,I_VF,I_TE')
|
|
320 FORMAT( 9X,I1,39X,'I_DL')
|
|
!---------------------------------------------------
|
|
321 FORMAT( 9X,I1,9X,I1,9X,I1,19X,'I_TW,I_VT,I_TC')
|
|
!---------------------------------------------------
|
|
322 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_EG,I_EX,I_XC,I_EC')
|
|
323 FORMAT( 9X,I1,9X,I1,9X,I1,19X,'I_HF,I_EK,I_EP')
|
|
!---------------------------------------------------
|
|
324 FORMAT( 9X,I1,9X,I1,29X,'I_VI,I_DI')
|
|
!---------------------------------------------------
|
|
325 FORMAT( 9X,I1,9X,I1,9X,I1,9X,I1,9X,'I_FP,I_EL,I_PO,I_RF')
|
|
326 FORMAT( 9X,I1,39X,'I_VC')
|
|
!---------------------------------------------------
|
|
327 FORMAT( 9X,I1,9X,I1,8X,I2,19X,'I_FN,I_WR,I_TI')
|
|
!
|
|
401 FORMAT('**********************************************************************************')
|
|
402 FORMAT('********************* *********************')
|
|
403 FORMAT('********************* Fermi Liquid *********************')
|
|
404 FORMAT('********************* Dielectric Function *********************')
|
|
405 FORMAT('********************* Input Datafile *********************')
|
|
406 FORMAT('********************* *********************')
|
|
407 FORMAT('**********************************************************************************',//)
|
|
!
|
|
500 FORMAT(' ')
|
|
!
|
|
601 FORMAT(' =======+=========+=========+=========+=========+============================')
|
|
602 FORMAT(' -------+---------+---------+---------+---------+----------------------------')
|
|
!
|
|
702 FORMAT(' GENERAL PARAMETERS : ')
|
|
703 FORMAT(' DIELECTRIC FUNCTION : ')
|
|
704 FORMAT(' STRUCTURE FACTOR : ')
|
|
705 FORMAT(' PAIR CORRELATION FUNCTION : ')
|
|
706 FORMAT(' PAIR DISTRIBUTION FUNCTION : ')
|
|
707 FORMAT(' SPECTRAL FUNCTION : ')
|
|
708 FORMAT(' ENERGY CALCULATIONS : ')
|
|
709 FORMAT(' SPIN POLARIZATION : ')
|
|
710 FORMAT(' THERMODYNAMIC PROPERTIES : ')
|
|
711 FORMAT(' ELECTRON MEAN FREE PATH : ')
|
|
712 FORMAT(' CALCULATION OF MOMENTS: ')
|
|
713 FORMAT(' INCOMING ION BEAM : ')
|
|
714 FORMAT(' OUTPUT CALCULATIONS/PRINTING : ')
|
|
!
|
|
801 FORMAT(' (q,omega,r) : ')
|
|
802 FORMAT(' Material''s properties : ')
|
|
803 FORMAT(' External fields : ')
|
|
804 FORMAT(' System''s dimension : ')
|
|
805 FORMAT(' Confinement : ')
|
|
806 FORMAT(' Multilayer structure : ')
|
|
807 FORMAT(' Units : ')
|
|
808 FORMAT(' Screening : ')
|
|
809 FORMAT(' Plasma type : ')
|
|
810 FORMAT(' Calculation type : ')
|
|
811 FORMAT(' Analytical plasmon dispersion : ')
|
|
812 FORMAT(' Local-field corrections ')
|
|
813 FORMAT(' Damping : ')
|
|
814 FORMAT(' Electron-electron interaction : ')
|
|
815 FORMAT(' Electron-phonon interaction : ')
|
|
816 FORMAT(' Electron-impurity interaction : ')
|
|
817 FORMAT(' Classical fluid parameters : ')
|
|
!
|
|
END SUBROUTINE READ_DATA
|
|
!
|
|
END MODULE INPUT_DATA
|