gvec_to_gene_coords_c Subroutine

public subroutine gvec_to_gene_coords_c(nthet, nzeta, spos_in, theta_star_in, zeta_in, theta_out, cart_coords) bind(c,name='gvec_to_gene_coords')

Arguments

Type IntentOptional Attributes Name
integer(kind=C_INT), value :: nthet
integer(kind=C_INT), value :: nzeta
real(kind=CWP), value :: spos_in
real(kind=CWP), intent(in), dimension(nthet,nzeta) :: theta_star_in
real(kind=CWP), intent(in), dimension(nthet,nzeta) :: zeta_in
real(kind=CWP), intent(out) :: theta_out(nthet,nzeta)
real(kind=CWP), intent(out) :: cart_coords(3,nthet,nzeta)

Calls

proc~~gvec_to_gene_coords_c~~CallsGraph proc~gvec_to_gene_coords_c gvec_to_gene_coords_c gvec_to_gene_coords gvec_to_gene_coords proc~gvec_to_gene_coords_c->gvec_to_gene_coords

Source Code

  subroutine gvec_to_gene_coords_c( &
       nthet, nzeta, spos_in, theta_star_in, &
       zeta_in, theta_out, cart_coords) &
       bind(c,name='gvec_to_gene_coords')
    integer(kind=C_INT), value :: nthet, nzeta
    real(kind=CWP), value :: spos_in
    real(kind=CWP), dimension(nthet,nzeta), intent(in) :: theta_star_in, zeta_in
    real(kind=CWP), intent(out) :: theta_out(nthet,nzeta)
    real(kind=CWP), intent(out) :: cart_coords(3,nthet,nzeta)

    call gvec_to_gene_coords( &
         nthet, nzeta, &
         spos_in, theta_star_in, zeta_in, &
         theta_out, cart_coords)

  end subroutine gvec_to_gene_coords_c