Class | config_profile_class |
In: |
SingletMesons_Simple_v1.5/config_profile_class.F90
|
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
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) |
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) |
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) |
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) |
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) |
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