WebSVN – lagranto.ecmwf – Diff – /trunk/density/density.f



c     ------------------------------------------------------------------
 
      real function cosd(arg)
 
      real,intent(IN) :: arg
      real,parameter :: grad2rad=3.1415926/180.
      cosd=cos(arg*grad2rad)
      return
      end
 
      real function sind(arg)
 
      real,intent(IN) :: arg
      real,parameter :: grad2rad=3.1415926/180.
      sind=sin(arg*grad2rad)
      return
      end
 
 

Rev 15	Rev 29
Line 1787...	Line 1787...
1787	`c ------------------------------------------------------------------`	1787	`c ------------------------------------------------------------------`
1788		1788
1789	`real function cosd(arg)`	1789	`real function cosd(arg)`
1790		1790
1791	`real,intent(IN) :: arg`	1791	`real,intent(IN) :: arg`
1792	`real,parameter :: grad2rad=3.1415926/360.`	1792	`real,parameter :: grad2rad=3.1415926/180.`
1793	`cosd=cos(arg*grad2rad)`	1793	`cosd=cos(arg*grad2rad)`
1794	`return`	1794	`return`
1795	`end`	1795	`end`
1796		1796
1797	`real function sind(arg)`	1797	`real function sind(arg)`
1798		1798
1799	`real,intent(IN) :: arg`	1799	`real,intent(IN) :: arg`
1800	`real,parameter :: grad2rad=3.1415926/360.`	1800	`real,parameter :: grad2rad=3.1415926/180.`
1801	`sind=sin(arg*grad2rad)`	1801	`sind=sin(arg*grad2rad)`
1802	`return`	1802	`return`
1803	`end`	1803	`end`
1804		1804
1805		1805

Subversion Repositories lagranto.ecmwf

(root)/trunk/density/density.f – Rev 15 → 29