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
lattice_class timer_class comlib quark_prop_class wilson_quark_parameter_class error_class field_gauge_class config_profile_class wavefunc_class fftw3_class quark_clover_class quark_wilson_class hadron_class dot/f_102.png

This contains hadron propagators with up/down(degenerate) and strange quarks.

Methods

Included Modules

lattice_class timer_class comlib quark_prop_class wilson_quark_parameter_class error_class field_gauge_class config_profile_class wavefunc_class fftw3_class quark_clover_class quark_wilson_class

Public Instance methods

HADRON_OUTPUT_FORMAT
Constant :
HADRON_OUTPUT_FORMAT ="(I3,2X,E24.15,2X,E24.15)" :character(len=24), parameter
NUM_BARYON_OP
Constant :
NUM_BARYON_OP =NUM_DELTA_BARYON*2+4*NUM_OCTET_BARYON :integer, parameter
NUM_BARYON_OP
Constant :
NUM_BARYON_OP =NUM_DELTA_BARYON*2+4*NUM_OCTET_BARYON :integer, parameter
NUM_BARYON_OP
Constant :
NUM_BARYON_OP =NUM_DELTA_BARYON*2+4*NUM_OCTET_BARYON :integer, parameter
NUM_DELTA_BARYON
Constant :
NUM_DELTA_BARYON =4 :integer, parameter
NUM_DELTA_BARYON
Constant :
NUM_DELTA_BARYON =4 :integer, parameter
NUM_DELTA_BARYON
Constant :
NUM_DELTA_BARYON =4 :integer, parameter
NUM_MESON_OP
Constant :
NUM_MESON_OP =16+2+9+3 :integer, parameter
NUM_MESON_OP
Constant :
NUM_MESON_OP =16+2+9+3 :integer, parameter
NUM_MESON_OP
Constant :
NUM_MESON_OP =16+2+9+3 :integer, parameter
NUM_MESON_OP_LOCAL
Constant :
NUM_MESON_OP_LOCAL =18 :integer, parameter
NUM_MESON_OP_LOCAL
Constant :
NUM_MESON_OP_LOCAL =18 :integer, parameter
NUM_MESON_OP_LOCAL
Constant :
NUM_MESON_OP_LOCAL =18 :integer, parameter
NUM_MESON_OP_MOM
Constant :
NUM_MESON_OP_MOM =4 :integer, parameter
NUM_MESON_OP_MOM
Constant :
NUM_MESON_OP_MOM =4 :integer, parameter
NUM_MESON_OP_MOM
Constant :
NUM_MESON_OP_MOM =4 :integer, parameter
NUM_MOM
Constant :
NUM_MOM =19 :integer, parameter
NUM_MOM
Constant :
NUM_MOM =19 :integer, parameter
NUM_MOM
Constant :
NUM_MOM =19 :integer, parameter
NUM_OCTET_BARYON
Constant :
NUM_OCTET_BARYON =2 :integer, parameter
NUM_OCTET_BARYON
Constant :
NUM_OCTET_BARYON =2 :integer, parameter
NUM_OCTET_BARYON
Constant :
NUM_OCTET_BARYON =2 :integer, parameter
baryon_prop_obj
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
baryon_prop_obj
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
baryon_prop_obj
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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

subroutine delete_meson(this)
  implicit none
  type(meson_prop_obj), intent(inout) :: this

  if (nodeid==0) close(unit=this%iout)

  return
end subroutine
get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

get_prop( this, u )
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

hadrons_obj
Derived Type :
idummy(4) :integer
hadrons_obj
Derived Type :
idummy(4) :integer
hadrons_obj
Derived Type :
idummy(4) :integer
meson_mom_prop_obj
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
meson_mom_prop_obj
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
meson_mom_prop_obj
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

meson_prop_obj
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
meson_prop_obj
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
meson_prop_obj
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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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)

[Source]

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