Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/615/A78 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-19
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 ! Model name (1)
real*8 NUV ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1 ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2 ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2 ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U ! (mag) U absolute magnitude of the spectral model
real*8 B ! (mag) B absolute magnitude of the spectral model
real*8 V ! (mag) V absolute magnitude of the spectral model
real*8 R ! (mag) R absolute magnitude of the spectral model
real*8 I ! (mag) I absolute magnitude of the spectral model
real*8 J ! (mag) J absolute magnitude of the spectral model
real*8 H ! (mag) H absolute magnitude of the spectral model
real*8 Ks ! (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 ! Model name (1)
real*8 NUV_1 ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_1 ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_1 ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_1 ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_1 ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_1 ! (mag) U absolute magnitude of the spectral model
real*8 B_1 ! (mag) B absolute magnitude of the spectral model
real*8 V_1 ! (mag) V absolute magnitude of the spectral model
real*8 R_1 ! (mag) R absolute magnitude of the spectral model
real*8 I_1 ! (mag) I absolute magnitude of the spectral model
real*8 J_1 ! (mag) J absolute magnitude of the spectral model
real*8 H_1 ! (mag) H absolute magnitude of the spectral model
real*8 Ks_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 ! Model name (1)
real*8 NUV_2 ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_2 ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_2 ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_2 ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_2 ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_2 ! (mag) U absolute magnitude of the spectral model
real*8 B_2 ! (mag) B absolute magnitude of the spectral model
real*8 V_2 ! (mag) V absolute magnitude of the spectral model
real*8 R_2 ! (mag) R absolute magnitude of the spectral model
real*8 I_2 ! (mag) I absolute magnitude of the spectral model
real*8 J_2 ! (mag) J absolute magnitude of the spectral model
real*8 H_2 ! (mag) H absolute magnitude of the spectral model
real*8 Ks_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 ! Model name (1)
real*8 NUV_3 ! (mag) NUV absolute magnitude of the spectral model
real*8 FUV_3 ! (mag) FUV absolute magnitude of the spectral model
real*8 UVW1_3 ! (mag) UVW1 absolute magnitude of the spectral model
real*8 UVW2_3 ! (mag) UVW2 absolute magnitude of the spectral model
real*8 UVM2_3 ! (mag) UVM2 absolute magnitude of the spectral model
real*8 U_3 ! (mag) U absolute magnitude of the spectral model
real*8 B_3 ! (mag) B absolute magnitude of the spectral model
real*8 V_3 ! (mag) V absolute magnitude of the spectral model
real*8 R_3 ! (mag) R absolute magnitude of the spectral model
real*8 I_3 ! (mag) I absolute magnitude of the spectral model
real*8 J_3 ! (mag) J absolute magnitude of the spectral model
real*8 H_3 ! (mag) H absolute magnitude of the spectral model
real*8 Ks_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,NUV,FUV,UVW1,UVW2,UVM2,U,B,V,R,I,J,H,Ks
c ..............Just test output...........
write(6,1)Model,NUV,FUV,UVW1,UVW2,UVM2,U,B,V,R,I,J,H,Ks
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,NUV_1,FUV_1,UVW1_1,UVW2_1,UVM2_1,U_1,B_1,V_1,R_1,I_1,
+ J_1,H_1,Ks_1
c ..............Just test output...........
write(6,2)
+ Model_1,NUV_1,FUV_1,UVW1_1,UVW2_1,UVM2_1,U_1,B_1,V_1,R_1,I_1,
+ J_1,H_1,Ks_1
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,NUV_2,FUV_2,UVW1_2,UVW2_2,UVM2_2,U_2,B_2,V_2,R_2,I_2,
+ J_2,H_2,Ks_2
c ..............Just test output...........
write(6,3)
+ Model_2,NUV_2,FUV_2,UVW1_2,UVW2_2,UVM2_2,U_2,B_2,V_2,R_2,I_2,
+ J_2,H_2,Ks_2
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,NUV_3,FUV_3,UVW1_3,UVW2_3,UVM2_3,U_3,B_3,V_3,R_3,I_3,
+ J_3,H_3,Ks_3
c ..............Just test output...........
write(6,4)
+ Model_3,NUV_3,FUV_3,UVW1_3,UVW2_3,UVM2_3,U_3,B_3,V_3,R_3,I_3,
+ J_3,H_3,Ks_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end