Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/472/4259 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/MNRAS/472/4259 IRAC Dark Field, ELAIS-N1 and ADF-S galaxies (Davidge+, 2017)
*================================================================================
*AKARI/IRC source catalogues and source counts for the IRAC Dark Field,
*ELAIS North and the AKARI Deep Field South.
* Davidge H., Serjeant S., Pearson C., Matsuhara H., Wada T., Dryer B.,
* Barrufet L.
* <Mon. Not. R. Astron. Soc. 472, 4259-4286 (2017)>
* =2017MNRAS.472.4259D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'idfgal.dat' ! AKARI/IRC IRAC Dark Field galaxy positions and
positions and photometry
integer*4 nr__
parameter (nr__=905) ! Number of records
character*135 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*8 F4_1um ! (mJy) ?=-99 4.1um flux
real*4 e_F4_1um ! (mJy) ?=-99 4.1um flux error
real*8 F11um ! (mJy) ?=-99 11um flux
real*8 e_F11um ! (mJy) ?=-99 11um flux error
real*8 F15um ! (mJy) ?=-99 15um flux
real*8 e_F15um ! (mJy) ?=-99 15um flux error
real*8 F18um ! (mJy) ?=-99 18um flux
real*8 e_F18um ! (mJy) ?=-99 18um flux error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'en1gal.dat' ! AKARI/IRC ELAIS North 1 galaxy positions
and photometry
photometry
integer*4 nr__1
parameter (nr__1=625) ! Number of records
character*135 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_1 ! (deg) Right ascension (J2000)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*8 F4_1um_1 ! (mJy) ?=-99 4.1um flux
real*4 e_F4_1um_1 ! (mJy) ?=-99 4.1um flux error
real*8 F11um_1 ! (mJy) ?=-99 11um flux
real*8 e_F11um_1 ! (mJy) ?=-99 11um flux error
real*8 F15um_1 ! (mJy) ?=-99 15um flux
real*8 e_F15um_1 ! (mJy) ?=-99 15um flux error
real*8 F18um_1 ! (mJy) ?=-99 18um flux
real*8 e_F18um_1 ! (mJy) ?=-99 18um flux error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'adfsga.dat' ! AKARI/IRC AKARI Deep Field South galaxy
integer*4 nr__2
parameter (nr__2=2885) ! Number of records
character*158 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_2 ! (deg) Right ascension (J2000)
real*8 DEdeg_2 ! (deg) Declination (J2000)
real*8 F3_2um ! (mJy) ?=-99 3.2um flux
real*8 e_F3_2um ! (mJy) ?=-99 3.2um flux error
real*8 F4_1um_2 ! (mJy) ?=-99 4.1um flux
real*8 e_F4_1um_2 ! (mJy) ?=-99 4.1um flux error
real*8 F7um ! (mJy) ?=-99 7um flux
real*8 e_F7um ! (mJy) ?=-99 7um flux error
real*8 F11um_2 ! (mJy) ?=-99 11um flux
real*8 e_F11um_2 ! (mJy) ?=-99 11um flux error
real*8 F15um_2 ! (mJy) ?=-99 15um flux
real*8 e_F15um_2 ! (mJy) ?=-99 15um flux error
C=============================================================================
C Loading file 'idfgal.dat' ! AKARI/IRC IRAC Dark Field galaxy positions and
* positions and photometry
C Format for file interpretation
1 format(
+ F9.5,1X,F9.6,1X,F14.10,1X,E14.10,1X,F13.9,1X,F14.10,1X,F13.9,
+ 1X,F13.9,1X,F14.10,1X,F13.9)
C Effective file loading
open(unit=1,status='old',file=
+'idfgal.dat')
write(6,*) '....Loading file: idfgal.dat'
do i__=1,905
read(1,'(A135)')ar__
read(ar__,1)
+ RAdeg,DEdeg,F4_1um,e_F4_1um,F11um,e_F11um,F15um,e_F15um,F18um,
+ e_F18um
c ..............Just test output...........
write(6,1)
+ RAdeg,DEdeg,F4_1um,e_F4_1um,F11um,e_F11um,F15um,e_F15um,F18um,
+ e_F18um
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'en1gal.dat' ! AKARI/IRC ELAIS North 1 galaxy positions
* and photometry
* photometry
C Format for file interpretation
2 format(
+ F9.5,1X,F9.6,1X,F14.10,1X,E14.10,1X,F13.9,1X,F14.10,1X,F13.9,
+ 1X,F13.9,1X,F14.10,1X,F13.9)
C Effective file loading
open(unit=1,status='old',file=
+'en1gal.dat')
write(6,*) '....Loading file: en1gal.dat'
do i__=1,625
read(1,'(A135)')ar__1
read(ar__1,2)
+ RAdeg_1,DEdeg_1,F4_1um_1,e_F4_1um_1,F11um_1,e_F11um_1,F15um_1,
+ e_F15um_1,F18um_1,e_F18um_1
c ..............Just test output...........
write(6,2)
+ RAdeg_1,DEdeg_1,F4_1um_1,e_F4_1um_1,F11um_1,e_F11um_1,F15um_1,
+ e_F15um_1,F18um_1,e_F18um_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'adfsga.dat' ! AKARI/IRC AKARI Deep Field South galaxy
C Format for file interpretation
3 format(
+ F9.6,1X,F10.6,1X,F13.9,1X,F13.9,1X,F13.9,1X,F14.10,1X,F12.8,
+ 1X,F13.9,1X,F12.8,1X,F13.9,1X,F12.8,1X,F13.9)
C Effective file loading
open(unit=1,status='old',file=
+'adfsga.dat')
write(6,*) '....Loading file: adfsga.dat'
do i__=1,2885
read(1,'(A158)')ar__2
read(ar__2,3)
+ RAdeg_2,DEdeg_2,F3_2um,e_F3_2um,F4_1um_2,e_F4_1um_2,F7um,
+ e_F7um,F11um_2,e_F11um_2,F15um_2,e_F15um_2
c ..............Just test output...........
write(6,3)
+ RAdeg_2,DEdeg_2,F3_2um,e_F3_2um,F4_1um_2,e_F4_1um_2,F7um,
+ e_F7um,F11um_2,e_F11um_2,F15um_2,e_F15um_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end