Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/791/121 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 2024-Mar-29 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/ApJ/791/121 NIR albedos of main-belt asteroids (Masiero+, 2014) *================================================================================ *Main-belt asteroids with WISE/NEOWISE: near-infrared albedos. * Masiero J.R., Grav T., Mainzer A.K., Nugent C.R., Bauer J.M., Stevenson R., * Sonnett S. * <Astrophys. J., 791, 121 (2014)> * =2014ApJ...791..121M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Revised thermal fits of Main Belt asteroids integer*4 nr__ parameter (nr__=3080) ! Number of records character*74 ar__ ! Full-size record character*5 Name ! Asteroid number, MPC-packed format real*4 Dia ! (km) Diameter real*4 e_Dia ! (km) Uncertainty in Dia real*4 eta ! Beaming parameter real*4 e_eta ! Uncertainty in eta real*4 pV ! Visible albedo real*4 e_pV ! Uncertainty in pV real*4 pW1 ! WISE 3.4 micron band albedo real*4 e_pW1 ! Uncertainty in pW1 real*4 pW2 ! ? WISE 4.5 micron band albedo (1) real*4 e_pW2 ! ? Uncertainty in pW2 real*4 HVMag ! (mag) Absolute H_V_ magnitude real*4 G ! Photometric slope parameter integer*4 Family ! ? Associated family identifier from * Masiero et al. (2013, J/ApJ/770/7) (2) *Note (1): Null if pW2 can not be constrained. *Note (2): Null if the object is not associated to a family. C============================================================================= C Loading file 'table1.dat' ! Revised thermal fits of Main Belt asteroids C Format for file interpretation 1 format( + A5,1X,F6.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F4.1,1X,F4.2,1X,I5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,3080 read(1,'(A74)')ar__ read(ar__,1) + Name,Dia,e_Dia,eta,e_eta,pV,e_pV,pW1,e_pW1,pW2,e_pW2,HVMag,G, + Family if(ar__(50:53) .EQ. '') pW2 = rNULL__ if(ar__(55:58) .EQ. '') e_pW2 = rNULL__ if(ar__(70:74) .EQ. '') Family = iNULL__ c ..............Just test output........... write(6,1) + Name,Dia,e_Dia,eta,e_eta,pV,e_pV,pW1,e_pW1,pW2,e_pW2,HVMag,G, + Family c .......End.of.Just test output........... end do close(1) C============================================================================= stop end