単位の変換

  real, parameter :: d2r=3.14159265358979/180.0  ! degree to radian (SINGLE precision)

  real(8), parameter :: d2r= 3.14159265358979323846D0)/180.0d0  ! degree to radian (DOUBLE PRECISION)

      parameter(d2r=3.14159265358979323846/180.0)

      real*8 d2r

      parameter(d2r=3.14159265358979323846D0/180.0D0)

real,parameter::r2d=180.0/3.14159265358979323846

real(8),parameter :: r2d=180.0D0/3.14159265358979323846D0

      parameter(r2d=180.0/3.14159265358979323846)

      real*8 r2d

      parameter(r2d=180.0D0/3.14159265358979323846D0)