DATA ANAME(1 ),ACON(1 ) / 'CP              ', CPD    /

       DATA ANAME(2 ),ACON(2 ) / 'RGAS            ', RGAS   /

       DATA ANAME(3 ),ACON(3 ) / 'KAPPA           ', RKAP   /

       DATA ANAME(4 ),ACON(4 ) / 'LATENT HEAT COND', ALHL   /

       DATA ANAME(5 ),ACON(5 ) / 'GRAVITY         ', GRAV   /

       DATA ANAME(6 ),ACON(6 ) / 'STEFAN-BOLTZMAN ', STFBOL /

       DATA ANAME(7 ),ACON(7 ) / 'VON KARMAN      ', VKRM   /

       DATA ANAME(8 ),ACON(8 ) / 'EARTH RADIUS    ', AE     /

       DATA ANAME(9 ),ACON(9 ) / 'OBLIQUITY       ', OB     /

       DATA ANAME(10),ACON(10) / 'ECCENTRICITY    ', ECC    /

       DATA ANAME(11),ACON(11) / 'PERIHELION      ', PERHDEG/

       DATA ANAME(12),ACON(12) / 'VERNAL EQUINOX  ', EQNX   /

       DATA ANAME(13),ACON(13) / 'SUMMER SOLSTICE ', SOLS   /

       DATA ANAME(14),ACON(14) / 'MAX VECT LENGTH ', VECMAX /

       DATA ANAME(15),ACON(15) / 'MOL WT H2O      ', H2OMW  /

       DATA ANAME(16),ACON(16) / 'MOL WT AIR      ', AIRMW  /

       DATA ANAME(17),ACON(17) / 'CPV             ', CPV    /

       DATA ANAME(18),ACON(18) / 'CPD             ', CPD    /

       DATA ANAME(19),ACON(19) / 'UNIV GAS CONST  ', RUNIV  /

       DATA ANAME(20),ACON(20) / 'LATENT HEAT SBLM', ALHS   /

       DATA ANAME(21),ACON(21) / 'FREEZING-POINT  ', TICE   /

       DATA ANAME(23),ACON(23) / 'CALTOJ          ', CALTOJ /

       DATA ANAME(24),ACON(24) / 'EPS             ', EPS    /

       DATA ANAME(25),ACON(25) / 'HEATW           ', HEATW  /

       DATA ANAME(26),ACON(26) / 'EPSFAC          ', EPSFAC /

       DATA ANAME(27),ACON(27) / 'VIRTCON         ', VIRTCON/

       DATA ANAME(28),ACON(28) / 'PIMEAN          ', PIMEAN /

       DATA ANAME(29),ACON(29) / 'SDAY            ', SDAY   /

       DATA ANAME(30),ACON(30) / 'HEATI           ', HEATI  /

       DATA ANAME(31),ACON(31) / 'S0              ', S0     /

       DATA ANAME(32),ACON(32) / 'PSTD            ', PSTD   /

       DATA ANAME(33),ACON(33) / 'TSTD            ', TSTD   /

       DATA ANAME(34),ACON(34) / 'SSALB           ', SSALB  /

       DATA ANAME(35),ACON(35) / 'UNDEF           ', UNDEF  /

       DATA ANAME(36),ACON(36) / 'CO2             ', CO2    /

       DATA ANAME(37),ACON(37) / 'RVAP            ', RVAP   /

       DATA ANAME(38),ACON(38) / 'CFC11           ', CFC11  /

       DATA ANAME(39),ACON(39) / 'CFC12           ', CFC12  /

       DATA ANAME(40),ACON(40) / 'CFC22           ', CFC22  /

       DATA ANAME(41),ACON(41) / 'DEG2RAD         ', DEG2RAD /

       DATA ANAME(42),ACON(42) / 'ATMPOPA         ', ATMPOPA/

       DATA ANAME(43),ACON(43) / 'PI              ', PI     /

       DATA ANAME(44),ACON(44) / 'YRLEN           ', YRLEN  /

       DATA ANAME(45),ACON(45) / 'DAYSCY          ',DAYSCY  /

       DATA ANAME(46),ACON(46) / 'OBLDEG          ',OBLDEG  /

      IF(NAME.EQ.ANAME(I)) THEN

      CHARACTER*16 ANAME(MAXCON)