Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/92 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2026-Sep-12
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/AJ/153/92 Late-Type Extension to MoVeRS (LaTE-MoVeRS) (Theissen+, 2017)
*================================================================================
*The Late-Type Extension to MoVeRS (LaTE-MoVeRS): Proper Motion Verified Low-mass
*Stars and Brown Dwarfs from SDSS, 2MASS, and WISE.
* Theissen C.A., West A.A., Shippee S., Burgasser A.J., Schmidt S.J.
* <Astron. J. 153, 92 (2017)>
* =2017AJ....153...92T (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lmovers.dat' ! Astrometry for 46463 low-mass stars & BDs
integer*4 nr__
parameter (nr__=46463) ! Number of records
character*912 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*8 objID (nr__) ! SDSS DR8 Object ID (SDSS_OBJID)
real*8 RAdeg (nr__) ! (deg) SDSS Right ascension (J2000.0) (SDSS_RA)
real*8 DEdeg (nr__) ! (deg) SDSS Declination (J2000.0) (SDSS_DEC)
real*4 e_RAdeg (nr__) ! (deg) SDSS Right ascension error (J2000.0)
* (SDSS_RAERR)
real*4 e_DEdeg (nr__) ! (deg) SDSS Declination error (J2000.0) (SDSS_DECERR)
integer*4 MJD (nr__) ! (d) SDSS Modified Julian Date (SDSS_MJD)
real*8 umag (nr__) ! (mag) SDSS u-band PSF magnitude (UMAG)
real*8 e_umag (nr__) ! (mag) SDSS u-band PSF magnitude error (UMAG_ERR)
real*8 Au (nr__) ! (mag) SDSS u-band PSF extinction (A_U)
real*8 umag0 (nr__) ! (mag) SDSS u-band PSF unredenned magnitude
* (UMAG_UNRED)
real*8 gmag (nr__) ! (mag) SDSS g-band PSF magnitude (GMAG)
real*8 e_gmag (nr__) ! (mag) SDSS g-band PSF magnitude error (GMAG_ERR)
real*8 Ag (nr__) ! (mag) SDSS g-band PSF extinction (A_G)
real*8 gmag0 (nr__) ! (mag) SDSS g-band PSF unredenned magnitude
* (GMAG_UNRED)
real*8 rmag (nr__) ! (mag) SDSS r-band PSF magnitude (RMAG)
real*8 e_rmag (nr__) ! (mag) SDSS r-band PSF magnitude error (RMAG_ERR)
real*8 Ar (nr__) ! (mag) SDSS r-band PSF extinction (A_R)
real*8 rmag0 (nr__) ! (mag) SDSS r-band PSF unredenned magnitude
* (RMAG_UNRED)
real*8 imag (nr__) ! (mag) SDSS i-band PSF magnitude (IMAG)
real*8 e_imag (nr__) ! (mag) SDSS i-band PSF magnitude error (IMAG_ERR)
real*8 Ai (nr__) ! (mag) SDSS i-band PSF extinction (A_I)
real*8 imag0 (nr__) ! (mag) SDSS i-band PSF unredenned magnitude
* (IMAG_UNRED)
real*8 zmag (nr__) ! (mag) SDSS z-band PSF magnitude (ZMAG)
real*8 e_zmag (nr__) ! (mag) SDSS z-band PSF magnitude error (ZMAG_ERR)
real*8 Az (nr__) ! (mag) SDSS z-band PSF extinction (A_Z)
real*8 zmag0 (nr__) ! (mag) SDSS z-band PSF unredenned magnitude
* (ZMAG_UNRED)
real*8 RA2deg (nr__) ! (deg) 2MASS Right ascension (J2000.0) (2MASS_RA)
real*8 DE2deg (nr__) ! (deg) 2MASS Declination (J2000.0) 2MASS_DEC)
real*8 e_RA2deg (nr__) ! (deg) 2MASS Right ascension error (J2000.0)
* (2MASS_RAERR)
real*8 e_DE2deg (nr__) ! (deg) 2MASS Declination error (J2000.0)
* (2MASS_DECERR)
real*8 MJD2 (nr__) ! (d) 2MASS modified Julian date (2MASS_MJD)
character*3 Q2 (nr__) ! 2MASS photometric quality flag (2MASS_PH_QUAL)
character*3 f2r (nr__) ! 2MASS read flag (2MASS_RD_FLG)
character*3 f2b (nr__) ! 2MASS blend flag (2MASS_BL_FLG)
character*3 f2c (nr__) ! 2MASS contamination and confusion flag
* (2MASS_CC_FLG)
integer*4 f2e (nr__) ! [0/2] 2MASS extended source contamination flag
* (2MASS_GAL_CONTAM)
real*4 Jmag (nr__) ! (mag) 2MASS J-band PSF magnitude (JMAG)
real*8 e_Jmag (nr__) ! (mag) ?=-9999 2MASS J-band PSF corrected magnitude
* uncertainty (JMAG_ERR)
real*8 s_Jmag (nr__) ! (mag) ?=-9999 2MASS J-band PSF total magnitude
* uncertainty (JMAG_ERRTOT)
real*8 JSNR (nr__) ! [2.6/10905.1]?=-9999 2MASS J-band SNR (JSNR)
real*8 AJ (nr__) ! (mag) 2MASS J-band PSF extinction (A_J)
real*4 Jmag0 (nr__) ! (mag) 2MASS J-band PSF unredenned magnitude
* (JMAG_UNRED)
real*4 Hmag (nr__) ! (mag) 2MASS H-band PSF magnitude (HMAG)
real*8 e_Hmag (nr__) ! (mag) ?=-9999 2MASS H-band PSF corrected magnitude
* uncertainty (HMAG_ERR)
real*8 s_Hmag (nr__) ! (mag) ?=-9999 2MASS H-band PSF total magnitude
* uncertainty (HMAG_ERRTOT)
real*8 HSNR (nr__) ! [2.4/21632.7]?=-9999 2MASS H-band SNR (HSNR)
real*8 AH (nr__) ! (mag) 2MASS H-band PSF extinction (A_H)
real*4 Hmag0 (nr__) ! (mag) 2MASS H-band PSF unredenned magnitude
* (HMAG_UNRED)
real*4 Kmag (nr__) ! (mag) 2MASS K-band PSF magnitude (KMAG)
real*8 e_Kmag (nr__) ! (mag) ?=-9999 2MASS K-band PSF corrected magnitude
* uncertainty (KMAG_ERR)
real*8 s_Kmag (nr__) ! (mag) ?=-9999 2MASS K-band PSF total magnitude
* uncertainty (KMAG_ERRTOT)
real*8 KSNR (nr__) ! [2.1/27594.3]?=-9999 2MASS K-band SNR (KSNR)
real*8 AK (nr__) ! (mag) 2MASS K-band PSF extinction (A_K)
real*4 Kmag0 (nr__) ! (mag) 2MASS K-band PSF unredenned magnitude
* (KMAG_UNRED)
real*8 Jchi (nr__) ! ?=-9999 2MASS J-band chi2 PSF fit (J_PSFCHI)
real*8 Hchi (nr__) ! ?=-9999 2MASS H-band chi2 PSF fit (H_PSFCHI)
real*8 Kchi (nr__) ! ?=-9999 2MASS K-band chi2 PSF fit (K_PSFCHI)
real*8 RAWdeg (nr__) ! (deg) WISE Right ascension (J2000.0) (WISE_RA)
real*8 DEWdeg (nr__) ! (deg) WISE Declination (J2000.0) (WISE_DEC)
real*8 e_RAWdeg (nr__) ! (deg) WISE Right ascension error (J2000.0)
* (WISE_RAERR)
real*8 e_DEWdeg (nr__) ! (deg) WISE Declination error (J2000.0) (WISE_DECERR)
character*4 fWcc (nr__) ! WISE contamination and confusion flag
* (WISE_CC_FLG)
integer*4 fWe (nr__) ! WISE extended source flag (WISE_EXT_FLG)
character*4 fWv (nr__) ! WISE variability flag (WISE_VAR_FLG)
character*4 QW (nr__) ! WISE photometric quality flag (WISE_PH_QUAL)
real*8 MJDW (nr__) ! (d) WISE W1-band average modified Julian Date
* (W1MJDMEAN)
real*8 e_MJDW (nr__) ! (d) WISE MJD uncertainty (W1MJDSIG) (1)
real*4 W1mag (nr__) ! (mag) WISE W1-band PSF magnitude (W1MPRO)
real*8 e_W1mag (nr__) ! (mag) ?=-9999 WISE W1-band PSF magnitude error
* (W1SIGMPRO)
real*8 W1SNR (nr__) ! [1.7/51.8]?=-9999 WISE W1-band SNR (W1SNR)
real*8 AW1 (nr__) ! (mag) WISE W1-band PSF extinction (A_W1)
real*4 W1mag0 (nr__) ! (mag) WISE W1-band PSF unredenned magnitude
* (W1MPRO_UNRED)
real*8 W1chi (nr__) ! [0.08/61.91] WISE W1 reduced chi2 PSF fit
* (W1RCHI2)
real*4 W2mag (nr__) ! (mag) WISE W2-band PSF magnitude (W2MPRO)
real*8 e_W2mag (nr__) ! (mag) ?=-9999 WISE W2-band PSF magnitude error
* (W2SIGMPRO)
real*4 W2SNR (nr__) ! [-0.4/57.2] WISE W2-band SNR (W2SNR)
real*8 AW2 (nr__) ! (mag) WISE W2-band PSF extinction (A_W2)
real*4 W2mag0 (nr__) ! (mag) WISE W2-band PSF unredenned magnitude
* (W2MPRO_UNRED)
real*8 W2chi (nr__) ! [0.19/33.1] WISE W2 reduced chi2 PSF fit
* (W2RCHI2)
real*8 W3mag (nr__) ! (mag) ?=-9999 WISE W3-band PSF magnitude (W3MPRO)
real*8 e_W3mag (nr__) ! (mag) ?=-9999 WISE W3-band PSF magnitude error
* (W3SIGMPRO)
real*8 W3SNR (nr__) ! [-14/83.4]?=-9999 WISE W3-band SNR (W3SNR)
real*8 AW3 (nr__) ! (mag) WISE W3-band PSF extinction (A_W3)
real*8 W3mag0 (nr__) ! (mag) ?=-9999 WISE W3-band PSF unredenned magnitude
* (W3MPRO_UNRED)
real*8 W3chi (nr__) ! [0.5/3630]?=-9999 WISE W3 reduced chi2 PSF fit
* (W3RCHI2)
real*8 W4mag (nr__) ! (mag) ?=-9999 WISE W4-band PSF magnitude (W4MPRO)
real*8 e_W4mag (nr__) ! (mag) ?=-9999 WISE W4-band PSF magnitude error
* (W4SIGMPRO)
real*8 W4SNR (nr__) ! [-4.4/54.8]?=-9999 WISE W4-band SNR (W4SNR)
real*8 AW4 (nr__) ! (mag) WISE W4-band PSF extinction (A_W4)
real*8 W4mag0 (nr__) ! (mag) ?=-9999 WISE W4-band PSF unredenned magnitude
* (W4MPRO_UNRED)
real*8 W4chi (nr__) ! [0.5/2459]?=-9999 WISE W4 reduced chi2 PSF fit
* (W4RCHI2)
real*8 pmRA (nr__) ! (mas/yr) Proper motion in RA (proper units, i.e.
* pmRA*cos(DE) (PMRA)
real*8 pmDE (nr__) ! (mas/yr) Proper motion in DE (PMDEC)
real*8 i_pmRA (nr__) ! (mas/yr) Intrinsic error in proper motion in RA
* (PMRA_INTERR)
real*8 i_pmDE (nr__) ! (mas/yr) Intrinsic error in proper motion in DE
* (PMDEC_INTERR)
real*8 pmRAf (nr__) ! (mas/yr) [0/325] Fit error in proper motion in RA
* (PMRA_FITERR)
real*8 pmDEf (nr__) ! (mas/yr) [0/404] Fit error in proper motion in DE
* (PMDEC_FITERR)
real*8 e_pmRA (nr__) ! (mas/yr) Combined error in proper motion in RA
* (PMRA_TOTERR)
real*8 e_pmDE (nr__) ! (mas/yr) Combined error in proper motion in DE
* (PMDEC_TOTERR)
real*8 Dt (nr__) ! (yr) Time baseline used to compute proper motion
* (BASELINE)
real*8 dWS (nr__) ! (arcsec) Total distance between WISE position and
* SDSS position (WS_DIST)
real*8 Dist (nr__) ! (pc) Photometric parallax distance (DISTANCE) (2)
real*8 e_Dist (nr__) ! (pc) Photometric parallax distance uncertainty
* (DISTANCE_ERR)(2)
real*8 Temp (nr__) ! (K) Modeled temperature (TEMP)
real*8 E_Temp (nr__) ! (K) Modeled temperature upper limit (TEMP_HIGH)
real*8 e_Temp_1 (nr__) ! (K) Modeled temperature lower limit (TEMP_LOW)
real*8 logg (nr__) ! ([cm/s2]) Modeled surface gravity (LOGG)
real*8 E_logg (nr__) ! ([cm/s2]) Modeled logg upper limit (LOGG_HIGH)
real*8 e_logg_1 (nr__) ! ([cm/s2]) Modeled logg lower limit (LOGG_LOW)
*Note (1): Defined as 0.5*(W1MJDMAX-W1MJDMIN)
*Note (2): Computed using the relationships in Bochanski et al.,
* 2010AJ....139.2679B
C=============================================================================
C Loading file 'lmovers.dat' ! Astrometry for 46463 low-mass stars & BDs
C Format for file interpretation
1 format(
+ I19,1X,F10.6,1X,F10.6,1X,F5.3,1X,F5.3,1X,I5,1X,F7.4,1X,F8.4,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,
+ F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F10.6,1X,F10.6,1X,F8.6,1X,F8.6,1X,
+ F10.4,1X,A3,1X,A3,1X,A3,1X,A3,1X,I1,1X,F6.3,1X,F9.3,1X,F9.3,
+ 1X,F7.1,1X,F7.4,1X,F6.3,1X,F6.3,1X,F9.3,1X,F9.3,1X,F7.1,1X,
+ F7.4,1X,F6.3,1X,F6.3,1X,F9.3,1X,F9.3,1X,F7.1,1X,F7.4,1X,F6.3,
+ 1X,F8.2,1X,F8.2,1X,F8.2,1X,F10.6,1X,F10.6,1X,F8.6,1X,F8.6,1X,
+ A4,1X,I1,1X,A4,1X,A4,1X,F7.1,1X,F9.5,1X,F6.3,1X,F9.3,1X,F7.1,
+ 1X,F7.4,1X,F6.3,1X,F9.6,1X,F6.3,1X,F9.3,1X,F4.1,1X,F7.4,1X,
+ F6.3,1X,F9.6,1X,F9.3,1X,F9.3,1X,F7.1,1X,F7.4,1X,F9.3,1X,F7.1,
+ 1X,F9.3,1X,F9.3,1X,F7.1,1X,F7.4,1X,F9.3,1X,F7.1,1X,F11.5,1X,
+ F10.5,1X,F7.5,1X,F8.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F8.5,
+ 1X,F8.5,1X,F9.5,1X,F9.5,1X,F7.2,1X,F7.2,1X,F7.2,1X,F7.5,1X,
+ F7.5,1X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'lmovers.dat')
write(6,*) '....Loading file: lmovers.dat'
do i__=1,46463
read(1,'(A912)')ar__
read(ar__,1)
+ objID(i__),RAdeg(i__),DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__),
+ MJD(i__),umag(i__),e_umag(i__),Au(i__),umag0(i__),gmag(i__),
+ e_gmag(i__),Ag(i__),gmag0(i__),rmag(i__),e_rmag(i__),Ar(i__),
+ rmag0(i__),imag(i__),e_imag(i__),Ai(i__),imag0(i__),zmag(i__),
+ e_zmag(i__),Az(i__),zmag0(i__),RA2deg(i__),DE2deg(i__),
+ e_RA2deg(i__),e_DE2deg(i__),MJD2(i__),Q2(i__),f2r(i__),
+ f2b(i__),f2c(i__),f2e(i__),Jmag(i__),e_Jmag(i__),s_Jmag(i__),
+ JSNR(i__),AJ(i__),Jmag0(i__),Hmag(i__),e_Hmag(i__),
+ s_Hmag(i__),HSNR(i__),AH(i__),Hmag0(i__),Kmag(i__),
+ e_Kmag(i__),s_Kmag(i__),KSNR(i__),AK(i__),Kmag0(i__),
+ Jchi(i__),Hchi(i__),Kchi(i__),RAWdeg(i__),DEWdeg(i__),
+ e_RAWdeg(i__),e_DEWdeg(i__),fWcc(i__),fWe(i__),fWv(i__),
+ QW(i__),MJDW(i__),e_MJDW(i__),W1mag(i__),e_W1mag(i__),
+ W1SNR(i__),AW1(i__),W1mag0(i__),W1chi(i__),W2mag(i__),
+ e_W2mag(i__),W2SNR(i__),AW2(i__),W2mag0(i__),W2chi(i__),
+ W3mag(i__),e_W3mag(i__),W3SNR(i__),AW3(i__),W3mag0(i__),
+ W3chi(i__),W4mag(i__),e_W4mag(i__),W4SNR(i__),AW4(i__),
+ W4mag0(i__),W4chi(i__),pmRA(i__),pmDE(i__),i_pmRA(i__),
+ i_pmDE(i__),pmRAf(i__),pmDEf(i__),e_pmRA(i__),e_pmDE(i__),
+ Dt(i__),dWS(i__),Dist(i__),e_Dist(i__),Temp(i__),E_Temp(i__),
+ e_Temp_1(i__),logg(i__),E_logg(i__),e_logg_1(i__)
c ..............Just test output...........
write(6,1)
+ objID(i__),RAdeg(i__),DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__),
+ MJD(i__),umag(i__),e_umag(i__),Au(i__),umag0(i__),gmag(i__),
+ e_gmag(i__),Ag(i__),gmag0(i__),rmag(i__),e_rmag(i__),Ar(i__),
+ rmag0(i__),imag(i__),e_imag(i__),Ai(i__),imag0(i__),zmag(i__),
+ e_zmag(i__),Az(i__),zmag0(i__),RA2deg(i__),DE2deg(i__),
+ e_RA2deg(i__),e_DE2deg(i__),MJD2(i__),Q2(i__),f2r(i__),
+ f2b(i__),f2c(i__),f2e(i__),Jmag(i__),e_Jmag(i__),s_Jmag(i__),
+ JSNR(i__),AJ(i__),Jmag0(i__),Hmag(i__),e_Hmag(i__),
+ s_Hmag(i__),HSNR(i__),AH(i__),Hmag0(i__),Kmag(i__),
+ e_Kmag(i__),s_Kmag(i__),KSNR(i__),AK(i__),Kmag0(i__),
+ Jchi(i__),Hchi(i__),Kchi(i__),RAWdeg(i__),DEWdeg(i__),
+ e_RAWdeg(i__),e_DEWdeg(i__),fWcc(i__),fWe(i__),fWv(i__),
+ QW(i__),MJDW(i__),e_MJDW(i__),W1mag(i__),e_W1mag(i__),
+ W1SNR(i__),AW1(i__),W1mag0(i__),W1chi(i__),W2mag(i__),
+ e_W2mag(i__),W2SNR(i__),AW2(i__),W2mag0(i__),W2chi(i__),
+ W3mag(i__),e_W3mag(i__),W3SNR(i__),AW3(i__),W3mag0(i__),
+ W3chi(i__),W4mag(i__),e_W4mag(i__),W4SNR(i__),AW4(i__),
+ W4mag0(i__),W4chi(i__),pmRA(i__),pmDE(i__),i_pmRA(i__),
+ i_pmDE(i__),pmRAf(i__),pmDEf(i__),e_pmRA(i__),e_pmDE(i__),
+ Dt(i__),dWS(i__),Dist(i__),e_Dist(i__),Temp(i__),E_Temp(i__),
+ e_Temp_1(i__),logg(i__),E_logg(i__),e_logg_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end