Class config_profile_class
In: SingletMesons_Simple_v1.5/config_profile_class.F90
lattice_class config_profile_class dot/f_25.png

Methods

config_profile_obj   copy   delete   new   print   read   save  

Included Modules

lattice_class

Public Instance methods

config_profile_obj
Derived Type :
NTX :integer
NTY :integer
NTZ :integer
NTT :integer
NDIMX :integer
NDIMY :integer
NDIMZ :integer
ipsite(NDIM-1) :integer
nodeid :integer
random_number_seed :integer
total_trajectory :integer
cdate :character(len=CHARLEN)
ctime :character(len=CHARLEN)
czone :character(len=CHARLEN)
comment :character(len=CHARLEN)
plq :real(DP)
Subroutine :
this :type(config_profile_obj), intent(inout)
that :type(config_profile_obj), intent(inout)

copy data : that <= this

[Source]

subroutine copy_config_prof(this,that)
! copy data : that <= this
  implicit none
  type(config_profile_obj), intent(inout) :: this
  type(config_profile_obj), intent(inout) :: that

  that%NTX=this%NTX
  that%NTY=this%NTY
  that%NTZ=this%NTZ
  that%NTT=this%NTT
  that%NDIMX=this%NDIMX
  that%NDIMY=this%NDIMY
  that%NDIMZ=this%NDIMZ
  that%nodeid=this%nodeid
  that%ipsite(:)=this%ipsite(:)
  that%plq=this%plq
  that%cdate=this%cdate
  that%ctime=this%ctime
  that%czone=this%czone
  that%comment=this%comment
  that%random_number_seed=this%random_number_seed
  that%total_trajectory=this%total_trajectory
  
  return
end subroutine
Subroutine :
this :type(config_profile_obj), intent(inout)

[Source]

subroutine delete_config_prof(this)
  use lattice_class
  implicit none
  type(config_profile_obj), intent(inout) :: this
  return
end subroutine
Subroutine :
this :type(config_profile_obj), intent(inout)

[Source]

subroutine new_config_prof(this)
  use lattice_class
  implicit none
  type(config_profile_obj), intent(inout) :: this

  this%NTT = NTT
  this%NTZ = NTZ
  this%NTY = NTY
  this%NTX = NTX

  this%NDIMZ = NDIMZ
  this%NDIMY = NDIMY
  this%NDIMX = NDIMX

  this%nodeid   = nodeid
  this%ipsite(:)= ipsite(:)

  this%comment = REPEAT(' ',LEN(this%comment))
  this%cdate   = REPEAT(' ',LEN(this%cdate))
  this%ctime   = REPEAT(' ',LEN(this%ctime))
  this%czone   = REPEAT(' ',LEN(this%czone))

  return
end subroutine
Subroutine :
this :type(config_profile_obj), intent(in)

[Source]

subroutine print_config_prof(this)
  use lattice_class
  implicit none
  type(config_profile_obj), intent(in) :: this

  if (nodeid == 0) then
    write(*,'("      NTX, NTY, NTZ, NTT =",4I3)') this%NTX,   this%NTY,   this%NTZ, this%NTT
    write(*,'("     NDIMX, NDIMY, NDIMZ =",3I3)') this%NDIMX, this%NDIMY, this%NDIMZ
    write(*,'("                  NODEID =",I4)') this%nodeid
    write(*,'("      IPX, IPY, IPZ, IPT =",4I4)') this%ipsite(1), this%ipsite(2), this%ipsite(3)
    write(*,'("                     plq =",F20.16)') this%plq
    write(*,'("                   cdate =",A)') TRIM(this%cdate)
    write(*,'("                   ctime =",A)') TRIM(this%ctime)
    write(*,'("                   czone =",A)') TRIM(this%czone)
    write(*,'("                 comment =",A)') TRIM(this%comment)
    write(*,'("      random_number_seed =",I10)') this%random_number_seed
    write(*,'("        total_trajectory =",I10)') this%total_trajectory
  endif

  return
end subroutine
Subroutine :
this :type(config_profile_obj), intent(inout)
iout :integer, intent(in)

[Source]

subroutine read_config_prof(this,iout)
  implicit none
  type(config_profile_obj), intent(inout) :: this
  integer,                  intent(in)    :: iout

  read(iout) this%NTX,this%NTY,this%NTZ,this%NTT
  read(iout) this%NDIMX,this%NDIMY,this%NDIMZ
  read(iout) this%plq

!  read(iout) this%nodeid
!  read(iout) this%ipsite(1),this%ipsite(2),this%ipsite(3)
!  read(iout) this%cdate
!  read(iout) this%ctime
!  read(iout) this%czone
!  read(iout) this%comment
!  read(iout) this%random_number_seed
!  read(iout) this%total_trajectory

  return
end subroutine
Subroutine :
this :type(config_profile_obj), intent(inout)
iout :integer, intent(in)

[Source]

subroutine save_config_prof(this,iout)
  implicit none
  type(config_profile_obj), intent(inout) :: this
  integer,                  intent(in)    :: iout
  character(len=CHARLEN) :: cdate,ctime,czone

  call DATE_AND_TIME(DATE=cdate,TIME=ctime,ZONE=czone)
  this%cdate = TRIM(ADJUSTL(cdate))
  this%ctime = TRIM(ADJUSTL(cdate))
  this%czone = TRIM(ADJUSTL(czone))

  write(iout) this%NTX,this%NTY,this%NTZ,this%NTT
  write(iout) this%NDIMX,this%NDIMY,this%NDIMZ
  write(iout) this%plq

!  write(iout) this%nodeid
!  write(iout) this%ipsite(1),this%ipsite(2),this%ipsite(3)
!  write(iout) this%plq
!  write(iout) this%cdate
!  write(iout) this%ctime
!  write(iout) this%czone
!  write(iout) this%comment
!  write(iout) this%random_number_seed
!  write(iout) this%total_trajectory
  
  return
end subroutine