append_to_snapshot Subroutine

public subroutine append_to_snapshot(myparticle, mypayload)

Arguments

Type IntentOptional Attributes Name
type(particle_t), intent(in) :: myparticle
double precision :: mypayload(1:npayload)

Called by

proc~~append_to_snapshot~~CalledByGraph proc~append_to_snapshot append_to_snapshot proc~write_particles_snapshot write_particles_snapshot proc~write_particles_snapshot->proc~append_to_snapshot proc~saveamrfile saveamrfile proc~saveamrfile->proc~write_particles_snapshot proc~timeintegration timeintegration proc~timeintegration->proc~saveamrfile proc~main main proc~main->proc~timeintegration program~agile agile program~agile->proc~main

Source Code

  subroutine append_to_snapshot(myparticle,mypayload)

    type(particle_t),intent(in) :: myparticle
    double precision :: mypayload(1:npayload)

    write(unitparticles) myparticle%index
    write(unitparticles) myparticle%follow
    write(unitparticles) myparticle%q
    write(unitparticles) myparticle%m
    write(unitparticles) myparticle%time
    write(unitparticles) myparticle%dt
    write(unitparticles) myparticle%x
    write(unitparticles) myparticle%u
    write(unitparticles) mypayload(1:npayload)

  end subroutine append_to_snapshot