Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/627/A132 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 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 (nr__) ! (mag) Absolute FUV magnitude (AB)
real*4 CD0_30 (nr__) ! (Mpc-3) Comoving density at z=0.30 (in gal/dex/Mpc3 unit)
real*4 CD0_51 (nr__) ! (Mpc-3) Comoving density at z=0.51 (in gal/dex/Mpc3 unit)
real*4 CD0_90 (nr__) ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_16 (nr__) ! (Mpc-3) Comoving density at z=1.16 (in gal/dex/Mpc3 unit)
real*4 CD2_12 (nr__) ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD3_02 (nr__) ! (Mpc-3) Comoving density at z=3.02 (in gal/dex/Mpc3 unit)
real*4 CD3_99 (nr__) ! (Mpc-3) Comoving density at z=3.99 (in gal/dex/Mpc3 unit)
real*4 CD4_98 (nr__) ! (Mpc-3) Comoving density at z=4.98 (in gal/dex/Mpc3 unit)
real*4 CD6_12 (nr__) ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95 (nr__) ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
real*4 CD8_21 (nr__) ! (Mpc-3) Comoving density at z=8.21 (in gal/dex/Mpc3 unit)
real*4 CD8_91 (nr__) ! (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 (nr__1) ! (mag) Absolute FUV magnitude (AB)
real*4 CD0_30_1 (nr__1) ! (Mpc-3) Comoving density at z=0.30 (in gal/dex/Mpc3 unit)
real*4 CD0_51_1 (nr__1) ! (Mpc-3) Comoving density at z=0.51 (in gal/dex/Mpc3 unit)
real*4 CD0_90_1 (nr__1) ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_16_1 (nr__1) ! (Mpc-3) Comoving density at z=1.16 (in gal/dex/Mpc3 unit)
real*4 CD2_12_1 (nr__1) ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD3_02_1 (nr__1) ! (Mpc-3) Comoving density at z=3.02 (in gal/dex/Mpc3 unit)
real*4 CD3_99_1 (nr__1) ! (Mpc-3) Comoving density at z=3.99 (in gal/dex/Mpc3 unit)
real*4 CD4_98_1 (nr__1) ! (Mpc-3) Comoving density at z=4.98 (in gal/dex/Mpc3 unit)
real*4 CD6_12_1 (nr__1) ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_1 (nr__1) ! (Mpc-3) Comoving density at z=6.95 (in gal/dex/Mpc3 unit)
real*4 CD8_21_1 (nr__1) ! (Mpc-3) Comoving density at z=8.21 (in gal/dex/Mpc3 unit)
real*4 CD8_91_1 (nr__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 (nr__2) ! ([Lsun]) Infrared luminosity
real*4 CD0_10 (nr__2) ! (Mpc-3) Comoving density at z=0.10 (in gal/dex/Mpc3 unit)
real*4 CD0_41 (nr__2) ! (Mpc-3) Comoving density at z=0.41 (in gal/dex/Mpc3 unit)
real*4 CD0_59 (nr__2) ! (Mpc-3) Comoving density at z=0.59 (in gal/dex/Mpc3 unit)
real*4 CD0_90_2 (nr__2) ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_21 (nr__2) ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD1_53 (nr__2) ! (Mpc-3) Comoving density at z=1.53 (in gal/dex/Mpc3 unit)
real*4 CD2_07 (nr__2) ! (Mpc-3) Comoving density at z=2.07 (in gal/dex/Mpc3 unit)
real*4 CD2_84 (nr__2) ! (Mpc-3) Comoving density at z=2.84 (in gal/dex/Mpc3 unit)
real*4 CD3_69 (nr__2) ! (Mpc-3) Comoving density at z=3.69 (in gal/dex/Mpc3 unit)
real*4 CD4_75 (nr__2) ! (Mpc-3) Comoving density at z=4.75 (in gal/dex/Mpc3 unit)
real*4 CD6_12_2 (nr__2) ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_2 (nr__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 (nr__3) ! ([Lsun]) Infrared luminosity
real*4 CD0_10_1 (nr__3) ! (Mpc-3) Comoving density at z=0.10 (in gal/dex/Mpc3 unit)
real*4 CD0_41_1 (nr__3) ! (Mpc-3) Comoving density at z=0.41 (in gal/dex/Mpc3 unit)
real*4 CD0_59_1 (nr__3) ! (Mpc-3) Comoving density at z=0.59 (in gal/dex/Mpc3 unit)
real*4 CD0_90_3 (nr__3) ! (Mpc-3) Comoving density at z=0.90 (in gal/dex/Mpc3 unit)
real*4 CD1_21_1 (nr__3) ! (Mpc-3) Comoving density at z=2.12 (in gal/dex/Mpc3 unit)
real*4 CD1_53_1 (nr__3) ! (Mpc-3) Comoving density at z=1.53 (in gal/dex/Mpc3 unit)
real*4 CD2_07_1 (nr__3) ! (Mpc-3) Comoving density at z=2.07 (in gal/dex/Mpc3 unit)
real*4 CD2_84_1 (nr__3) ! (Mpc-3) Comoving density at z=2.84 (in gal/dex/Mpc3 unit)
real*4 CD3_69_1 (nr__3) ! (Mpc-3) Comoving density at z=3.69 (in gal/dex/Mpc3 unit)
real*4 CD4_75_1 (nr__3) ! (Mpc-3) Comoving density at z=4.75 (in gal/dex/Mpc3 unit)
real*4 CD6_12_3 (nr__3) ! (Mpc-3) Comoving density at z=6.12 (in gal/dex/Mpc3 unit)
real*4 CD6_95_3 (nr__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(i__),CD0_30(i__),CD0_51(i__),CD0_90(i__),CD1_16(i__),
+ CD2_12(i__),CD3_02(i__),CD3_99(i__),CD4_98(i__),CD6_12(i__),
+ CD6_95(i__),CD8_21(i__),CD8_91(i__)
c ..............Just test output...........
write(6,1)
+ FUVMAG(i__),CD0_30(i__),CD0_51(i__),CD0_90(i__),CD1_16(i__),
+ CD2_12(i__),CD3_02(i__),CD3_99(i__),CD4_98(i__),CD6_12(i__),
+ CD6_95(i__),CD8_21(i__),CD8_91(i__)
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(i__),CD0_30_1(i__),CD0_51_1(i__),CD0_90_1(i__),
+ CD1_16_1(i__),CD2_12_1(i__),CD3_02_1(i__),CD3_99_1(i__),
+ CD4_98_1(i__),CD6_12_1(i__),CD6_95_1(i__),CD8_21_1(i__),
+ CD8_91_1(i__)
c ..............Just test output...........
write(6,2)
+ FUVMAG_1(i__),CD0_30_1(i__),CD0_51_1(i__),CD0_90_1(i__),
+ CD1_16_1(i__),CD2_12_1(i__),CD3_02_1(i__),CD3_99_1(i__),
+ CD4_98_1(i__),CD6_12_1(i__),CD6_95_1(i__),CD8_21_1(i__),
+ CD8_91_1(i__)
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(i__),CD0_10(i__),CD0_41(i__),CD0_59(i__),CD0_90_2(i__),
+ CD1_21(i__),CD1_53(i__),CD2_07(i__),CD2_84(i__),CD3_69(i__),
+ CD4_75(i__),CD6_12_2(i__),CD6_95_2(i__)
c ..............Just test output...........
write(6,3)
+ logLIR(i__),CD0_10(i__),CD0_41(i__),CD0_59(i__),CD0_90_2(i__),
+ CD1_21(i__),CD1_53(i__),CD2_07(i__),CD2_84(i__),CD3_69(i__),
+ CD4_75(i__),CD6_12_2(i__),CD6_95_2(i__)
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(i__),CD0_10_1(i__),CD0_41_1(i__),CD0_59_1(i__),
+ CD0_90_3(i__),CD1_21_1(i__),CD1_53_1(i__),CD2_07_1(i__),
+ CD2_84_1(i__),CD3_69_1(i__),CD4_75_1(i__),CD6_12_3(i__),
+ CD6_95_3(i__)
c ..............Just test output...........
write(6,4)
+ logLIR_1(i__),CD0_10_1(i__),CD0_41_1(i__),CD0_59_1(i__),
+ CD0_90_3(i__),CD1_21_1(i__),CD1_53_1(i__),CD2_07_1(i__),
+ CD2_84_1(i__),CD3_69_1(i__),CD4_75_1(i__),CD6_12_3(i__),
+ CD6_95_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end