deg2rad Function

  1. korc_ppusher.f90
  2. korc_ppusher
  3. deg2rad

public function deg2rad(x)

Arguments

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

Return Value real(kind=rp)


Called by

proc~~deg2rad~4~~CalledByGraph proc~deg2rad~4 deg2rad proc~gc_init GC_init proc~gc_init->proc~deg2rad~4 program~main main program~main->proc~gc_init

Contents

Source Code

deg2rad

Source Code

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

    deg2rad = C_PI*x/180.0_rp
  END FUNCTION deg2rad