particle_class Module Reference

Data Types
interface	operator(<)
interface	operator(==)
type	particle

Functions/Subroutines
logical function	less_than_particle (particle_1, particle_2)
logical function	equal_to_particle (particle_1, particle_2)
subroutine	screen_write (p, hprint)
subroutine	shift_pos (p)
subroutine	particle_print (p)
subroutine	zero_out (p)
subroutine	new_particles (P, i)
subroutine	create_mpi_particle

Variables
integer, parameter	number_of_floats = 26
integer, parameter	number_of_scalars = 5
integer	mpi_particle

Function/Subroutine Documentation

create_mpi_particle()

subroutine particle_class::create_mpi_particle

(

)

Definition at line 217 of file particle.f90.

    USE mod_par
    IMPLICIT NONE

equal_to_particle()

logical function particle_class::equal_to_particle	(	type(particle), intent(in)	particle_1,
		type(particle), intent(in)	particle_2
	)

Definition at line 120 of file particle.f90.

    type(particle), intent(in) :: particle_1
    type(particle), intent(in) :: particle_2
    logical                    :: Boolean
    boolean = particle_1%id == particle_2%id

less_than_particle()

logical function particle_class::less_than_particle	(	type(particle), intent(in)	particle_1,
		type(particle), intent(in)	particle_2
	)

Definition at line 113 of file particle.f90.

    type(particle), intent(in) :: particle_1
    type(particle), intent(in) :: particle_2
    logical                    :: Boolean
    boolean = particle_1%id < particle_2%id

new_particles()

subroutine particle_class::new_particles	(	type(particle), dimension(:), intent(inout), allocatable	P,
		integer, intent(in)	i
	)

Definition at line 200 of file particle.f90.

    implicit none
    integer, intent(in) :: i
    type(particle), allocatable, intent(inout) :: p(:)
    integer :: status, J
    
    allocate(p(i),stat=status)
    if(status/=0) CALL fatal_error("NEW_PARTICLE: COULD NOT ALLOCATE?")


    DO j=1,i
       call zero_out(p(j))
    END DO

Here is the call graph for this function:

particle_print()

subroutine particle_class::particle_print

(

type(particle), intent(in)

p

)

Definition at line 147 of file particle.f90.

    type(particle), intent(in) :: p
!    type(particle), pointer :: p
    write(ipt,*)
    write(ipt,*)'id:        ',p%id
    write(ipt,*)'processor: ',p%pid
    write(ipt,*)'element:   ',p%elem
    write(ipt,*)'group:     ',p%group
    write(ipt,*)'tbeg:      ',p%tbeg
    write(ipt,*)'tend:      ',p%tend
    write(ipt,*)'x:         ',p%x
    write(ipt,*)'xn:        ',p%xn
    write(ipt,*)'el:        ',p%el
    write(ipt,*)'h:         ',p%h
    write(ipt,*)'u:         ',p%u
    write(ipt,*)'v:         ',p%v
    write(ipt,*)'w:         ',p%w
    write(ipt,*)'zloc:      ',p%zloc
    write(ipt,*)'s:         ',p%s
    write(ipt,*)'chi1       ',p%chi(:,1)
    write(ipt,*)'chi2       ',p%chi(:,2)
    write(ipt,*)'chi3       ',p%chi(:,3)
    write(ipt,*)'chi4       ',p%chi(:,4)
    write(ipt,*)'deltat     ',p%deltat   
    write(ipt,*)'pathlength ',p%pathlength

Here is the caller graph for this function:

screen_write()

subroutine particle_class::screen_write	(	type(particle), intent(in)	p,
		logical, intent(in)	hprint
	)

Definition at line 127 of file particle.f90.

    type(particle), intent(in) :: p
    logical,        intent(in) :: hprint
    if(hprint)then
      write(ipt,*)'id   group    x           y         z      elem pid'
    endif
    write(ipt,'(2I5,3F10.2,I8,2I5)')p%id,p%group,p%x,p%elem,p%pid

Here is the caller graph for this function:

shift_pos()

subroutine particle_class::shift_pos

(

type(particle), intent(inout)

p

)

Definition at line 136 of file particle.f90.

    type(particle), intent(inout) :: p
    p%xn = p%x

Here is the caller graph for this function:

zero_out()

subroutine particle_class::zero_out

(

type(particle), intent(inout)

p

)

Definition at line 175 of file particle.f90.

    implicit none
    type(particle), intent(inout) :: p

    ! SET VALUES
    p%id     = 0
    p%pid    = 0 
    p%group  = 0
    p%elem   = 0
    p%tbeg   = zerotime
    p%tend   = zerotime
    p%x      = 0.0_sp  
    p%xn     = 0.0_sp  
    p%el     = 0.0_sp 
    p%u      = 0.0_sp 
    p%v      = 0.0_sp 
    p%w      = 0.0_sp 
    p%zloc   = 0.0_sp 
    p%s      = 0.0_sp 
    p%chi    = 0.0_sp 
    p%deltat = 0.0
    p%pathlength = 0.0
    p%found  = .false.

Here is the caller graph for this function:

Variable Documentation

mpi_particle

integer particle_class::mpi_particle

Definition at line 103 of file particle.f90.

  INTEGER MPI_PARTICLE

number_of_floats

integer, parameter particle_class::number_of_floats = 26

Definition at line 55 of file particle.f90.

  integer, parameter :: number_of_floats = 26

number_of_scalars

integer, parameter particle_class::number_of_scalars = 5

Definition at line 56 of file particle.f90.

  integer, parameter :: number_of_scalars = 5