Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/112/457 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+AS/112/457 Photopolarimetry of BM And (Grinin+, 1995)
*================================================================================
*Dust around young stars. Photopolarimetric observations of the
*T Tauri star BM Andromedae
* GRININ V.P., KOLOTILOV E.A., ROSTOPCHINA A.
* <Astron. Astrophys. Suppl. Ser. 112, 457 (1995)>
* =1995A&AS..112..457G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea' ! BM And photoelectric UBV observations
integer*4 nr__
parameter (nr__=120) ! Number of records
character*31 ar__ ! Full-size record
real*8 JD (nr__) ! (d) Julian date
real*4 Vmag (nr__) ! (mag) V magnitude
character*1 u_Vmag (nr__) ! Uncertainty flag (:) on V magnitude
real*4 U_B (nr__) ! (mag) []? U-B colour index
character*1 u_U_B (nr__) ! Uncertainty flag (:) on U-B
real*4 B_V (nr__) ! (mag) []? B-V colour index
character*1 u_B_V (nr__) ! Uncertainty flag (:) on B-V
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tableb' ! Data of simultaneous BM And and UBVRI
photometry and polarimetry
integer*4 nr__1
parameter (nr__1=99) ! Number of records
character*142 ar__1 ! Full-size record
real*8 JD_1 (nr__1) ! (d) Julian day
real*4 Vmag_1 (nr__1) ! (mag) V magnitude
real*4 U_B_1 (nr__1) ! (mag) []? U-B colour index
character*1 u_U_B_1 (nr__1) ! Uncertainty flag (:) on U-B
real*4 B_V_1 (nr__1) ! (mag) []? B-V colour index
real*4 V_R (nr__1) ! (mag) []? V-R colour index
real*4 V_I (nr__1) ! (mag) []? V-I colour index
real*4 P_U (nr__1) ! (%) []? Degree of linear polarization in
* U passband
real*4 e_P_U (nr__1) ! (%) []? Error on P(U)
real*4 PA_U (nr__1) ! (deg) []? Positional angle of polarization in U
real*4 e_PA_U (nr__1) ! (deg) []? Error on PA(U)
real*4 P_B (nr__1) ! (%) []? Degree of linear polarization in
* B passband
real*4 e_P_B (nr__1) ! (%) []? Error on P(B)
real*4 PA_B (nr__1) ! (deg) []? Positional angle of polarization in B
real*4 e_PA_B (nr__1) ! (deg) []? Error on PA(B)
real*4 P_V (nr__1) ! (%) []? Degree of linear polarization in
* V passband
real*4 e_P_V (nr__1) ! (%) []? Error on P(V)
real*4 PA_V (nr__1) ! (deg) []? Positional angle of polarization in V
real*4 e_PA_V (nr__1) ! (deg) []? Error on PA(V)
real*4 P_R (nr__1) ! (%) []? Degree of linear polarization in
* R passband
real*4 e_P_R (nr__1) ! (%) []? Error on P(R)
real*4 PA_R (nr__1) ! (deg) []? Positional angle of polarization in R
real*4 e_PA_R (nr__1) ! (deg) []? Error on PA(R)
real*4 P_I (nr__1) ! (%) []? Degree of linear polarization in
* I passband
real*4 e_P_I (nr__1) ! (%) []? Error on P(I)
real*4 PA_I (nr__1) ! (deg) []? Positional angle of polarization in I
real*4 e_PA_I (nr__1) ! (deg) []? Error on PA(I)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablec' ! Data of polarimetry of stars in the
neighbourhood of BM And
integer*4 nr__2
parameter (nr__2=11) ! Number of records
character*114 ar__2 ! Full-size record
character*8 BD (nr__2) ! BD designation
real*4 P_U_1 (nr__2) ! (%) []? Degree of linear polarization in
* U passband
real*4 e_P_U_1 (nr__2) ! (%) []? Error on P(U)
real*4 PA_U_1 (nr__2) ! (deg) []? Positional angle of polarization in U
real*4 e_PA_U_1 (nr__2) ! (deg) []? Error on PA(U)
real*4 P_B_1 (nr__2) ! (%) Degree of linear polarization in B passband
real*4 e_P_B_1 (nr__2) ! (%) Error on P(B)
real*4 PA_B_1 (nr__2) ! (deg) Positional angle of polarization in B
real*4 e_PA_B_1 (nr__2) ! (deg) Error on PA(B)
real*4 P_V_1 (nr__2) ! (%) Degree of linear polarization in V passband
real*4 e_P_V_1 (nr__2) ! (%) Error on P(V)
real*4 PA_V_1 (nr__2) ! (deg) Positional angle of polarization in V
real*4 e_PA_V_1 (nr__2) ! (deg) Error on PA(V)
real*4 P_R_1 (nr__2) ! (%) Degree of linear polarization in R passband
real*4 e_P_R_1 (nr__2) ! (%) Error on P(R)
real*4 PA_R_1 (nr__2) ! (deg) Positional angle of polarization in R
real*4 e_PA_R_1 (nr__2) ! (deg) Error on PA(R)
real*4 P_I_1 (nr__2) ! (%) Degree of linear polarization in I passband
real*4 e_P_I_1 (nr__2) ! (%) Error on P(I)
real*4 PA_I_1 (nr__2) ! (deg) Positional angle of polarization in I
real*4 e_PA_I_1 (nr__2) ! (deg) Error on PA(I)
C=============================================================================
C Loading file 'tablea' ! BM And photoelectric UBV observations
C Format for file interpretation
1 format(1X,F11.3,1X,F5.2,A1,1X,F4.2,A1,1X,F4.2,A1)
C Effective file loading
open(unit=1,status='old',file=
+'tablea')
write(6,*) '....Loading file: tablea'
do i__=1,120
read(1,'(A31)')ar__
read(ar__,1)
+ JD(i__),Vmag(i__),u_Vmag(i__),U_B(i__),u_U_B(i__),B_V(i__),
+ u_B_V(i__)
if(ar__(21:24) .EQ. '') U_B(i__) = rNULL__
if(ar__(27:30) .EQ. '') B_V(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ JD(i__),Vmag(i__),u_Vmag(i__),U_B(i__),u_U_B(i__),B_V(i__),
+ u_B_V(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tableb' ! Data of simultaneous BM And and UBVRI
* photometry and polarimetry
C Format for file interpretation
2 format(
+ F11.3,1X,F5.2,1X,F4.2,A1,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,
+ F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tableb')
write(6,*) '....Loading file: tableb'
do i__=1,99
read(1,'(A142)')ar__1
read(ar__1,2)
+ JD_1(i__),Vmag_1(i__),U_B_1(i__),u_U_B_1(i__),B_V_1(i__),
+ V_R(i__),V_I(i__),P_U(i__),e_P_U(i__),PA_U(i__),e_PA_U(i__),
+ P_B(i__),e_P_B(i__),PA_B(i__),e_PA_B(i__),P_V(i__),e_P_V(i__),
+ PA_V(i__),e_PA_V(i__),P_R(i__),e_P_R(i__),PA_R(i__),
+ e_PA_R(i__),P_I(i__),e_P_I(i__),PA_I(i__),e_PA_I(i__)
if(ar__1(19:22) .EQ. '') U_B_1(i__) = rNULL__
if(ar__1(24:27) .EQ. '') B_V_1(i__) = rNULL__
if(ar__1(29:32) .EQ. '') V_R(i__) = rNULL__
if(ar__1(34:37) .EQ. '') V_I(i__) = rNULL__
if(ar__1(39:42) .EQ. '') P_U(i__) = rNULL__
if(ar__1(44:47) .EQ. '') e_P_U(i__) = rNULL__
if(ar__1(49:53) .EQ. '') PA_U(i__) = rNULL__
if(ar__1(55:58) .EQ. '') e_PA_U(i__) = rNULL__
if(ar__1(60:63) .EQ. '') P_B(i__) = rNULL__
if(ar__1(65:68) .EQ. '') e_P_B(i__) = rNULL__
if(ar__1(70:74) .EQ. '') PA_B(i__) = rNULL__
if(ar__1(76:79) .EQ. '') e_PA_B(i__) = rNULL__
if(ar__1(81:84) .EQ. '') P_V(i__) = rNULL__
if(ar__1(86:89) .EQ. '') e_P_V(i__) = rNULL__
if(ar__1(91:95) .EQ. '') PA_V(i__) = rNULL__
if(ar__1(97:100) .EQ. '') e_PA_V(i__) = rNULL__
if(ar__1(102:105) .EQ. '') P_R(i__) = rNULL__
if(ar__1(107:110) .EQ. '') e_P_R(i__) = rNULL__
if(ar__1(112:116) .EQ. '') PA_R(i__) = rNULL__
if(ar__1(118:121) .EQ. '') e_PA_R(i__) = rNULL__
if(ar__1(123:126) .EQ. '') P_I(i__) = rNULL__
if(ar__1(128:131) .EQ. '') e_P_I(i__) = rNULL__
if(ar__1(133:137) .EQ. '') PA_I(i__) = rNULL__
if(ar__1(139:142) .EQ. '') e_PA_I(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ JD_1(i__),Vmag_1(i__),U_B_1(i__),u_U_B_1(i__),B_V_1(i__),
+ V_R(i__),V_I(i__),P_U(i__),e_P_U(i__),PA_U(i__),e_PA_U(i__),
+ P_B(i__),e_P_B(i__),PA_B(i__),e_PA_B(i__),P_V(i__),e_P_V(i__),
+ PA_V(i__),e_PA_V(i__),P_R(i__),e_P_R(i__),PA_R(i__),
+ e_PA_R(i__),P_I(i__),e_P_I(i__),PA_I(i__),e_PA_I(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablec' ! Data of polarimetry of stars in the
* neighbourhood of BM And
C Format for file interpretation
3 format(
+ A8,2X,F4.2,1X,F4.2,2X,F4.1,1X,F3.1,2X,F4.2,1X,F4.2,2X,F4.1,1X,
+ F3.1,2X,F4.2,1X,F4.2,2X,F4.1,1X,F3.1,2X,F4.2,1X,F4.2,2X,F4.1,
+ 1X,F3.1,2X,F4.2,1X,F4.2,2X,F4.1,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'tablec')
write(6,*) '....Loading file: tablec'
do i__=1,11
read(1,'(A114)')ar__2
read(ar__2,3)
+ BD(i__),P_U_1(i__),e_P_U_1(i__),PA_U_1(i__),e_PA_U_1(i__),
+ P_B_1(i__),e_P_B_1(i__),PA_B_1(i__),e_PA_B_1(i__),P_V_1(i__),
+ e_P_V_1(i__),PA_V_1(i__),e_PA_V_1(i__),P_R_1(i__),
+ e_P_R_1(i__),PA_R_1(i__),e_PA_R_1(i__),P_I_1(i__),
+ e_P_I_1(i__),PA_I_1(i__),e_PA_I_1(i__)
if(ar__2(11:14) .EQ. '') P_U_1(i__) = rNULL__
if(ar__2(16:19) .EQ. '') e_P_U_1(i__) = rNULL__
if(ar__2(22:25) .EQ. '') PA_U_1(i__) = rNULL__
if(ar__2(27:29) .EQ. '') e_PA_U_1(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ BD(i__),P_U_1(i__),e_P_U_1(i__),PA_U_1(i__),e_PA_U_1(i__),
+ P_B_1(i__),e_P_B_1(i__),PA_B_1(i__),e_PA_B_1(i__),P_V_1(i__),
+ e_P_V_1(i__),PA_V_1(i__),e_PA_V_1(i__),P_R_1(i__),
+ e_P_R_1(i__),PA_R_1(i__),e_PA_R_1(i__),P_I_1(i__),
+ e_P_I_1(i__),PA_I_1(i__),e_PA_I_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end