! A1.0 Fundamental constants
      REAL :: RPI,RCLUM,RHPLA,RKBOL,RNAVO
! A1.1 Astronomical constants
      REAL :: RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
! A1.1.bis Constantes concernant l'orbite de la Terre:
      REAL :: R_ecc, R_peri, R_incl
! A1.2 Geoide
      REAL :: RA,RG,R1SA
! A1.3 Radiation
!     REAL :: RSIGMA,RI0
      REAL :: RSIGMA
! A1.4 Thermodynamic gas phase
      REAL :: R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
      REAL :: RKAPPA,RETV
! A1.5,6 Thermodynamic liquid,solid phases
      REAL :: RCW,RCS
! A1.7 Thermodynamic transition of phase
      REAL :: RLVTT,RLSTT,RLMLT,RTT,RATM
! A1.8 Curve of saturation
      REAL :: RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
      REAL :: RALPD,RBETD,RGAMD
!
!IM  & ,R1SA ,RSIGMA,RI0,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD &
      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA &
     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA ,R_ecc, R_peri, R_incl, RA    ,RG &
     & ,R1SA ,RSIGMA,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD &
     & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM &
     & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD ,RGAMD