Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/92 into FORTRAN code for reading data files line by line.
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 ! SDSS DR8 Object ID (SDSS_OBJID)
real*8 RAdeg ! (deg) SDSS Right ascension (J2000.0) (SDSS_RA)
real*8 DEdeg ! (deg) SDSS Declination (J2000.0) (SDSS_DEC)
real*4 e_RAdeg ! (deg) SDSS Right ascension error (J2000.0)
* (SDSS_RAERR)
real*4 e_DEdeg ! (deg) SDSS Declination error (J2000.0) (SDSS_DECERR)
integer*4 MJD ! (d) SDSS Modified Julian Date (SDSS_MJD)
real*8 umag ! (mag) SDSS u-band PSF magnitude (UMAG)
real*8 e_umag ! (mag) SDSS u-band PSF magnitude error (UMAG_ERR)
real*8 Au ! (mag) SDSS u-band PSF extinction (A_U)
real*8 umag0 ! (mag) SDSS u-band PSF unredenned magnitude
* (UMAG_UNRED)
real*8 gmag ! (mag) SDSS g-band PSF magnitude (GMAG)
real*8 e_gmag ! (mag) SDSS g-band PSF magnitude error (GMAG_ERR)
real*8 Ag ! (mag) SDSS g-band PSF extinction (A_G)
real*8 gmag0 ! (mag) SDSS g-band PSF unredenned magnitude
* (GMAG_UNRED)
real*8 rmag ! (mag) SDSS r-band PSF magnitude (RMAG)
real*8 e_rmag ! (mag) SDSS r-band PSF magnitude error (RMAG_ERR)
real*8 Ar ! (mag) SDSS r-band PSF extinction (A_R)
real*8 rmag0 ! (mag) SDSS r-band PSF unredenned magnitude
* (RMAG_UNRED)
real*8 imag ! (mag) SDSS i-band PSF magnitude (IMAG)
real*8 e_imag ! (mag) SDSS i-band PSF magnitude error (IMAG_ERR)
real*8 Ai ! (mag) SDSS i-band PSF extinction (A_I)
real*8 imag0 ! (mag) SDSS i-band PSF unredenned magnitude
* (IMAG_UNRED)
real*8 zmag ! (mag) SDSS z-band PSF magnitude (ZMAG)
real*8 e_zmag ! (mag) SDSS z-band PSF magnitude error (ZMAG_ERR)
real*8 Az ! (mag) SDSS z-band PSF extinction (A_Z)
real*8 zmag0 ! (mag) SDSS z-band PSF unredenned magnitude
* (ZMAG_UNRED)
real*8 RA2deg ! (deg) 2MASS Right ascension (J2000.0) (2MASS_RA)
real*8 DE2deg ! (deg) 2MASS Declination (J2000.0) 2MASS_DEC)
real*8 e_RA2deg ! (deg) 2MASS Right ascension error (J2000.0)
* (2MASS_RAERR)
real*8 e_DE2deg ! (deg) 2MASS Declination error (J2000.0)
* (2MASS_DECERR)
real*8 MJD2 ! (d) 2MASS modified Julian date (2MASS_MJD)
character*3 Q2 ! 2MASS photometric quality flag (2MASS_PH_QUAL)
character*3 f2r ! 2MASS read flag (2MASS_RD_FLG)
character*3 f2b ! 2MASS blend flag (2MASS_BL_FLG)
character*3 f2c ! 2MASS contamination and confusion flag
* (2MASS_CC_FLG)
integer*4 f2e ! [0/2] 2MASS extended source contamination flag
* (2MASS_GAL_CONTAM)
real*4 Jmag ! (mag) 2MASS J-band PSF magnitude (JMAG)
real*8 e_Jmag ! (mag) ?=-9999 2MASS J-band PSF corrected magnitude
* uncertainty (JMAG_ERR)
real*8 s_Jmag ! (mag) ?=-9999 2MASS J-band PSF total magnitude
* uncertainty (JMAG_ERRTOT)
real*8 JSNR ! [2.6/10905.1]?=-9999 2MASS J-band SNR (JSNR)
real*8 AJ ! (mag) 2MASS J-band PSF extinction (A_J)
real*4 Jmag0 ! (mag) 2MASS J-band PSF unredenned magnitude
* (JMAG_UNRED)
real*4 Hmag ! (mag) 2MASS H-band PSF magnitude (HMAG)
real*8 e_Hmag ! (mag) ?=-9999 2MASS H-band PSF corrected magnitude
* uncertainty (HMAG_ERR)
real*8 s_Hmag ! (mag) ?=-9999 2MASS H-band PSF total magnitude
* uncertainty (HMAG_ERRTOT)
real*8 HSNR ! [2.4/21632.7]?=-9999 2MASS H-band SNR (HSNR)
real*8 AH ! (mag) 2MASS H-band PSF extinction (A_H)
real*4 Hmag0 ! (mag) 2MASS H-band PSF unredenned magnitude
* (HMAG_UNRED)
real*4 Kmag ! (mag) 2MASS K-band PSF magnitude (KMAG)
real*8 e_Kmag ! (mag) ?=-9999 2MASS K-band PSF corrected magnitude
* uncertainty (KMAG_ERR)
real*8 s_Kmag ! (mag) ?=-9999 2MASS K-band PSF total magnitude
* uncertainty (KMAG_ERRTOT)
real*8 KSNR ! [2.1/27594.3]?=-9999 2MASS K-band SNR (KSNR)
real*8 AK ! (mag) 2MASS K-band PSF extinction (A_K)
real*4 Kmag0 ! (mag) 2MASS K-band PSF unredenned magnitude
* (KMAG_UNRED)
real*8 Jchi ! ?=-9999 2MASS J-band chi2 PSF fit (J_PSFCHI)
real*8 Hchi ! ?=-9999 2MASS H-band chi2 PSF fit (H_PSFCHI)
real*8 Kchi ! ?=-9999 2MASS K-band chi2 PSF fit (K_PSFCHI)
real*8 RAWdeg ! (deg) WISE Right ascension (J2000.0) (WISE_RA)
real*8 DEWdeg ! (deg) WISE Declination (J2000.0) (WISE_DEC)
real*8 e_RAWdeg ! (deg) WISE Right ascension error (J2000.0)
* (WISE_RAERR)
real*8 e_DEWdeg ! (deg) WISE Declination error (J2000.0) (WISE_DECERR)
character*4 fWcc ! WISE contamination and confusion flag
* (WISE_CC_FLG)
integer*4 fWe ! WISE extended source flag (WISE_EXT_FLG)
character*4 fWv ! WISE variability flag (WISE_VAR_FLG)
character*4 QW ! WISE photometric quality flag (WISE_PH_QUAL)
real*8 MJDW ! (d) WISE W1-band average modified Julian Date
* (W1MJDMEAN)
real*8 e_MJDW ! (d) WISE MJD uncertainty (W1MJDSIG) (1)
real*4 W1mag ! (mag) WISE W1-band PSF magnitude (W1MPRO)
real*8 e_W1mag ! (mag) ?=-9999 WISE W1-band PSF magnitude error
* (W1SIGMPRO)
real*8 W1SNR ! [1.7/51.8]?=-9999 WISE W1-band SNR (W1SNR)
real*8 AW1 ! (mag) WISE W1-band PSF extinction (A_W1)
real*4 W1mag0 ! (mag) WISE W1-band PSF unredenned magnitude
* (W1MPRO_UNRED)
real*8 W1chi ! [0.08/61.91] WISE W1 reduced chi2 PSF fit
* (W1RCHI2)
real*4 W2mag ! (mag) WISE W2-band PSF magnitude (W2MPRO)
real*8 e_W2mag ! (mag) ?=-9999 WISE W2-band PSF magnitude error
* (W2SIGMPRO)
real*4 W2SNR ! [-0.4/57.2] WISE W2-band SNR (W2SNR)
real*8 AW2 ! (mag) WISE W2-band PSF extinction (A_W2)
real*4 W2mag0 ! (mag) WISE W2-band PSF unredenned magnitude
* (W2MPRO_UNRED)
real*8 W2chi ! [0.19/33.1] WISE W2 reduced chi2 PSF fit
* (W2RCHI2)
real*8 W3mag ! (mag) ?=-9999 WISE W3-band PSF magnitude (W3MPRO)
real*8 e_W3mag ! (mag) ?=-9999 WISE W3-band PSF magnitude error
* (W3SIGMPRO)
real*8 W3SNR ! [-14/83.4]?=-9999 WISE W3-band SNR (W3SNR)
real*8 AW3 ! (mag) WISE W3-band PSF extinction (A_W3)
real*8 W3mag0 ! (mag) ?=-9999 WISE W3-band PSF unredenned magnitude
* (W3MPRO_UNRED)
real*8 W3chi ! [0.5/3630]?=-9999 WISE W3 reduced chi2 PSF fit
* (W3RCHI2)
real*8 W4mag ! (mag) ?=-9999 WISE W4-band PSF magnitude (W4MPRO)
real*8 e_W4mag ! (mag) ?=-9999 WISE W4-band PSF magnitude error
* (W4SIGMPRO)
real*8 W4SNR ! [-4.4/54.8]?=-9999 WISE W4-band SNR (W4SNR)
real*8 AW4 ! (mag) WISE W4-band PSF extinction (A_W4)
real*8 W4mag0 ! (mag) ?=-9999 WISE W4-band PSF unredenned magnitude
* (W4MPRO_UNRED)
real*8 W4chi ! [0.5/2459]?=-9999 WISE W4 reduced chi2 PSF fit
* (W4RCHI2)
real*8 pmRA ! (mas/yr) Proper motion in RA (proper units, i.e.
* pmRA*cos(DE) (PMRA)
real*8 pmDE ! (mas/yr) Proper motion in DE (PMDEC)
real*8 i_pmRA ! (mas/yr) Intrinsic error in proper motion in RA
* (PMRA_INTERR)
real*8 i_pmDE ! (mas/yr) Intrinsic error in proper motion in DE
* (PMDEC_INTERR)
real*8 pmRAf ! (mas/yr) [0/325] Fit error in proper motion in RA
* (PMRA_FITERR)
real*8 pmDEf ! (mas/yr) [0/404] Fit error in proper motion in DE
* (PMDEC_FITERR)
real*8 e_pmRA ! (mas/yr) Combined error in proper motion in RA
* (PMRA_TOTERR)
real*8 e_pmDE ! (mas/yr) Combined error in proper motion in DE
* (PMDEC_TOTERR)
real*8 Dt ! (yr) Time baseline used to compute proper motion
* (BASELINE)
real*8 dWS ! (arcsec) Total distance between WISE position and
* SDSS position (WS_DIST)
real*8 Dist ! (pc) Photometric parallax distance (DISTANCE) (2)
real*8 e_Dist ! (pc) Photometric parallax distance uncertainty
* (DISTANCE_ERR)(2)
real*8 Temp ! (K) Modeled temperature (TEMP)
real*8 E_Temp ! (K) Modeled temperature upper limit (TEMP_HIGH)
real*8 e_Temp_1 ! (K) Modeled temperature lower limit (TEMP_LOW)
real*8 logg ! ([cm/s2]) Modeled surface gravity (LOGG)
real*8 E_logg ! ([cm/s2]) Modeled logg upper limit (LOGG_HIGH)
real*8 e_logg_1 ! ([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,RAdeg,DEdeg,e_RAdeg,e_DEdeg,MJD,umag,e_umag,Au,umag0,
+ gmag,e_gmag,Ag,gmag0,rmag,e_rmag,Ar,rmag0,imag,e_imag,Ai,
+ imag0,zmag,e_zmag,Az,zmag0,RA2deg,DE2deg,e_RA2deg,e_DE2deg,
+ MJD2,Q2,f2r,f2b,f2c,f2e,Jmag,e_Jmag,s_Jmag,JSNR,AJ,Jmag0,Hmag,
+ e_Hmag,s_Hmag,HSNR,AH,Hmag0,Kmag,e_Kmag,s_Kmag,KSNR,AK,Kmag0,
+ Jchi,Hchi,Kchi,RAWdeg,DEWdeg,e_RAWdeg,e_DEWdeg,fWcc,fWe,fWv,
+ QW,MJDW,e_MJDW,W1mag,e_W1mag,W1SNR,AW1,W1mag0,W1chi,W2mag,
+ e_W2mag,W2SNR,AW2,W2mag0,W2chi,W3mag,e_W3mag,W3SNR,AW3,W3mag0,
+ W3chi,W4mag,e_W4mag,W4SNR,AW4,W4mag0,W4chi,pmRA,pmDE,i_pmRA,
+ i_pmDE,pmRAf,pmDEf,e_pmRA,e_pmDE,Dt,dWS,Dist,e_Dist,Temp,
+ E_Temp,e_Temp_1,logg,E_logg,e_logg_1
c ..............Just test output...........
write(6,1)
+ objID,RAdeg,DEdeg,e_RAdeg,e_DEdeg,MJD,umag,e_umag,Au,umag0,
+ gmag,e_gmag,Ag,gmag0,rmag,e_rmag,Ar,rmag0,imag,e_imag,Ai,
+ imag0,zmag,e_zmag,Az,zmag0,RA2deg,DE2deg,e_RA2deg,e_DE2deg,
+ MJD2,Q2,f2r,f2b,f2c,f2e,Jmag,e_Jmag,s_Jmag,JSNR,AJ,Jmag0,Hmag,
+ e_Hmag,s_Hmag,HSNR,AH,Hmag0,Kmag,e_Kmag,s_Kmag,KSNR,AK,Kmag0,
+ Jchi,Hchi,Kchi,RAWdeg,DEWdeg,e_RAWdeg,e_DEWdeg,fWcc,fWe,fWv,
+ QW,MJDW,e_MJDW,W1mag,e_W1mag,W1SNR,AW1,W1mag0,W1chi,W2mag,
+ e_W2mag,W2SNR,AW2,W2mag0,W2chi,W3mag,e_W3mag,W3SNR,AW3,W3mag0,
+ W3chi,W4mag,e_W4mag,W4SNR,AW4,W4mag0,W4chi,pmRA,pmDE,i_pmRA,
+ i_pmDE,pmRAf,pmDEf,e_pmRA,e_pmDE,Dt,dWS,Dist,e_Dist,Temp,
+ E_Temp,e_Temp_1,logg,E_logg,e_logg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end