Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/615/A78 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 2024-Apr-20
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/615/A78 Spectral models for binary products (Goetberg+, 2018)
*================================================================================
*Spectral models for binary products: Unifying Subdwarfs and Wolf-Rayet stars as
*a sequence of stripped-envelope stars.
* Goetberg Y., de Mink S.E., Groh J.H., Kupfer T., Crowther P.A.,
* Zapartas E., Renzo M.
* <Astron. Astrophys. 615, A78 (2018)>
* =2018A&A...615A..78G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'm0002.dat' ! Absolute magnitudes of the spectral models of
stripped stars in the grid grid_0002, Z=0.0002
integer*4 nr__
parameter (nr__=23) ! Number of records
character*258 ar__ ! Full-size record
character*32 Model (nr__) ! Model name (1)
real*8 NUV (nr__) ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV (nr__) ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1 (nr__) ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2 (nr__) ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2 (nr__) ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U (nr__) ! (mag) U absolute magnitude of the spectral model
real*8 B (nr__) ! (mag) B absolute magnitude of the spectral model
real*8 V (nr__) ! (mag) V absolute magnitude of the spectral model
real*8 R (nr__) ! (mag) R absolute magnitude of the spectral model
real*8 I (nr__) ! (mag) I absolute magnitude of the spectral model
real*8 J (nr__) ! (mag) J absolute magnitude of the spectral model
real*8 H (nr__) ! (mag) H absolute magnitude of the spectral model
real*8 Ks (nr__) ! (mag) Ks absolute magnitude of the spectral model
*Note (1): Model name is subdirectory grid_0002 for m0002.dat,
* grid_002 for m002.dat, grid_006 for m006.dat and grid_014 for m014.dat.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'm002.dat' ! Absolute magnitudes of the spectral models of
stripped stars in the grid grid_002, Z=0.002
integer*4 nr__1
parameter (nr__1=23) ! Number of records
character*258 ar__1 ! Full-size record
character*32 Model_1 (nr__1) ! Model name (1)
real*8 NUV_1 (nr__1) ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_1 (nr__1) ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_1 (nr__1) ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_1 (nr__1) ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_1 (nr__1) ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_1 (nr__1) ! (mag) U absolute magnitude of the spectral model
real*8 B_1 (nr__1) ! (mag) B absolute magnitude of the spectral model
real*8 V_1 (nr__1) ! (mag) V absolute magnitude of the spectral model
real*8 R_1 (nr__1) ! (mag) R absolute magnitude of the spectral model
real*8 I_1 (nr__1) ! (mag) I absolute magnitude of the spectral model
real*8 J_1 (nr__1) ! (mag) J absolute magnitude of the spectral model
real*8 H_1 (nr__1) ! (mag) H absolute magnitude of the spectral model
real*8 Ks_1 (nr__1) ! (mag) Ks absolute magnitude of the spectral model
*Note (1): Model name is subdirectory grid_0002 for m0002.dat,
* grid_002 for m002.dat, grid_006 for m006.dat and grid_014 for m014.dat.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'm006.dat' ! Absolute magnitudes of the spectral models of
stripped stars in the grid grid_006, Z=0.006
integer*4 nr__2
parameter (nr__2=23) ! Number of records
character*258 ar__2 ! Full-size record
character*32 Model_2 (nr__2) ! Model name (1)
real*8 NUV_2 (nr__2) ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_2 (nr__2) ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_2 (nr__2) ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_2 (nr__2) ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_2 (nr__2) ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_2 (nr__2) ! (mag) U absolute magnitude of the spectral model
real*8 B_2 (nr__2) ! (mag) B absolute magnitude of the spectral model
real*8 V_2 (nr__2) ! (mag) V absolute magnitude of the spectral model
real*8 R_2 (nr__2) ! (mag) R absolute magnitude of the spectral model
real*8 I_2 (nr__2) ! (mag) I absolute magnitude of the spectral model
real*8 J_2 (nr__2) ! (mag) J absolute magnitude of the spectral model
real*8 H_2 (nr__2) ! (mag) H absolute magnitude of the spectral model
real*8 Ks_2 (nr__2) ! (mag) Ks absolute magnitude of the spectral model
*Note (1): Model name is subdirectory grid_0002 for m0002.dat,
* grid_002 for m002.dat, grid_006 for m006.dat and grid_014 for m014.dat.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'm014.dat' ! Absolute magnitudes of the spectral models of
stripped stars in the grid grid_014, Z=0.014
integer*4 nr__3
parameter (nr__3=23) ! Number of records
character*258 ar__3 ! Full-size record
character*32 Model_3 (nr__3) ! Model name (1)
real*8 NUV_3 (nr__3) ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_3 (nr__3) ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_3 (nr__3) ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_3 (nr__3) ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_3 (nr__3) ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_3 (nr__3) ! (mag) U absolute magnitude of the spectral model
real*8 B_3 (nr__3) ! (mag) B absolute magnitude of the spectral model
real*8 V_3 (nr__3) ! (mag) V absolute magnitude of the spectral model
real*8 R_3 (nr__3) ! (mag) R absolute magnitude of the spectral model
real*8 I_3 (nr__3) ! (mag) I absolute magnitude of the spectral model
real*8 J_3 (nr__3) ! (mag) J absolute magnitude of the spectral model
real*8 H_3 (nr__3) ! (mag) H absolute magnitude of the spectral model
real*8 Ks_3 (nr__3) ! (mag) Ks absolute magnitude of the spectral model
*Note (1): Model name is subdirectory grid_0002 for m0002.dat,
* grid_002 for m002.dat, grid_006 for m006.dat and grid_014 for m014.dat.
C=============================================================================
C Loading file 'm0002.dat' ! Absolute magnitudes of the spectral models of
* stripped stars in the grid grid_0002, Z=0.0002
C Format for file interpretation
1 format(
+ A32,1X,F16.13,1X,F16.13,1X,F16.13,1X,F17.13,1X,F17.14,1X,
+ F17.14,1X,F16.13,1X,F16.13,1X,F17.14,1X,F16.13,1X,F16.13,1X,
+ F16.13,1X,F17.14)
C Effective file loading
open(unit=1,status='old',file=
+'m0002.dat')
write(6,*) '....Loading file: m0002.dat'
do i__=1,23
read(1,'(A258)')ar__
read(ar__,1)
+ Model(i__),NUV(i__),FUV(i__),UVW1(i__),UVW2(i__),UVM2(i__),
+ U(i__),B(i__),V(i__),R(i__),I(i__),J(i__),H(i__),Ks(i__)
c ..............Just test output...........
write(6,1)
+ Model(i__),NUV(i__),FUV(i__),UVW1(i__),UVW2(i__),UVM2(i__),
+ U(i__),B(i__),V(i__),R(i__),I(i__),J(i__),H(i__),Ks(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'm002.dat' ! Absolute magnitudes of the spectral models of
* stripped stars in the grid grid_002, Z=0.002
C Format for file interpretation
2 format(
+ A32,1X,F16.13,1X,F16.13,1X,F16.13,1X,F17.13,1X,F17.14,1X,
+ F17.14,1X,F16.13,1X,F16.13,1X,F17.14,1X,F16.13,1X,F16.13,1X,
+ F16.13,1X,F17.14)
C Effective file loading
open(unit=1,status='old',file=
+'m002.dat')
write(6,*) '....Loading file: m002.dat'
do i__=1,23
read(1,'(A258)')ar__1
read(ar__1,2)
+ Model_1(i__),NUV_1(i__),FUV_1(i__),UVW1_1(i__),UVW2_1(i__),
+ UVM2_1(i__),U_1(i__),B_1(i__),V_1(i__),R_1(i__),I_1(i__),
+ J_1(i__),H_1(i__),Ks_1(i__)
c ..............Just test output...........
write(6,2)
+ Model_1(i__),NUV_1(i__),FUV_1(i__),UVW1_1(i__),UVW2_1(i__),
+ UVM2_1(i__),U_1(i__),B_1(i__),V_1(i__),R_1(i__),I_1(i__),
+ J_1(i__),H_1(i__),Ks_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'm006.dat' ! Absolute magnitudes of the spectral models of
* stripped stars in the grid grid_006, Z=0.006
C Format for file interpretation
3 format(
+ A32,1X,F16.13,1X,F16.13,1X,F16.13,1X,F17.13,1X,F17.14,1X,
+ F17.14,1X,F16.13,1X,F16.13,1X,F17.14,1X,F16.13,1X,F16.13,1X,
+ F16.13,1X,F17.14)
C Effective file loading
open(unit=1,status='old',file=
+'m006.dat')
write(6,*) '....Loading file: m006.dat'
do i__=1,23
read(1,'(A258)')ar__2
read(ar__2,3)
+ Model_2(i__),NUV_2(i__),FUV_2(i__),UVW1_2(i__),UVW2_2(i__),
+ UVM2_2(i__),U_2(i__),B_2(i__),V_2(i__),R_2(i__),I_2(i__),
+ J_2(i__),H_2(i__),Ks_2(i__)
c ..............Just test output...........
write(6,3)
+ Model_2(i__),NUV_2(i__),FUV_2(i__),UVW1_2(i__),UVW2_2(i__),
+ UVM2_2(i__),U_2(i__),B_2(i__),V_2(i__),R_2(i__),I_2(i__),
+ J_2(i__),H_2(i__),Ks_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'm014.dat' ! Absolute magnitudes of the spectral models of
* stripped stars in the grid grid_014, Z=0.014
C Format for file interpretation
4 format(
+ A32,1X,F16.13,1X,F16.13,1X,F16.13,1X,F17.13,1X,F17.14,1X,
+ F17.14,1X,F16.13,1X,F16.13,1X,F17.14,1X,F16.13,1X,F16.13,1X,
+ F16.13,1X,F17.14)
C Effective file loading
open(unit=1,status='old',file=
+'m014.dat')
write(6,*) '....Loading file: m014.dat'
do i__=1,23
read(1,'(A258)')ar__3
read(ar__3,4)
+ Model_3(i__),NUV_3(i__),FUV_3(i__),UVW1_3(i__),UVW2_3(i__),
+ UVM2_3(i__),U_3(i__),B_3(i__),V_3(i__),R_3(i__),I_3(i__),
+ J_3(i__),H_3(i__),Ks_3(i__)
c ..............Just test output...........
write(6,4)
+ Model_3(i__),NUV_3(i__),FUV_3(i__),UVW1_3(i__),UVW2_3(i__),
+ UVM2_3(i__),U_3(i__),B_3(i__),V_3(i__),R_3(i__),I_3(i__),
+ J_3(i__),H_3(i__),Ks_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end