Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/675/1319 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-Apr-18 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/675/1319 Infrared photometry of NGC 3603 (Harayama+, 2008) *================================================================================ *The initial mass function of the massive star-forming region NGC 3603 from *near-infrared adaptive optics observations. * Harayama Y., Eisenhauer F., Martins F. * <Astrophys. J., 675, 1319-1342 (2008)> * =2008ApJ...675.1319H C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Photometry list integer*4 nr__ parameter (nr__=256) ! Number of records character*88 ar__ ! Full-size record integer*4 No ! [1/256] Running identification number * <[HEM2008] NNN> in Simbad real*4 oRA ! (arcsec) Offset in Right Ascension (1) real*4 oDE ! (arcsec) Offset in Declination (1) real*4 Jmag ! (mag) J band magnitude real*4 Hmag ! (mag) H band magnitude real*4 Ksmag ! (mag) K_S_ band magnitude real*4 L_mag ! (mag) ? L' band magnitude (2) character*11 SpType ! MK spectral type (3) character*1 f_MDS94 ! [H] H indicates that source is found to have a * X-ray counterpart by Moffat et al. * (2002ApJ...573..191M) integer*4 MDS94 ! ? Identification in Moffat et al. * (1994ApJ...436..183M) (4) character*9 OName ! Other names (5) character*6 Rem ! Remarks on Moffat names (6) character*2 NS03 ! Identification in Nurnberger & Stanke * (2003A&A...400..223N) (7) character*2 n_NS03 ! Note on NS03 (8) integer*4 SB04 ! ? Identification in Sung & Bessel * (2004, Cat. <J/AJ/127/1014>) (9) character*2 n_SB04 ! "e1" indicates that Stars 21 and 52 together * would correspond to 10207 *Note (1): Source location is shown in an offset from the center of the * cluster (J2000): 11:15:07.337-61:15:38.19 * (instead of 11:15:05.90-61:15:28.4 as indicated in the paper) *Note (2): Note that, since the photometric calibration of the L' band * photometry was done by merely one data set of a standard star, * the presented L' band magnitude has to be considered as a * roughly-calibrated photometry. *Note (3): Adopted from a list in Crowther & Dessart (1998MNRAS.296..622C) * (Tab. 8 therein) which consists of spectra types in their study * combined with those in Moffat (1983A&A...124..273M) and Drissen et al. * (1995AJ....110.2235D). *Note (4): Designated IDs of potential counterparts in HST optical * detections by Moffat et al. (1994ApJ...436..183M), named * <Cl* NGC 3603 MDS NN> in Simbad. *Note (5): IDs originated in previous works such as Melnick et al. * (1989A&A...213...89M); letters were adopted from tables in Moffat * et al. (1994ApJ...436..183M). The letters A-F were originated in * van den Bos (1928BAN.....4..261V) (G in Walborn 1973ApJ...182L..21W), * and the source A was resolved into A1-3 by Hofmann & Weigelt * (1986A&A...167L..15H). *Note (6): Notes as follows: * c1 = Star 19 and 45 together would correspond to MDS-61 (G/MTT-10) * c2 = Star 55 and 57 together would correspond to MDS-67 (MTT-36) * c3 = Multiple detections. MDS-58 and 62 correspond to MTT-15 * c4 = MDS-8 and 9 correspond to MTT-21 * c5 = MDS-49, 50, 52, and 53 correspond to D * c6 = MDS-68 and 69 correspond to MTT-44 * c7 = MDS-10 and 11 correspond to MTT-22 * c8 = MDS-12 and 13 correspond to MTT-30 * c9 = A1, A2, and A3 together consist of a X-ray source within the * match of smoothed PSF in Moffat et al. (2002ApJ...573..191M) * c10 = MDS-49 and 50 together consist of a X-ray source *Note (7): Designated IDs of potential counterparts in a mid-infrared * detections by Nurnberger & Stanke (2003A&A...400..223N, [NS2003] NNA * in Simbad). The 11.9 micron sources 6A-F are in the concentrated * cluster core. *Note (8): Notes as follows: * d1 = Star 19, 33 and 51 together would correspond to 6G * d2 = Star 18 and 43 together would correspond to 6K * d3 = Star 17 and 22 together would correspond to 6N *Note (9): IDs in Sung & Bessell (2004, Cat. <J/AJ/127/1014>, [SB2004] NNNNN * in Simbad) (Tab. 2 therein). Sources brighter than V=14mag detected in * their analysis of the HST/PC1 archival data set. C============================================================================= C Loading file 'table6.dat' ! Photometry list C Format for file interpretation 1 format( + I3,1X,F6.2,1X,F6.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,A11,1X, + A1,I2,A9,1X,A6,1X,A2,1X,A2,1X,I5,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,256 read(1,'(A88)')ar__ read(ar__,1) + No,oRA,oDE,Jmag,Hmag,Ksmag,L_mag,SpType,f_MDS94,MDS94,OName, + Rem,NS03,n_NS03,SB04,n_SB04 if(ar__(37:41) .EQ. '') L_mag = rNULL__ if(ar__(56:57) .EQ. '') MDS94 = iNULL__ if(ar__(81:85) .EQ. '') SB04 = iNULL__ c ..............Just test output........... write(6,1) + No,oRA,oDE,Jmag,Hmag,Ksmag,L_mag,SpType,f_MDS94,MDS94,OName, + Rem,NS03,n_NS03,SB04,n_SB04 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end