Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/35/347 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 2026-Oct-15
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/35/347 OB and Supergiants stars in LMC (Philip+, 1979)
*================================================================================
*A deep objective prism survey of two regions in the Large Magellanic Cloud
*for OB and supergiant stars
* Philip A.G.Davis, Sanduleak N.
* <Astron. Astrophys. Suppl. Ser. 35, 347 (1979)>
* =1979A&AS...35..347P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Fields 34B (table 2) and 47B (table 3)
integer*4 nr__
parameter (nr__=312) ! Number of records
character*156 ar__ ! Full-size record
C B1975 position composed of: RA75h RA75m DE75- DE75d DE75m
real*8 RAdeg ! (deg) Right Ascension B1975
real*8 DEdeg ! (deg) Declination B1975
C ---------------------------------- ! (position vector(s) in degrees)
character*1 n_ID ! [*] Indicates a remark (last column)
character*6 ID ! Star identification FF-NNN, FF=34 or 41;
* <[PS79] FF-NNN> in Simbad
integer*4 RA75h ! (h) Right Ascension B1975 (hours)
real*4 RA75m ! (min) Right Ascension B1975 (minutes)
character*1 DE75_ ! Declination B1975 (sign)
integer*4 DE75d ! (deg) Declination B1975 (degrees)
integer*4 DE75m ! (arcmin) Declination B1975 (minutes)
character*7 SpT ! Spectral type: OB, or supergiant
* BI, AI, FI or GI
real*4 Pmag ! (mag) Photographic blue magnitude (accurate to 0.5mag)
character*1 n_Pmag ! [v] 'v' for variable
character*118 Remarks ! Other identifications and remarks (1)
*Note (1): Identifications are listed first, separated by commas, and a
* semi-colon (;) introduce the remarks. Keys to identifications are:
* AL = Andrews & Lindsay 1967IrAJ....8..126A, <[AL67] Cl* N> in Simbad
* B = Brunet et al. 1975A&AS...21..109B, <BI NNN> in Simbad
* BE = Bohannan & Epps 1974A&AS...18...47B, <[BE74] NNN> in Simbad
* FD = Fehrenbach & Duflot 1976A&AS...24..379F, <FD NN> in Simbad
* G,C= Fehrenbach & Duflot 1974A&AS...16..365F, <GV NNN> in Simbad
* L = Luke 1972, unpublished PhD, Univ. Washington
* Ro = Robertson 1974A&AS...15..261R, <Cl* NGC NNNN Rob ANN> in Simbad
* S = Henize 1956ApJS....2..315H, <LHA 120-SNNN> in Simbad
* Sa = Sanduleak 1970CoTol..89....1S, <Sk -DD NNNA> in Simbad
* SO = Stock & Osborne 1976A&AS...24...35S, <SOI NNN> in Simbad
* Wo = Woolley 1963RGOB...66..263W, <[W63b] NNN> in Simbad
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ps79.dat' ! Accurate positions and photometry of [PS79] stars
integer*4 nr__1
parameter (nr__1=312) ! Number of records
character*233 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs (Epoch=J2000)
real*8 RAdeg_1 ! (deg) Right Ascension J2000, Epoch=J2000
real*8 DEdeg_1 ! (deg) Declination J2000, Epoch=J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*6 ID_1 ! Star identification FF-NNN, as in "catalog.dat"
integer*4 RAh ! (h) Right Ascension J2000 (hours) (2)
integer*4 RAm ! (min) Right Ascension J2000 (minutes) (2)
real*4 RAs ! (s) Right Ascension J2000 (seconds) (2)
character*1 DE_ ! Declination J2000 (sign) (2)
integer*4 DEd ! (deg) Declination J2000 (degrees) (2)
integer*4 DEm ! (arcmin) Declination J2000 (minutes) (2)
real*4 DEs ! (arcsec) Declination J2000 (seconds) (2)
character*10 UCAC4 ! Designation of star in UCAC4 (I/322)
character*17 v2MASS ! Designation of star in 2MASS (II/246)
real*4 Bmag ! (mag) B-band magnitude (3)
real*4 Vmag ! (mag) ? V-band magnitude (3)
real*4 B_V ! (mag) ? Color (B-V) (3)
character*39 IDs ! Other designations, with Simbad conventions
character*112 XRem ! Additional remarks for this identification (G1)
*Note (2): position generally from UCAC4 (ICRS, Epoch=J2000), except when noted
* in the "XRem" column
*Note (3): photometry generally from APASS9 (Henden et al., Cat. II/336), except
* when noted in the "XRem" column.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pl39.dat' ! Accurate positions of those stars in field 39
photometrically observed by Shobbrook and
Visvanathan (1987MNRAS.225..947S, Table A1)
integer*4 nr__2
parameter (nr__2=39) ! Number of records
character*130 ar__2 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_2 ! (deg) Right Ascension J2000
real*8 DEdeg_2 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*6 ID_2 ! Star identification FF-NNN
* <[PS79] FF-NNN> in Simbad
integer*4 RA50h ! (h) Right Ascension B1950 (hours)
integer*4 RA50m ! (min) Right Ascension B1950 (minutes)
real*4 RA50s ! (s) Right Ascension B1950 (seconds)
character*1 DE50_ ! Declination B1950 (sign)
integer*4 DE50d ! (deg) Declination B1950 (degrees)
integer*4 DE50m ! (arcmin) Declination B1950 (minutes)
integer*4 DE50s ! (arcsec) Declination B1950 (seconds)
real*4 Bmag_1 ! (mag) B-band photometry, generally from APASS9
real*4 Vmag_1 ! (mag) ? V-band photometry, generally from APASS9
real*4 B_V_1 ! (mag) ? (B-V) color index
character*5 Rph ! Reference of photometry (G1)
character*1 s ! [UGP] Source of J2000 position:
* U=UCAC4(I/322), P=LMCPS (J/AJ/128/1606)
* G=GALEX-DR5/ais (II/312)
integer*4 RAh_1 ! (h) Right Ascension J2000 (hours)
integer*4 RAm_1 ! (min) Right Ascension J2000 (minutes)
real*4 RAs_1 ! (s) Right Ascension J2000 (seconds)
character*1 DE__1 ! Declination J2000 (sign)
integer*4 DEd_1 ! (deg) Declination J2000 (degrees)
integer*4 DEm_1 ! (arcmin) Declination J2000 (minutes)
real*4 DEs_1 ! (arcsec) Declination J2000 (seconds)
character*17 v2MASS_1 ! Designation of star in 2MASS (II/246)
character*10 UCAC4_1 ! Designation of star in UCAC4 (I/322)
character*16 IDs_1 ! Other Simbad star name
C=============================================================================
C Loading file 'catalog.dat' ! Fields 34B (table 2) and 47B (table 3)
C Format for file interpretation
1 format(
+ A1,1X,A6,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,A7,1X,F4.1,A1,1X,A118)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,312
read(1,'(A156)')ar__
read(ar__,1)
+ n_ID,ID,RA75h,RA75m,DE75_,DE75d,DE75m,SpT,Pmag,n_Pmag,Remarks
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RA75h .GT. -180) RAdeg=RA75h*15.
if(RA75m .GT. -180) RAdeg=RAdeg+RA75m/4.
if(DE75d .GE. 0) DEdeg=DE75d
if(DE75m .GE. 0) DEdeg=DEdeg+DE75m/60.
if(DE75_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ n_ID,ID,RA75h,RA75m,DE75_,DE75d,DE75m,SpT,Pmag,n_Pmag,Remarks
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ps79.dat' ! Accurate positions and photometry of [PS79] stars
C Format for file interpretation
2 format(
+ A6,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,A10,1X,A17,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,A39,1X,A112)
C Effective file loading
open(unit=1,status='old',file=
+'ps79.dat')
write(6,*) '....Loading file: ps79.dat'
do i__=1,312
read(1,'(A233)')ar__1
read(ar__1,2)
+ ID_1,RAh,RAm,RAs,DE_,DEd,DEm,DEs,UCAC4,v2MASS,Bmag,Vmag,B_V,
+ IDs,XRem
if(ar__1(68:73) .EQ. '') Vmag = rNULL__
if(ar__1(75:80) .EQ. '') B_V = rNULL__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg_1=RAh*15.
if(RAm .GT. -180) RAdeg_1=RAdeg_1+RAm/4.
if(RAs .GT. -180) RAdeg_1=RAdeg_1+RAs/240.
if(DEd .GE. 0) DEdeg_1=DEd
if(DEm .GE. 0) DEdeg_1=DEdeg_1+DEm/60.
if(DEs .GE. 0) DEdeg_1=DEdeg_1+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ ID_1,RAh,RAm,RAs,DE_,DEd,DEm,DEs,UCAC4,v2MASS,Bmag,Vmag,B_V,
+ IDs,XRem
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pl39.dat' ! Accurate positions of those stars in field 39
* photometrically observed by Shobbrook and
* Visvanathan (1987MNRAS.225..947S, Table A1)
C Format for file interpretation
3 format(
+ A6,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,A5,2X,A1,2X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,
+ F4.1,2X,A17,1X,A10,1X,A16)
C Effective file loading
open(unit=1,status='old',file=
+'pl39.dat')
write(6,*) '....Loading file: pl39.dat'
do i__=1,39
read(1,'(A130)')ar__2
read(ar__2,3)
+ ID_2,RA50h,RA50m,RA50s,DE50_,DE50d,DE50m,DE50s,Bmag_1,Vmag_1,
+ B_V_1,Rph,s,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ v2MASS_1,UCAC4_1,IDs_1
if(ar__2(37:42) .EQ. '') Vmag_1 = rNULL__
if(ar__2(44:49) .EQ. '') B_V_1 = rNULL__
RAdeg_2 = rNULL__
DEdeg_2 = rNULL__
c Derive coordinates RAdeg_2 and DEdeg_2 from input data
c (RAdeg_2 and DEdeg_2 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_2=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_2=RAdeg_2+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_2=RAdeg_2+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_2=DEd_1
if(DEm_1 .GE. 0) DEdeg_2=DEdeg_2+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_2=DEdeg_2+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2
c ..............Just test output...........
write(6,3)
+ ID_2,RA50h,RA50m,RA50s,DE50_,DE50d,DE50m,DE50s,Bmag_1,Vmag_1,
+ B_V_1,Rph,s,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ v2MASS_1,UCAC4_1,IDs_1
write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end