m_rdinput.f90

Go to the documentation of this file.
00001 module m_rdinput 
00002 implicit none
00003 private
00004 public::read_input 
00005 !--
00006 integer,public::calc_ifreq!    
00007 integer,public::ix_intJ_min!
00008 integer,public::ix_intJ_max!
00009 integer,public::iy_intJ_min!
00010 integer,public::iy_intJ_max!
00011 integer,public::iz_intJ_min!
00012 integer,public::iz_intJ_max!
00013 !real(8),public::wcut_model!Cutoff of U' for model 
00014 !real(8),public::jcut_model!Cutoff of J  for model 
00015 namelist/param_calc_int/calc_ifreq,ix_intJ_min,ix_intJ_max,iy_intJ_min,iy_intJ_max,&
00016 iz_intJ_min,iz_intJ_max!,wcut_model,jcut_model   
00017 contains
00018 subroutine read_input 
00019 !--
00020 !default
00021 CALC_IFREQ=1!omega=0
00022 IX_INTJ_MIN=0
00023 IX_INTJ_MAX=0
00024 IY_INTJ_MIN=0
00025 IY_INTJ_MAX=0
00026 IZ_INTJ_MIN=0
00027 IZ_INTJ_MAX=0 
00028 !WCUT_MVMC=2.0d0!eV
00029 !JCUT_MVMC=0.3d0!eV   
00030 !--
00031 !open(999,file='input.in')
00032 !read(999,nml=param_calc_int)
00033 read(5,nml=param_calc_int)
00034 write(6,param_calc_int) 
00035 end subroutine
00036 end module