generate_pck_file Subroutine

public subroutine generate_pck_file(filename)

Generate a PCK (JSON version) to go with the BSP file. Note: this kernel can be read by jsonspice + SpiceyPy.

Reference

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Calls

proc~~generate_pck_file~~CallsGraph proc~generate_pck_file generate_pck_file add add proc~generate_pck_file->add destroy destroy proc~generate_pck_file->destroy initialize initialize proc~generate_pck_file->initialize proc~int_to_string int_to_string proc~generate_pck_file->proc~int_to_string

Called by

proc~~generate_pck_file~~CalledByGraph proc~generate_pck_file generate_pck_file proc~halo_solver_main halo_solver_main proc~halo_solver_main->proc~generate_pck_file

Source Code

    subroutine generate_pck_file(filename)

    character(len=*),intent(in) :: filename

    type(json_file) :: json

    call json%initialize(compress_vectors=.true.)
    call json%add('+NAIF_BODY_NAME', object_name)
    call json%add('+NAIF_BODY_CODE', object_id)
    call json%add('BODY'//int_to_string(object_id)//'_RADII', [0.001_wp, 0.001_wp, 0.001_wp])
    call json%print(filename)
    call json%destroy()

    end subroutine generate_pck_file