Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/849/149 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/849/149 VMC XXVII. Young stellar structures in the LMC (Sun+, 2017) *================================================================================ *The VMC survey. *XXVII. Young stellar structures in the LMC's bar star-forming complex. * Sun N.-C., de Grijs R., Subramanian S., Bekki K., Bell C.P.M., * Cioni M.-R.L., Ivanov V.D., Marconi M., Oliveira J.M., Piatti A.E., * Ripepi V., Rubele S., Tatton B.L., van Loon J.T. * <Astrophys. J., 849, 149 (2017)> * =2017ApJ...849..149S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Identified young stellar structures integer*4 nr__ parameter (nr__=123) ! Number of records character*42 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq ! [1/123] Internal index number integer*4 sig ! [1/10] Significance level (see Figure 4) real*8 RAdeg ! (deg) [28.8/320.5] Right Ascension (J2000) (1) real*8 DEdeg ! (deg) [-82.5/-30] Declination (J2000) (1) real*4 R ! (pc) [2.5/213] Size parameter (2) real*4 N_ ! [4.5/4419.2] Mass; expressed in N_*_ (the number of * upper main-sequence stars in a structure) real*4 SDen ! (pc-2) [0.01/0.5] Surface density (3) *Note (1): Of the center of each young stellar structure, defined as: * (RAdeg|DEdeg)=((RAdeg|DEdeg)_min_+(RAdeg|DEdeg)_max_)/2, where * (RAdeg|DEdeg)_min_ and (RAdeg|DEdeg)_max_ are the minimum and maximum * Right Ascensions or Declinations of the iso-density contour of * each structure, respectively. *Note (2): The size of each young stellar structure, R, is estimated based on * the radius of a circle that has the same area as that covered by the * isodensity contour of the structure. See section 4.2 *Note (3): {Sigma}=N*/A where A is the area of the isodensity contour (see * Section 4.1 and Figure 4). * See section 4.4 for further explanations. C============================================================================= C Loading file 'table1.dat' ! Identified young stellar structures C Format for file interpretation 1 format(I3,1X,I2,1X,F8.4,1X,F8.4,1X,F5.1,1X,F6.1,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,123 read(1,'(A42)')ar__ read(ar__,1)Seq,sig,RAdeg,DEdeg,R,N_,SDen c ..............Just test output........... write(6,1)Seq,sig,RAdeg,DEdeg,R,N_,SDen c .......End.of.Just test output........... end do close(1) C============================================================================= stop end