Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/60/739 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 2024-Apr-19 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/PASJ/60/739 Emission-line stars in the W5E HII region (Nakano+, 2008) *================================================================================ *Clustering of emission-line stars in the W5E H II region. * Nakano M., Sugitani K., Niwa T., Itoh Y., Watanabe M. * <Publ. Astron. Soc. Jap., 60, 739-748 (2008)> * =2008PASJ...60..739N C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Summary of H{alpha} stars integer*4 nr__ parameter (nr__=139) ! Number of records character*95 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 v_NSN2008_ (nr__) ! Sequential number character*6 Name (nr__) ! Name (1) integer*4 RAh (nr__) ! (h) Right ascension (J2000) integer*4 RAm (nr__) ! (min) Right ascension (J2000) real*4 RAs (nr__) ! (s) Right ascension (J2000) character*1 DE_ (nr__) ! Declination sign (J2000) integer*4 DEd (nr__) ! (deg) Declination (J2000) integer*4 DEm (nr__) ! (arcmin) Declination (J2000) real*4 DEs (nr__) ! (arcsec) Declination (J2000) real*4 g__i_ (nr__) ! (mag) ?=- g'-i' colour index real*4 i_mag (nr__) ! (mag) ?=- i' magnitude character*1 l_EW (nr__) ! Limit flag on EW real*4 EW (nr__) ! (0.1nm) ?=- H{alpha} equivalent width real*4 AV (nr__) ! (mag) ?=- Absorption in V band character*16 v2MASS (nr__) ! 2MASS name (HHMMSSss+DDMMSSs) character*1 q_2MASS (nr__) ! [*] Good 2MASS quality flag (2) character*2 Flag (nr__) ! [wc] wc for weak continuum character*19 Rem (nr__) ! Other names (3) *Note (1): Names as: * a-NNNN for W5 E-a region, [NSN2008] a-NNNN in Simbad * b-NNNN for W5 E-b region, [NSN2008] b-NNNN in Simbad * c-NNNN for W5 E-c region, [NSN2008] c-NNNN in Simbad * d-NNNN for W5 E-d region, [NSN2008] d-NNNN in Simbad *Note (2): the asterisk (*) indicates a good photometric quality * in all three bands (J,H,Ks) *Note (3): Other names as: * [OSP]NN-NN = H{alpha} star from Ogura et al. (2002, * Cat. J/AJ/123/2597), [OSP2002] BRC NN NN in Simbad * [MIS]NN = YSO candidate from Matsuyanagi et al. (2006, * Cat. J/PASJ/58/L29), [MIS2006] NN in Simbad C============================================================================= C Loading file 'table3.dat' ! Summary of H{alpha} stars C Format for file interpretation 1 format( + I3,1X,A6,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F3.1, + 1X,F4.1,1X,A1,F5.1,1X,F3.1,1X,A16,A1,1X,A2,1X,A19) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,139 read(1,'(A95)')ar__ read(ar__,1) + v_NSN2008_(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),g__i_(i__),i_mag(i__),l_EW(i__), + EW(i__),AV(i__),v2MASS(i__),q_2MASS(i__),Flag(i__),Rem(i__) if (idig(ar__(36:38)).EQ.0) g__i_(i__) = rNULL__ if (idig(ar__(40:43)).EQ.0) i_mag(i__) = rNULL__ if (idig(ar__(46:50)).EQ.0) EW(i__) = rNULL__ if (idig(ar__(52:54)).EQ.0) AV(i__) = rNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + v_NSN2008_(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),g__i_(i__),i_mag(i__),l_EW(i__), + EW(i__),AV(i__),v2MASS(i__),q_2MASS(i__),Flag(i__),Rem(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end C Locate position of first digit in string; or return 0 integer function idig(c) character*(*) c character*1 c1 integer lc,i lc=len(c) idig=0 do i=1,lc if(c(i:i).ne.' ') go to 1 end do 1 if(i.gt.lc) return c1=c(i:i) if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1 if(i.gt.lc) return c1=c(i:i) if(c1.ge.'0'.and.c1.le.'9') idig=i return end