Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/373/435 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.5, on 2013-May-23
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/MNRAS/373/435 Angular momentum evolution of Algol binaries (Ibanoglu+, 2006)
*================================================================================
*Angular momentum evolution of Algol binaries.
* Ibanoglu C., Soydugan F., Soydugan E., Dervisoglu A.
* <Mon. Not. R. Astron. Soc., 373, 435-448 (2006)>
* =2006MNRAS.373..435I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Sample of detached Algol-type binaries with
best determined absolute parameters
integer*4 nr__
parameter (nr__=74) ! Number of records
character*100 ar__ ! Full-size record
character*10 Name ! Object name
character*16 SpType ! MK spectral type
real*8 Porb ! (d) Orbital period
real*4 q ! Mass ratio (M2/M1)
real*4 M1 ! (solMass) Mass of the primary
real*4 M2 ! (solMass) Mass of the secondary
real*4 R1 ! (solRad) Radius of the primary
real*4 R2 ! (solRad) Radius of the secondary
real*4 logT1 ! ([K]) Effective temperature of the primary
real*4 logT2 ! ([K]) Effective temperature of the secondary
real*4 logL1 ! ([solLum]) Luninosity of the primary
real*4 logL2 ! ([solLum]) Luninosity of the secondary
character*9 Refs ! References, detailed in refs.dat file
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The absolute parameters of the semidetached
Algol-type binaries
integer*4 nr__1
parameter (nr__1=61) ! Number of records
character*102 ar__1 ! Full-size record
character*10 Name_1 ! Object name
character*18 SpType_1 ! MK spectral type
real*8 Porb_1 ! (d) Orbital period
character*3 SB ! SB type (SB1 or SB2)
real*4 q_1 ! Mass ratio (M2/M1)
real*4 M1_1 ! (solMass) Mass of the primary
real*4 M2_1 ! (solMass) Mass of the secondary
real*4 R1_1 ! (solRad) Radius of the primary
real*4 R2_1 ! (solRad) Radius of the secondary
real*4 logT1_1 ! ([K]) Effective temperature of the primary
real*4 logT2_1 ! ([K]) Effective temperature of the secondary
real*4 logL1_1 ! ([solLum]) Luninosity of the primary
real*4 logL2_1 ! ([solLum]) Luninosity of the secondary
character*6 Refs_1 ! References, detailed in refs.dat file
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__2
parameter (nr__2=94) ! Number of records
character*185 ar__2 ! Full-size record
integer*4 Ref ! Reference number
character*19 BibCode ! BibCode
character*33 Aut ! Author's name
character*127 Com ! Comments
C=============================================================================
C Loading file 'table1.dat' ! Sample of detached Algol-type binaries with
* best determined absolute parameters
C Format for file interpretation
1 format(
+ A10,1X,A16,1X,F7.4,1X,F5.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,A9)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,74
read(1,'(A100)')ar__
read(ar__,1)
+ Name,SpType,Porb,q,M1,M2,R1,R2,logT1,logT2,logL1,logL2,Refs
c ..............Just test output...........
write(6,1)
+ Name,SpType,Porb,q,M1,M2,R1,R2,logT1,logT2,logL1,logL2,Refs
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! The absolute parameters of the semidetached
* Algol-type binaries
C Format for file interpretation
2 format(
+ A10,1X,A18,1X,F7.4,1X,A3,1X,F5.3,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,A6)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,61
read(1,'(A102)')ar__1
read(ar__1,2)
+ Name_1,SpType_1,Porb_1,SB,q_1,M1_1,M2_1,R1_1,R2_1,logT1_1,
+ logT2_1,logL1_1,logL2_1,Refs_1
c ..............Just test output...........
write(6,2)
+ Name_1,SpType_1,Porb_1,SB,q_1,M1_1,M2_1,R1_1,R2_1,logT1_1,
+ logT2_1,logL1_1,logL2_1,Refs_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
3 format(I3,1X,A19,1X,A33,1X,A127)
C Effective file loading
open(unit=1,file='refs.dat', status='old')
write(6,*) '....Loading file: refs.dat'
do i__=1,94
read(1,'(A185)')ar__2
read(ar__2,3)Ref,BibCode,Aut,Com
c ..............Just test output...........
write(6,3)Ref,BibCode,Aut,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end