Skip to content

Commit

Permalink
Fix Tao command. (#942)
Browse files Browse the repository at this point in the history
* Fix Tao `python space_charge_com` command.
  • Loading branch information
DavidSagan authored May 2, 2024
1 parent 0a1f923 commit 3b8cf0c
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions tao/code/tao_python_cmd.f90
Original file line number Diff line number Diff line change
Expand Up @@ -13,9 +13,10 @@
!
! {type} is the type of the parameter and is one of:
! INT ! Integer number
! INT_ARR ! Integer array.
! REAL ! Real number
! COMPLEX ! Complex number (Re;Im)
! REAL_ARR ! Real array
! COMPLEX ! Complex number (Re;Im)
! LOGIC ! Logical: "T" or "F".
! INUM ! Integer whose allowed values can be obtained using the "python inum" command.
! ENUM ! String whose allowed values can be obtained using the "python enum" command.
Expand Down Expand Up @@ -6792,8 +6793,8 @@ subroutine tao_python_cmd (input_str)
nl=incr(nl); write(li(nl), rmt) 'lsc_sigma_cutoff;REAL;T;', space_charge_com%lsc_sigma_cutoff
nl=incr(nl); write(li(nl), rmt) 'particle_sigma_cutoff;REAL;T;', space_charge_com%particle_sigma_cutoff

nl=incr(nl); write(li(nl), imt) 'space_charge_mesh_size;INT;T;', space_charge_com%space_charge_mesh_size
nl=incr(nl); write(li(nl), imt) 'csr3d_mesh_size;INT;T;', space_charge_com%csr3d_mesh_size
nl=incr(nl); write(li(nl), '(a, 3(a, i0))') 'space_charge_mesh_size;INT_ARR;T', (';', space_charge_com%space_charge_mesh_size(j), j = 1, 3)
nl=incr(nl); write(li(nl), '(a, 3(a, i0))') 'csr3d_mesh_size;INT_ARR;T', (';', space_charge_com%csr3d_mesh_size(j), j = 1, 3)
nl=incr(nl); write(li(nl), imt) 'n_bin;INT;T;', space_charge_com%n_bin
nl=incr(nl); write(li(nl), imt) 'particle_bin_span;INT;T;', space_charge_com%particle_bin_span
nl=incr(nl); write(li(nl), imt) 'n_shield_images;INT;T;', space_charge_com%n_shield_images
Expand Down

0 comments on commit 3b8cf0c

Please sign in to comment.