(file) Return to cons_param.f90 CVS log (file) (dir) Up to [Development] / JSOC / proj / vfisv / apps

File: [Development] / JSOC / proj / vfisv / apps / cons_param.f90 (download)
Revision: 1.5, Tue Apr 10 21:16:19 2012 UTC (11 years, 1 month ago) by keiji
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, HEAD
Changes since 1.4: +0 -0 lines
*** empty log message ***

MODULE CONS_PARAM
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  INTEGER,          PARAMETER  :: DP = KIND(1.D0)
  INTEGER,          PARAMETER  :: SP = KIND(1.)
  REAL(DP),   PARAMETER :: DPI = 3.141592653589793238462643
  REAL(DP),   PARAMETER :: D2R = 3.141592653589793238462643/180D0 ! deg -> rad
  REAL(DP),   PARAMETER :: LIGHT = 2.99792458E+10  ! Speed of light (cm/s)
END MODULE CONS_PARAM
!CVSVERSIONINFO "$Id: cons_param.f90,v 1.5 2012/04/10 22:16:19 keiji Exp $"

Karen Tian
Powered by
ViewCVS 0.9.4