Class noisy_wavefunc_class
In: SingletMesons_Simple_v1.3/VERYOLD/OLDS/noisy_wavefunc_class.F90
SingletMesons_Simple_v1.3/VERYOLD/OLD2/noisy_wavefunc_class.F90
SingletMesons_Simple_v1.3/noisy_wavefunc_class.F90
comlib lattice_class wavefunc_class random_class error_class noisy_wavefunc_class dot/f_104.png

Methods

EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   EXP_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   LOCAL_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   POLY_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   WALL_WAV   check_corr   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   delete   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   get   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   new   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   print   read   read   read   read   read   read   read   read   read   read   read   read   read   read   read   read   read   read   read   set_noise   set_noise   set_noise   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj   wavefunc_param_obj  

Included Modules

comlib lattice_class wavefunc_class random_class error_class

Public Instance methods

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

EXP_WAV
Constant :
EXP_WAV =2 :integer, parameter

Original external subprogram is wavefunc_class#EXP_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

LOCAL_WAV
Constant :
LOCAL_WAV =1 :integer, parameter

Original external subprogram is wavefunc_class#LOCAL_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

POLY_WAV
Constant :
POLY_WAV =4 :integer, parameter

Original external subprogram is wavefunc_class#POLY_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

WALL_WAV
Constant :
WALL_WAV =3 :integer, parameter

Original external subprogram is wavefunc_class#WALL_WAV

Subroutine :
rand :type(rand_gfsr_obj), intent(inout)

check correlation of wf1 and wf2

[Source]

subroutine check_corr(rand)
!
! check correlation of wf1 and wf2
!
  implicit none
  type(rand_gfsr_obj), intent(inout) :: rand
  type(src_wavefunc_obj), allocatable :: wf(:)
  integer :: ic,is,jc,js,kc,ks
  integer :: it(2),iz(2),iy(2),ix(2)
  integer :: iput(2),ipuz(2),ipuy(2),ipux(2)
  integer :: itx(2),ity(2),itz(2),itt(2)
  integer :: isp(2),ippu(2)
  integer :: ii,ipu
  integer :: xx1,yy1,zz1,tt1
  integer :: xx2,yy2,zz2,tt2
  real(DP) :: rx,ry,rz,rt,rdist
  complex(DP) :: corr(COL,SPIN,COL,SPIN)
  complex(DP) :: ctmp(COL,SPIN,2)
  integer :: nns,ins
  nns=10*12

  node_site(:,:)=0
  node_site(1,nodeid)=ipsite(1)
  node_site(2,nodeid)=ipsite(2)
  node_site(3,nodeid)=ipsite(3)
!  node_site(4,nodeid)=ipsite(4)
  node_site(4,nodeid)=0
#ifndef _singlePU
  do ipu=0,NPU-1
    call comlib_bcast(node_site(:,ipu),ipu)
  enddo
#endif

  do tt1=1,NTT
  do zz1=1,NTZ
  do yy1=1,NTY
  do xx1=1,NTX
!  do tt2=1,NTT
!  do zz2=1,NTZ
!  do yy2=1,NTY
!  do xx2=1,NTX
    xx2=16
    yy2=9
    zz2=5
    tt2=5
    itx(1) = xx1
    ity(1) = yy1
    itz(1) = zz1
    itt(1) = tt1
    itx(2) = xx2
    ity(2) = yy2
    itz(2) = zz2
    itt(2) = tt2

    rx=MIN(IABS(itx(1)-itx(2)),IABS(itx(1)-itx(2)+NTX),IABS(itx(1)-itx(2)-NTX))
    ry=MIN(IABS(ity(1)-ity(2)),IABS(ity(1)-ity(2)+NTY),IABS(ity(1)-ity(2)-NTY))
    rz=MIN(IABS(itz(1)-itz(2)),IABS(itz(1)-itz(2)+NTZ),IABS(itz(1)-itz(2)-NTZ))
    rt=MIN(IABS(itt(1)-itt(2)),IABS(itt(1)-itt(2)+NTT),IABS(itt(1)-itt(2)-NTT))
    rdist = sqrt(real(rx**2+ry**2+rz**2+rt**2,kind=KIND(rdist)))

  do ii=1,2
    it(ii) = mod(itt(ii)-1,NT)+1
    iz(ii) = mod(itz(ii)-1,NZ)+1
    iy(ii) = mod(ity(ii)-1,NY)+1
    ix(ii) = mod(itx(ii)-1,NX)+1
    iput(ii) = (itt(ii)-1)/NT
    ipuz(ii) = (itz(ii)-1)/NZ
    ipuy(ii) = (ity(ii)-1)/NY
    ipux(ii) = (itx(ii)-1)/NX
    isp(ii) = ispace(ix(ii),iy(ii),iz(ii))
    do ipu=0,NPU-1
      if ( (node_site(1,ipu) == ipux(ii)) .and. (node_site(2,ipu) == ipuy(ii)) .and. (node_site(3,ipu) == ipuz(ii)) .and. (node_site(4,ipu) == iput(ii)) ) then
        ippu(ii) = ipu
      endif
    enddo
  enddo

  allocate(wf(nns))
  do ins=1,nns
    call new(wf(ins))
  enddo
  do ins=1,nns
    call set_noisy_wavefunc(wf(ins),rand)
  enddo

  corr = Z0
  do ins=1,nns
    do ii=1,2
      do is=1,SPIN
        do ic=1,COL
        if (nodeid==ippu(ii)) then
          ctmp(ic,is,ii) = wf(ins)%wavefunc(ic,is,isp(ii),it(ii))
        else
          ctmp(ic,is,ii) = Z0
        endif
#ifndef _singlePU
        call comlib_bcast(ctmp(ic,is,ii),ippu(ii))
#endif
      enddo
      enddo
    enddo
    corr(ic,is,jc,js) = corr(ic,is,jc,js) + ctmp(ic,is,1)*conjg(ctmp(jc,js,2))
  enddo
  deallocate(wf)

  corr = corr/nns
  if (nodeid==0) then
  write(*,'("%",8I4)')xx1,yy1,zz1,tt1, xx2,yy2,zz2,tt2
    do js=1,SPIN
    do is=1,SPIN
    do jc=1,COL
    do ic=1,COL
      if (abs(corr(ic,is,jc,js)) > 0.5_DP) write(*,'("@",8I4,4I3,2ES12.4)')xx1,yy1,zz1,tt1, xx2,yy2,zz2,tt2, ic,is,jc,js, corr
    enddo
    enddo
    enddo
    enddo
  endif

!  enddo
!  enddo
!  enddo
!  enddo
  enddo
  enddo
  enddo
  enddo

  return
end subroutine
delete( this )
Subroutine :
this :type(lattice_world), intent(inout)

Delete lattice constants, node information (next to nearest node rank etc.)

Original external subprogram is lattice_class#delete

delete( this )
Subroutine :
this :type(lattice_world), intent(inout)

Delete lattice constants, node information (next to nearest node rank etc.)

Original external subprogram is lattice_class#delete

delete( this )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)

Original external subprogram is random_class#delete

delete( this )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)

Original external subprogram is random_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

delete( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#delete

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#get

get( this, scl )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
scl :real(8), intent(inout)

Get random number scalar

generate normalized random numbers: 0 < scl < 1

 - this : rand_gfsr_obj
 -  scl : uniform random number scalar

Original external subprogram is random_class#get

get( this, scl )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
scl :real(8), intent(inout)

Get random number scalar

generate normalized random numbers: 0 < scl < 1

 - this : rand_gfsr_obj
 -  scl : uniform random number scalar

Original external subprogram is random_class#get

get( this, vec )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
vec(:) :real(8), intent(inout)

Get real random number vector

generate normalized random numbers: 0 < vec(:) < 1

 - this : rand_gfsr_obj
 -  vec : uniform random number vector

Original external subprogram is random_class#get

get( this, vec )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
vec(:) :real(8), intent(inout)

Get real random number vector

generate normalized random numbers: 0 < vec(:) < 1

 - this : rand_gfsr_obj
 -  vec : uniform random number vector

Original external subprogram is random_class#get

new( this )
Subroutine :
this :type(lattice_world), intent(inout)

Initialize lattice constants, node information (next to nearest node rank etc.)

Original external subprogram is lattice_class#new

new( this )
Subroutine :
this :type(lattice_world), intent(inout)

Initialize lattice constants, node information (next to nearest node rank etc.)

Original external subprogram is lattice_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#new

new( this, ircont, irseed, NPU, nodeid )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
ircont :integer(INT), intent(in)
irseed :integer(INT), intent(in)
NPU :integer(INT), intent(in)
nodeid :integer(INT), intent(in)

Initialization of random number

  • this : rand_gfsr_obj
  • ircont : 0 reset with irseed, 1 : restart
  • irseed : random number seed
  • NPU : parallel total node number
  • nodeid : node number

Original external subprogram is random_class#new

new( this, ircont, irseed, NPU, nodeid )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
ircont :integer(INT), intent(in)
irseed :integer(INT), intent(in)
NPU :integer(INT), intent(in)
nodeid :integer(INT), intent(in)

Initialization of random number

  • this : rand_gfsr_obj
  • ircont : 0 reset with irseed, 1 : restart
  • irseed : random number seed
  • NPU : parallel total node number
  • nodeid : node number

Original external subprogram is random_class#new

print( this )
Subroutine :
this :type(lattice_world), intent(inout)

Print out Lattice configuration (size,partition,etc...) on display

Original external subprogram is lattice_class#print

print( this )
Subroutine :
this :type(lattice_world), intent(inout)

Print out Lattice configuration (size,partition,etc...) on display

Original external subprogram is lattice_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(snk_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

print( this )
Subroutine :
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#print

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( iout, this )
Subroutine :
iout :integer, intent(in)
this :type(wavefunc_param_obj), intent(inout)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is random_class#read

read( this, iout )
Subroutine :
this :type(rand_gfsr_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is random_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

read( this, iout )
Subroutine :
this :type(src_wavefunc_obj), intent(inout)
iout :integer, intent(in)

Original external subprogram is wavefunc_class#read

Subroutine :
this :type(wavefunc_param_obj), intent(inout)
========================================================

set spin-color diluted complex Z2 noise on wavefunction

========================================================

[Source]

subroutine set_noisy_wavefunc(this)
!==============================================================
! set spin-color diluted complex Z2 noise on wavefunction
!==============================================================
  use random_class
  implicit none
  type(wavefunc_param_obj), intent(inout) :: this
  complex(8), parameter :: z0=(0.0d0,0.0d0)
  complex(8), parameter :: z1=(1.0d0,0.0d0)
  integer :: iz,iy,ix,it,ic,is,isp
  complex(8) :: ctmp
  real(8) :: vec(2),cr,ci

  this%wavefunc(:,:,:,:)=z0

  ! set spin-color diluted Z2 noise vector
  do it=1,NT
  do ix=1,NX
  do iy=1,NY
  do iz=1,NZ
    isp=ispace(ix,iy,iz)
    call get_rand3(rand,vec)
    if (vec(1) < 0.5d0) then
      cr=+1.0d0
    else
      cr=-1.0d0
    endif
    if (vec(2) < 0.5d0) then
      ci=+1.0d0
    else
      ci=-1.0d0
    endif
    ctmp=cmplx(cr,ci,kind=KIND(ctmp))/sqrt(2.0d0)
    do is=1,SPIN
    do ic=1,COL
      this%wavefunc(ic,is,isp,it)=ctmp
    enddo
    enddo
  enddo
  enddo
  enddo
  enddo

  return
end subroutine
Subroutine :
this :type(wavefunc_param_obj), intent(inout)
========================================================

set spin-color diluted complex Z2 noise on wavefunction

========================================================

[Source]

subroutine set_noisy_wavefunc(this)
!==============================================================
! set spin-color diluted complex Z2 noise on wavefunction
!==============================================================
  use random_class
  implicit none
  type(wavefunc_param_obj), intent(inout) :: this
  complex(8), parameter :: z0=(0.0d0,0.0d0)
  complex(8), parameter :: z1=(1.0d0,0.0d0)
  integer :: iz,iy,ix,it,ic,is,isp
  complex(8) :: ctmp
  real(8) :: vec(2),cr,ci

  this%wavefunc(:,:,:,:)=z0

  ! set spin-color diluted Z2 noise vector
  do it=1,NT
  do ix=1,NX
  do iy=1,NY
  do iz=1,NZ
    isp=ispace(ix,iy,iz)
    call get_rand3(rand,vec)
    if (vec(1) < 0.5d0) then
      cr=+1.0d0
    else
      cr=-1.0d0
    endif
    if (vec(2) < 0.5d0) then
      ci=+1.0d0
    else
      ci=-1.0d0
    endif
    ctmp=cmplx(cr,ci,kind=KIND(ctmp))/sqrt(2.0d0)
    do is=1,SPIN
    do ic=1,COL
      this%wavefunc(ic,is,isp,it)=ctmp
    enddo
    enddo
  enddo
  enddo
  enddo
  enddo

  return
end subroutine
Subroutine :
this :type(wavefunc_param_obj), intent(inout)
========================================================

set spin-color diluted complex Z2 noise on wavefunction

========================================================

[Source]

subroutine set_noisy_wavefunc(this)
!==============================================================
! set spin-color diluted complex Z2 noise on wavefunction
!==============================================================
  use random_class
  implicit none
  type(wavefunc_param_obj), intent(inout) :: this
  complex(8), parameter :: z0=(0.0d0,0.0d0)
  complex(8), parameter :: z1=(1.0d0,0.0d0)
  integer :: iz,iy,ix,it,ic,is,isp
  complex(8) :: ctmp
  real(8) :: vec(2),cr,ci

  this%wavefunc(:,:,:,:)=z0

  ! set spin-color diluted Z2 noise vector
  do it=1,NT
  do ix=1,NX
  do iy=1,NY
  do iz=1,NZ
    isp=ispace(ix,iy,iz)
    call get_rand3(rand,vec)
    if (vec(1) < 0.5d0) then
      cr=+1.0d0
    else
      cr=-1.0d0
    endif
    if (vec(2) < 0.5d0) then
      ci=+1.0d0
    else
      ci=-1.0d0
    endif
    ctmp=cmplx(cr,ci,kind=KIND(ctmp))/sqrt(2.0d0)
    do is=1,SPIN
    do ic=1,COL
      this%wavefunc(ic,is,isp,it)=ctmp
    enddo
    enddo
  enddo
  enddo
  enddo
  enddo

  return
end subroutine
wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
Npolsf :integer
: number of polynomial coeffciient
idummy(2) :integer
Asmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL_WAV) :real(DP)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
Npolsf :integer
: number of polynomial coeffciient
idummy(2) :integer
Asmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL_WAV) :real(DP)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
Npolsf :integer
: number of polynomial coeffciient
idummy(2) :integer
Asmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL_WAV) :real(DP)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
Npolsf :integer
: number of polynomial coeffciient
idummy(2) :integer
Asmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL_WAV) :real(DP)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
Npolsf :integer
: number of polynomial coeffciient
idummy(2) :integer
Asmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(DP)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL_WAV) :real(DP)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj

wavefunc_param_obj
Derived Type :
type :integer
: 1 for local, 2 for exponential, 3 for wall, 4 for polynomial, 5 user supplied
itx0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
ity0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itz0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
itt0 :integer
: source origin (1..NTX) (1..NTY) (1..NTZ) (1..NTT)
Npolsf :integer
: number of polynomial coeffciient
Asmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Bsmear :real(8)
: exponetial parameter, psi(r)=A*exp(-r*B)
Psmear(MAXPOL) :real(8)
: polynomial coeffcient, psi(r)= 1 - sum_(i=1,Npol) P(i)*r^i
wavefunc(COL,SPIN,NSPACE,NT) :complex(8)
: col,spin,zxy,t

quark source function parameters

Original external subprogram is wavefunc_class#wavefunc_param_obj