Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/353/211 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 2026-Jun-08
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/MNRAS/353/211 Method for selection of quasars (Carballo+, 2004)
*================================================================================
*Selection of quasar candidates from combined radio and optical surveys using
*neural networks.
* Carballo R., Cofino A.S., Gonzalez-serrano J.I.
* <Mon. Not. R. Astron. Soc., 353, 211-220 (2004)>
* =2004MNRAS.353..211C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Quasar probabilities for the 98 candidates
without spectroscopic classification in
White et al. (2000, Cat. <J/ApJS/126/133>)
integer*4 nr__
parameter (nr__=98) ! Number of records
character*45 ar__ ! Full-size record
character*15 FIRSTJ ! FIRST J designation (based on J2000.0 position)
real*4 P7_1 ! Quasar probability from ANN 7:1 method (1)
real*4 e_P7_1 ! rms uncertainty on P7-1
real*4 P7_2_1 ! Quasar probability from ANN 7:2:1 method (1)
real*4 e_P7_2_1 ! rms uncertainty on P7-2-1
real*4 POC1 ! Quasar probability from oblique decision tree
* classifier OC1 (Murthy et al., 1994,
* J. Artif. Intell. Res., 2, 1)
*Note (1): We used two different ANN architectures.
* The first one, denoted as 7:1, does not include hidden layers
* and it is also known as a logistic discrimination model.
* The second architecture includes a hidden layer with two nodes,
* and it is denoted as 7:2:1.
C=============================================================================
C Loading file 'table4.dat' ! Quasar probabilities for the 98 candidates
* without spectroscopic classification in
* White et al. (2000, Cat. <J/ApJS/126/133>)
C Format for file interpretation
1 format(A15,1X,F4.2,2X,F4.2,2X,F4.2,2X,F4.2,2X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,98
read(1,'(A45)')ar__
read(ar__,1)FIRSTJ,P7_1,e_P7_1,P7_2_1,e_P7_2_1,POC1
c ..............Just test output...........
write(6,1)FIRSTJ,P7_1,e_P7_1,P7_2_1,e_P7_2_1,POC1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end