Class | hadron_class |
In: |
SingletMesons_Simple_v1.3/VERYOLD/OLDS/hadron_class.F90
SingletMesons_Simple_v1.3/VERYOLD/OLD2/hadron_class.F90 SingletMesons_Simple_v1.3/hadron_class.F90 |
This contains hadron propagators with up/down(degenerate) and strange quarks.
Constant : | |
HADRON_OUTPUT_FORMAT ="(I3,2X,E24.15,2X,E24.15)" : | character(len=24), parameter |
Derived Type : | |
prop(NTT,0:NUM_BARYON_OP-1) : | complex(8) |
quark_mass(3) : | type(wilson_quark_parameter_obj) |
fname ="hpropB" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,0:NUM_BARYON_OP-1) : | complex(8) |
quark_mass(3) : | type(wilson_quark_parameter_obj) |
fname ="hpropB" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,0:NUM_BARYON_OP-1) : | complex(DP) |
quark_mass(3) : | type(qprop_params) |
fname ="hpropB" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer) |
wf_sous(3) : | type(src_wavefunc_obj) |
wf_sink(3) : | type(snk_wavefunc_obj) |
config_prof => NULL() : | type(config_profile_obj), pointer |
smear_sous(3) : | integer |
smear_sink(3) : | integer |
iout : | integer |
itraj : | integer |
Baryon propagators
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine delete_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine delete_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine delete_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine delete_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine delete_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine delete_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine delete_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine delete_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine delete_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this if (nodeid==0) close(unit=this%iout) return end subroutine
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop), intent(inout) |
u : | type(vfield_gluon_wg), intent(in) |
compute quark propagator
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Subroutine : | |
this : | type(quark_prop_obj), intent(inout) |
u : | type(gvfield_dd_wg_obj), intent(in) |
Original external subprogram is quark_prop_class#get_prop
Derived Type : | |
prop(NTT,1:NUM_MESON_OP_MOM,1:NUM_MOM) : | complex(8) |
quark_mass(2) : | type(wilson_quark_parameter_obj) |
fname ="hpropMP" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,1:NUM_MESON_OP_MOM,1:NUM_MOM) : | complex(8) |
quark_mass(2) : | type(wilson_quark_parameter_obj) |
fname ="hpropMP" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,1:NUM_MESON_OP_MOM,1:NUM_MOM) : | complex(DP) |
quark_mass(2) : | type(qprop_params) |
fname ="hpropMP" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer) |
wf_sous(2) : | type(src_wavefunc_obj) |
wf_sink(2) : | type(snk_wavefunc_obj) |
config_prof => NULL() : | type(config_profile_obj), pointer |
smear_sous(2) : | integer |
smear_sink(2) : | integer |
iout : | integer |
itraj : | integer |
Meson propagators with finite momentum
Derived Type : | |
prop(NTT,0:NUM_MESON_OP-1) : | complex(8) |
quark_mass(2) : | type(wilson_quark_parameter_obj) |
fname ="hpropM" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,0:NUM_MESON_OP-1) : | complex(8) |
quark_mass(2) : | type(wilson_quark_parameter_obj) |
fname ="hpropM" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer_obj) |
smear_sous(4) : | integer |
smear_sink(4) : | integer |
iout : | integer |
itraj : | integer |
idummy(2) : | integer |
Derived Type : | |
prop(NTT,0:NUM_MESON_OP-1) : | complex(DP) |
quark_mass(2) : | type(qprop_params) |
fname ="hpropM" : | character(len=CHARLEN) |
path : | character(len=CHARLEN) |
run_time : | type(timer) |
wf_sous(2) : | type(src_wavefunc_obj) |
wf_sink(2) : | type(snk_wavefunc_obj) |
config_prof => NULL() : | type(config_profile_obj), pointer |
smear_sous(2) : | integer |
smear_sink(2) : | integer |
iout : | integer |
itraj : | integer |
Meson propagators
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine new_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine new_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
subroutine new_baryon(this) implicit none type(baryon_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(hadrons_obj), intent(inout) |
subroutine new_hadron(this) implicit none type(hadrons_obj), intent(inout) :: this call set_momentum_table this%idummy(:)=1 return end subroutine
Subroutine : | |
this : | type(hadrons_obj), intent(inout) |
subroutine new_hadron(this) implicit none type(hadrons_obj), intent(inout) :: this call set_momentum_table this%idummy(:)=1 return end subroutine
Subroutine : | |
this : | type(hadrons_obj), intent(inout) |
subroutine new_hadron(this) implicit none type(hadrons_obj), intent(inout) :: this call set_momentum_table this%idummy(:)=1 return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine new_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine new_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
subroutine new_meson_mom(this) implicit none type(meson_mom_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine new_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine new_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
subroutine new_meson(this) implicit none type(meson_prop_obj), intent(inout) :: this complex(8), parameter :: z0=(0.0d0,0.0d0) character(len=_CHARLEN_) :: fname logical :: flag call new(this%run_time) this%prop=z0 if (nodeid==0) then do inquire(unit=io_unit,opened=flag) if (flag) then io_unit=io_unit+1 else this%iout=io_unit exit endif enddo endif call comlib_bcast(this%iout,0) write(fname,'(I6.6)')this%itraj fname=TRIM(this%path)//'/'//TRIM(this%fname)//'.'//TRIM(fname) if (nodeid==0) open(unit=this%iout,file=TRIM(fname),form='formatted',status='new') return end subroutine
Subroutine : | |
iout : | integer, intent(in) |
config_prof : | type(config_profile_obj), intent(in) |
subroutine print_config_prof(iout,config_prof) implicit none integer, intent(in):: iout type(config_profile_obj), intent(in) :: config_prof integer :: iqk if (nodeid==0) then write(iout,'("begin config")') write(iout,'(" lattice_size(x,y,z,t) = ",4I3)') config_prof%NTX, config_prof%NTY, config_prof%NTZ, config_prof%NTT write(iout,'(" PLQ = ",F24.15)') config_prof%plq write(iout,'(" config_number = ",I10)') config_prof%total_trajectory write(iout,'(" CDATE = ",A)') TRIM(config_prof%cdate) write(iout,'(" CTIME = ",A)') TRIM(config_prof%ctime) write(iout,'(" CZONE = ",A)') TRIM(config_prof%czone) write(iout,'(" COMMENT = ",A)') TRIM(config_prof%comment) write(iout,'("end config")') endif return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_baryon_prop(this,iflv) implicit none type(baryon_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,3F15.8,3X,3I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%quark_mass(3)%kappa, this%smear_sous(1), this%smear_sous(2), this%smear_sous(3) do iop=0,NUM_BARYON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_baryon_prop(this,iflv) implicit none type(baryon_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,3F15.8,3X,3I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%quark_mass(3)%kappa, this%smear_sous(1), this%smear_sous(2), this%smear_sous(3) do iop=0,NUM_BARYON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(baryon_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_baryon_prop(this,iflv) implicit none type(baryon_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,3F15.8,3X,3I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%quark_mass(3)%kappa, this%smear_sous(1), this%smear_sous(2), this%smear_sous(3) do iop=0,NUM_BARYON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_mom_prop(this,iflv) implicit none type(meson_mom_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop,imom if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=1,NUM_MESON_OP_MOM write(this%iout,'("op. ",I3," begin")')iop do imom=1,NUM_MOM write(this%iout,'("%momentum: ",I3," start")')imom do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop,imom) enddo write(this%iout,'("%momentum: ",I3," finish")')imom enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_mom_prop(this,iflv) implicit none type(meson_mom_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop,imom if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=1,NUM_MESON_OP_MOM write(this%iout,'("op. ",I3," begin")')iop do imom=1,NUM_MOM write(this%iout,'("%momentum: ",I3," start")')imom do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop,imom) enddo write(this%iout,'("%momentum: ",I3," finish")')imom enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_mom_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_mom_prop(this,iflv) implicit none type(meson_mom_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop,imom if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=1,NUM_MESON_OP_MOM write(this%iout,'("op. ",I3," begin")')iop do imom=1,NUM_MOM write(this%iout,'("%momentum: ",I3," start")')imom do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop,imom) enddo write(this%iout,'("%momentum: ",I3," finish")')imom enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_prop(this,iflv) implicit none type(meson_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=0,NUM_MESON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_prop(this,iflv) implicit none type(meson_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=0,NUM_MESON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine
Subroutine : | |
this : | type(meson_prop_obj), intent(inout) |
iflv : | integer, intent(in) |
subroutine save_meson_prop(this,iflv) implicit none type(meson_prop_obj), intent(inout) :: this integer, intent(in) :: iflv integer :: itt,iop if (nodeid==0) then write(this%iout,'(I3,2X,2F15.8,2X,2I3)')iflv, this%quark_mass(1)%kappa, this%quark_mass(2)%kappa, this%smear_sous(1), this%smear_sous(2) do iop=0,NUM_MESON_OP-1 write(this%iout,'("op. ",I3," begin")')iop do itt=1,NTT write(this%iout,'(I3,2X,E15.8,2X,E15.8)')itt-1,this%prop(itt,iop) enddo write(this%iout,'("op. ",I3," end")')iop enddo endif return end subroutine