Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/627/A132 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-Oct-11
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/627/A132 GAS II. UV luminosity functions & InfraRed eXcess (Cousin+, 2019)
*================================================================================
*G.A.S. II:
*Dust extinction in galaxies; Luminosity functions and infrared excess.
* Cousin M., Buat V., Lagache G., Bethermin M.
* <Astron. Astrophys. 627, A132 (2019)>
* =2019A&A...627A.132C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fuv_int.dat' ! Rest-Frame Galex-FUV luminosity functions predicted
by the G.A.S. model, Intrinsic luminosity functions
integer*4 nr__
parameter (nr__=20) ! Number of records
character*173 ar__ ! Full-size record
real*8 FUVMAG ! (mag) Absolute FUV magnitude (AB)
real*4 CD0_30 ! (Mpc-3) Comoving density at z=0.30 (in gal/dex/Mpc3 unit)
real*4 CD0_51 ! (Mpc-3) Comoving density at z=0.51 (in gal/dex/Mpc3 unit)
real*4 CD0_90 ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_16 ! (Mpc-3) Comoving density at z=1.16 (in gal/dex/Mpc3 unit)
real*4 CD2_12 ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD3_02 ! (Mpc-3) Comoving density at z=3.02 (in gal/dex/Mpc3 unit)
real*4 CD3_99 ! (Mpc-3) Comoving density at z=3.99 (in gal/dex/Mpc3 unit)
real*4 CD4_98 ! (Mpc-3) Comoving density at z=4.98 (in gal/dex/Mpc3 unit)
real*4 CD6_12 ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95 ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
real*4 CD8_21 ! (Mpc-3) Comoving density at z=8.21 (in gal/dex/Mpc3 unit)
real*4 CD8_91 ! (Mpc-3) Comoving density at z=8.91 (in gal/dex/Mpc3 unit)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fuv_ext.dat' ! Rest-Frame Galex-FUV luminosity functions predicted
by the G.A.S. model, Extinguish luminosity functions
integer*4 nr__1
parameter (nr__1=20) ! Number of records
character*173 ar__1 ! Full-size record
real*8 FUVMAG_1 ! (mag) Absolute FUV magnitude (AB)
real*4 CD0_30_1 ! (Mpc-3) Comoving density at z=0.30 (in gal/dex/Mpc3 unit)
real*4 CD0_51_1 ! (Mpc-3) Comoving density at z=0.51 (in gal/dex/Mpc3 unit)
real*4 CD0_90_1 ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_16_1 ! (Mpc-3) Comoving density at z=1.16 (in gal/dex/Mpc3 unit)
real*4 CD2_12_1 ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD3_02_1 ! (Mpc-3) Comoving density at z=3.02 (in gal/dex/Mpc3 unit)
real*4 CD3_99_1 ! (Mpc-3) Comoving density at z=3.99 (in gal/dex/Mpc3 unit)
real*4 CD4_98_1 ! (Mpc-3) Comoving density at z=4.98 (in gal/dex/Mpc3 unit)
real*4 CD6_12_1 ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_1 ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
real*4 CD8_21_1 ! (Mpc-3) Comoving density at z=8.21 (in gal/dex/Mpc3 unit)
real*4 CD8_91_1 ! (Mpc-3) Comoving density at z=8.91 (in gal/dex/Mpc3 unit)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'totlir.dat' ! Total InfraRed luminosity functions predicted by the
G.A.S. model, total IR luminosity functions
integer*4 nr__2
parameter (nr__2=18) ! Number of records
character*172 ar__2 ! Full-size record
real*4 logLIR ! ([Lsun]) Infrared luminosity
real*4 CD0_10 ! (Mpc-3) Comoving density at z=0.10 (in gal/dex/Mpc3 unit)
real*4 CD0_41 ! (Mpc-3) Comoving density at z=0.41 (in gal/dex/Mpc3 unit)
real*4 CD0_59 ! (Mpc-3) Comoving density at z=0.59 (in gal/dex/Mpc3 unit)
real*4 CD0_90_2 ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_21 ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD1_53 ! (Mpc-3) Comoving density at z=1.53 (in gal/dex/Mpc3 unit)
real*4 CD2_07 ! (Mpc-3) Comoving density at z=2.07 (in gal/dex/Mpc3 unit)
real*4 CD2_84 ! (Mpc-3) Comoving density at z=2.84 (in gal/dex/Mpc3 unit)
real*4 CD3_69 ! (Mpc-3) Comoving density at z=3.69 (in gal/dex/Mpc3 unit)
real*4 CD4_75 ! (Mpc-3) Comoving density at z=4.75 (in gal/dex/Mpc3 unit)
real*4 CD6_12_2 ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_2 ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'birlir.dat' ! Total InfraRed luminosity functions predicted by the
G.A.S. model, birth cloud IR luminosity functions
integer*4 nr__3
parameter (nr__3=18) ! Number of records
character*172 ar__3 ! Full-size record
real*4 logLIR_1 ! ([Lsun]) Infrared luminosity
real*4 CD0_10_1 ! (Mpc-3) Comoving density at z=0.10 (in gal/dex/Mpc3 unit)
real*4 CD0_41_1 ! (Mpc-3) Comoving density at z=0.41 (in gal/dex/Mpc3 unit)
real*4 CD0_59_1 ! (Mpc-3) Comoving density at z=0.59 (in gal/dex/Mpc3 unit)
real*4 CD0_90_3 ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_21_1 ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD1_53_1 ! (Mpc-3) Comoving density at z=1.53 (in gal/dex/Mpc3 unit)
real*4 CD2_07_1 ! (Mpc-3) Comoving density at z=2.07 (in gal/dex/Mpc3 unit)
real*4 CD2_84_1 ! (Mpc-3) Comoving density at z=2.84 (in gal/dex/Mpc3 unit)
real*4 CD3_69_1 ! (Mpc-3) Comoving density at z=3.69 (in gal/dex/Mpc3 unit)
real*4 CD4_75_1 ! (Mpc-3) Comoving density at z=4.75 (in gal/dex/Mpc3 unit)
real*4 CD6_12_3 ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_3 ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
C=============================================================================
C Loading file 'fuv_int.dat' ! Rest-Frame Galex-FUV luminosity functions predicted
* by the G.A.S. model, Intrinsic luminosity functions
C Format for file interpretation
1 format(
+ F7.3,3X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,
+ 5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4)
C Effective file loading
open(unit=1,status='old',file=
+'fuv_int.dat')
write(6,*) '....Loading file: fuv_int.dat'
do i__=1,20
read(1,'(A173)')ar__
read(ar__,1)
+ FUVMAG,CD0_30,CD0_51,CD0_90,CD1_16,CD2_12,CD3_02,CD3_99,
+ CD4_98,CD6_12,CD6_95,CD8_21,CD8_91
c ..............Just test output...........
write(6,1)
+ FUVMAG,CD0_30,CD0_51,CD0_90,CD1_16,CD2_12,CD3_02,CD3_99,
+ CD4_98,CD6_12,CD6_95,CD8_21,CD8_91
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'fuv_ext.dat' ! Rest-Frame Galex-FUV luminosity functions predicted
* by the G.A.S. model, Extinguish luminosity functions
C Format for file interpretation
2 format(
+ F7.3,3X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,
+ 5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4)
C Effective file loading
open(unit=1,status='old',file=
+'fuv_ext.dat')
write(6,*) '....Loading file: fuv_ext.dat'
do i__=1,20
read(1,'(A173)')ar__1
read(ar__1,2)
+ FUVMAG_1,CD0_30_1,CD0_51_1,CD0_90_1,CD1_16_1,CD2_12_1,
+ CD3_02_1,CD3_99_1,CD4_98_1,CD6_12_1,CD6_95_1,CD8_21_1,CD8_91_1
c ..............Just test output...........
write(6,2)
+ FUVMAG_1,CD0_30_1,CD0_51_1,CD0_90_1,CD1_16_1,CD2_12_1,
+ CD3_02_1,CD3_99_1,CD4_98_1,CD6_12_1,CD6_95_1,CD8_21_1,CD8_91_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'totlir.dat' ! Total InfraRed luminosity functions predicted by the
* G.A.S. model, total IR luminosity functions
C Format for file interpretation
3 format(
+ F6.3,3X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,
+ 5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4)
C Effective file loading
open(unit=1,status='old',file=
+'totlir.dat')
write(6,*) '....Loading file: totlir.dat'
do i__=1,18
read(1,'(A172)')ar__2
read(ar__2,3)
+ logLIR,CD0_10,CD0_41,CD0_59,CD0_90_2,CD1_21,CD1_53,CD2_07,
+ CD2_84,CD3_69,CD4_75,CD6_12_2,CD6_95_2
c ..............Just test output...........
write(6,3)
+ logLIR,CD0_10,CD0_41,CD0_59,CD0_90_2,CD1_21,CD1_53,CD2_07,
+ CD2_84,CD3_69,CD4_75,CD6_12_2,CD6_95_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'birlir.dat' ! Total InfraRed luminosity functions predicted by the
* G.A.S. model, birth cloud IR luminosity functions
C Format for file interpretation
4 format(
+ F6.3,3X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,
+ 5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4,5X,E9.4)
C Effective file loading
open(unit=1,status='old',file=
+'birlir.dat')
write(6,*) '....Loading file: birlir.dat'
do i__=1,18
read(1,'(A172)')ar__3
read(ar__3,4)
+ logLIR_1,CD0_10_1,CD0_41_1,CD0_59_1,CD0_90_3,CD1_21_1,
+ CD1_53_1,CD2_07_1,CD2_84_1,CD3_69_1,CD4_75_1,CD6_12_3,CD6_95_3
c ..............Just test output...........
write(6,4)
+ logLIR_1,CD0_10_1,CD0_41_1,CD0_59_1,CD0_90_3,CD1_21_1,
+ CD1_53_1,CD2_07_1,CD2_84_1,CD3_69_1,CD4_75_1,CD6_12_3,CD6_95_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end