rad2deg Function

  1. korc_ppusher.f90
  2. korc_ppusher
  3. rad2deg

public function rad2deg(x)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: x

Return Value real(kind=rp)


Called by

proc~~rad2deg~2~~CalledByGraph proc~rad2deg~2 rad2deg proc~adv_gceqn_top adv_GCeqn_top proc~adv_gceqn_top->proc~rad2deg~2 program~main main program~main->proc~adv_gceqn_top

Contents

Source Code

rad2deg

Source Code

  FUNCTION rad2deg(x)
    REAL(rp), INTENT(IN) :: x
    REAL(rp) :: rad2deg

    rad2deg = x*180.0_rp/C_PI
  END FUNCTION rad2deg