Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/599/A83 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-17 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/A+A/599/A83 ELG and AGN in WINGS clusters (Marziani+, 2017) *================================================================================ *Emission line galaxies and active galactic nuclei in WINGS clusters. * Marziani P., D'Onofrio M., Bettoni D., Poggianti B.M., Moretti A. * Fasano G., Fritz J., Cava A., Varela J., Omizzolo A. * <Astron. Astrophys. 599, A83 (2017)> * =2017A&A...599A..83M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! Emission line catalog integer*4 nr__ parameter (nr__=5859) ! Number of records character*632 ar__ ! Full-size record character*19 WINGS ! WINGS identifier (JHHMMSS.ss+DDMMSS.s) character*7 Cluster ! Cluster identification code integer*4 Memb ! [0/1] Membership (1) character*13 IDS ! Id with spectrum aperture number real*8 SN ! 1-sigma S/N ratio close to [OIII] real*8 ROII ! ?=-999 Ratio[OII]/rms[OII] real*8 RHB ! ?=-999 Ratio Hbeta/rms_Hbeta_ (6) real*8 ROIII ! ?=-999 Ratio [OIII]/rms_[OIII]_ (6) real*8 ROI ! ?=-999 Ratio [OI]/rms_[OI]_ (6) real*8 RHa ! ?=-999 Ratio Halpha/rms_Halpha_ (6) real*8 RNII ! ?=-999 Ratio [NII]/rms_[NII]_ (6) real*8 RSII ! ?=-999 Ratio [SII]/rms_[SII]_ (6) integer*4 Detect ! [0/1] Detection of emission lines * following criterion of Eq. 2 real*8 EWMin ! (0.1nm) Minimum eq. width detectable at reported * S/N, from Eq. A.1 real*8 EWHb ! (0.1nm) ?=-999 Rest-frame EW of Hbeta (6) real*8 e_EWHb ! (0.1nm) ?=-999 Hbeta EW error integer*4 f_EWHb ! [-1/1]? Hbeta EW censorship (2) real*8 EWHa ! (0.1nm) ?=-999 Rest-frame Halpha EW (6) real*8 e_EWHa ! (0.1nm) ?=-999 Halpha EW error real*4 f_EWHa ! [-1/0]? Halpha EW censorship (2) real*8 ROIIHB ! ?=-999 Log_10 [OII]/Hbeta (6) real*8 e_ROIIHB ! ?=-999 Lower error on Log[OII]/Hbeta real*8 E_ROIIHB_1 ! ?=-999 Upper error on Log[OII]/Hbeta integer*4 f_ROIIHB ! [-1/1]? Log[OII]/Hbeta * censorship (2) real*8 ROIIIHB ! ?=-999 Log_10 [OIII]/Hbeta (6) real*8 e_ROIIIHB ! ?=-999 Lower error on Log[OIII]/Hbeta real*8 E_ROIIIHB_1 ! ?=-999 Upper error on Log[OIII]/Hbeta integer*4 f_ROIIIHB ! [-1/1]? Log[OIII]/Hbeta censorship (2) real*8 ROIHa ! ?=-999 Log_10 [OI]/Halpha (6) real*8 e_ROIHa ! ?=-999 Lower error on Log[OI]/Halpha real*8 E_ROIHa_1 ! ?=-999 Upper error on Log[OI]/Halpha integer*4 f_ROIHa ! [-1/1]? Log[OI]/Halpha censorship (2) real*8 RNIIHa ! ?=-999 Log_10 [NII]/Halpha (6) real*8 e_RNIIHa ! ?=-999 Lower error on Log [NII]/Halpha real*8 E_RNIIHa_1 ! ?=-999 Upper error on Log [NII]/Halpha integer*4 f_RNIIHa ! [-1/1]? Log[NII]/Halpha censorship (2) real*8 RSIIHa ! ?=-999 Log_10 [SII]/Halpha (6) real*8 e_RSIIHa ! ?=-999 Lower error on Log [SII]/Halpha real*8 E_RSIIHa_1 ! ?=-999 Upper error on Log [SII]/Halpha integer*4 f_RSIIHa ! [-1/1]? Log[SII]/Halpha censorship (2) character*2 ClassOII ! Class from [OII] DD (3) real*4 POIIHII ! ?=-999 HII probability in [OII] DD real*4 POIILIN ! ?=-999 LINER probability in [OII] DD real*4 POIISeyf ! ?=-999 Seyfert probability in [OII] DD character*2 ClassOIIRev ! Revised class from [OII] DD (3) character*2 ClassOI ! Class from [OI] DD (3) character*2 ClassNII ! Class from [NII] DD (4) real*4 PNIIHII ! ?=-999 Probability of HII in [NII] DD real*4 PNIITO ! ?=-999 Probability of TO in [NII] DD character*11 PNIILIN ! ?=-999 Probability of LINER in [NII] DD real*4 PNIISeyf ! ?=-999 Seyfert probability in [NII] DD character*2 ClassNIIRev ! Revised class from [NII] DD (4) character*2 ClassSII ! Class from [SII] DD (3) real*4 FL ! (10-2W/m2/nm) ? Specific flux at 5000 real*4 FLV ! (10-2W/m2/nm) ? Specific flux from V-band real*8 logLHb ! (10-7W) ? Log_10 Hbeta emission line luminosity integer*4 f_logLHb ! [-1/1]? Hbeta luminosity censorship (2) real*8 logLHa ! (10-7W) ? Log_10 Halpha emission line luminosity integer*4 f_logLHa ! [-1/1]? Halpha luminosity censorship (2) character*147 Notes ! Notes on individual sources(5) *Note (1): Membership code: * 1 = cluster member * 0 = non-member *Note (2): Censorship flag as follows: * -1 = upper limit * 1 = lower limit * 0 = detection *Note (3): Class code as follow: * U = emission lines undetected * E = emission lines detected but no classification from DD * EH = HII * EL = LINER * ES = Seyfert *Note (4): Class code as follow: * U = emission lines undetected * E = emission lines detected but no classification from DD * EH = HII * EL = LINER * ES = Seyfert * ET = transition objects (TOs) *Note (5): Technical notes; identification of possible Seyfert candidates * along with seven Seyfert 1s that have been identified: * WINGSJ012442.24+085124.4 WINGSJ034144.52-534221.1 (S1.9) * WINGSJ042931.90-613820.0 WINGSJ043838.78-220325.0 WINGSJ060131.87-401646.9 * WINGSJ125732.47-173633.1 WINGSJ132513.37-313137.7. *Note (6): Errors codes: * -999 = unavailable * -888 = line intensity ratio cannot be computed because both lines are censored C============================================================================= C Loading file 'catalog.dat' ! Emission line catalog C Format for file interpretation 1 format( + 5X,A19,1X,A7,1X,I1,1X,A13,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X, + F8.3,1X,F8.3,1X,F8.3,1X,F11.3,1X,I1,1X,F7.3,1X,F8.3,1X,F8.3, + 1X,I4,1X,F8.3,1X,F8.3,1X,F6.1,1X,F8.3,1X,F8.3,1X,F8.3,1X,I4, + 1X,F8.3,1X,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,I4, + 1X,F8.3,1X,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,I4, + 1X,A2,1X,E9.6,1X,E10.6,1X,E10.6,1X,A2,1X,A2,1X,A2,1X,E10.6,1X, + E10.6,1X,A11,1X,E10.6,1X,A2,1X,A2,1X,E9.4,1X,E9.4,1X,F8.3,1X, + I4,1X,F8.3,1X,I4,1X,A147) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,5859 read(1,'(A632)')ar__ read(ar__,1) + WINGS,Cluster,Memb,IDS,SN,ROII,RHB,ROIII,ROI,RHa,RNII,RSII, + Detect,EWMin,EWHb,e_EWHb,f_EWHb,EWHa,e_EWHa,f_EWHa,ROIIHB, + e_ROIIHB,E_ROIIHB_1,f_ROIIHB,ROIIIHB,e_ROIIIHB,E_ROIIIHB_1, + f_ROIIIHB,ROIHa,e_ROIHa,E_ROIHa_1,f_ROIHa,RNIIHa,e_RNIIHa, + E_RNIIHa_1,f_RNIIHa,RSIIHa,e_RSIIHa,E_RSIIHa_1,f_RSIIHa, + ClassOII,POIIHII,POIILIN,POIISeyf,ClassOIIRev,ClassOI, + ClassNII,PNIIHII,PNIITO,PNIILIN,PNIISeyf,ClassNIIRev,ClassSII, + FL,FLV,logLHb,f_logLHb,logLHa,f_logLHa,Notes if(ar__(153:156) .EQ. '') f_EWHb = iNULL__ if(ar__(176:181) .EQ. '') f_EWHa = rNULL__ if(ar__(210:213) .EQ. '') f_ROIIHB = iNULL__ if(ar__(242:245) .EQ. '') f_ROIIIHB = iNULL__ if(ar__(274:277) .EQ. '') f_ROIHa = iNULL__ if(ar__(306:309) .EQ. '') f_RNIIHa = iNULL__ if(ar__(338:341) .EQ. '') f_RSIIHa = iNULL__ if(ar__(438:446) .EQ. '') FL = rNULL__ if(ar__(448:456) .EQ. '') FLV = rNULL__ if(ar__(458:465) .EQ. '') logLHb = rNULL__ if(ar__(467:470) .EQ. '') f_logLHb = iNULL__ if(ar__(472:479) .EQ. '') logLHa = rNULL__ if(ar__(481:484) .EQ. '') f_logLHa = iNULL__ c ..............Just test output........... write(6,1) + WINGS,Cluster,Memb,IDS,SN,ROII,RHB,ROIII,ROI,RHa,RNII,RSII, + Detect,EWMin,EWHb,e_EWHb,f_EWHb,EWHa,e_EWHa,f_EWHa,ROIIHB, + e_ROIIHB,E_ROIIHB_1,f_ROIIHB,ROIIIHB,e_ROIIIHB,E_ROIIIHB_1, + f_ROIIIHB,ROIHa,e_ROIHa,E_ROIHa_1,f_ROIHa,RNIIHa,e_RNIIHa, + E_RNIIHa_1,f_RNIIHa,RSIIHa,e_RSIIHa,E_RSIIHa_1,f_RSIIHa, + ClassOII,POIIHII,POIILIN,POIISeyf,ClassOIIRev,ClassOI, + ClassNII,PNIIHII,PNIITO,PNIILIN,PNIISeyf,ClassNIIRev,ClassSII, + FL,FLV,logLHb,f_logLHb,logLHa,f_logLHa,Notes c .......End.of.Just test output........... end do close(1) C============================================================================= stop end