Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/35/347 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 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 (nr__) ! (deg) Right Ascension B1975
real*8 DEdeg (nr__) ! (deg) Declination B1975
C ---------------------------------- ! (position vector(s) in degrees)
character*1 n_ID (nr__) ! [*] Indicates a remark (last column)
character*6 ID (nr__) ! Star identification FF-NNN, FF=34 or 41;
* <[PS79] FF-NNN> in Simbad
integer*4 RA75h (nr__) ! (h) Right Ascension B1975 (hours)
real*4 RA75m (nr__) ! (min) Right Ascension B1975 (minutes)
character*1 DE75_ (nr__) ! Declination B1975 (sign)
integer*4 DE75d (nr__) ! (deg) Declination B1975 (degrees)
integer*4 DE75m (nr__) ! (arcmin) Declination B1975 (minutes)
character*7 SpT (nr__) ! Spectral type: OB, or supergiant
* BI, AI, FI or GI
real*4 Pmag (nr__) ! (mag) Photographic blue magnitude (accurate to 0.5mag)
character*1 n_Pmag (nr__) ! [v] 'v' for variable
character*118 Remarks (nr__) ! 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 (nr__1) ! (deg) Right Ascension J2000, Epoch=J2000
real*8 DEdeg_1 (nr__1) ! (deg) Declination J2000, Epoch=J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*6 ID_1 (nr__1) ! Star identification FF-NNN, as in "catalog.dat"
integer*4 RAh (nr__1) ! (h) Right Ascension J2000 (hours) (2)
integer*4 RAm (nr__1) ! (min) Right Ascension J2000 (minutes) (2)
real*4 RAs (nr__1) ! (s) Right Ascension J2000 (seconds) (2)
character*1 DE_ (nr__1) ! Declination J2000 (sign) (2)
integer*4 DEd (nr__1) ! (deg) Declination J2000 (degrees) (2)
integer*4 DEm (nr__1) ! (arcmin) Declination J2000 (minutes) (2)
real*4 DEs (nr__1) ! (arcsec) Declination J2000 (seconds) (2)
character*10 UCAC4 (nr__1) ! Designation of star in UCAC4 (I/322)
character*17 v2MASS (nr__1) ! Designation of star in 2MASS (II/246)
real*4 Bmag (nr__1) ! (mag) B-band magnitude (3)
real*4 Vmag (nr__1) ! (mag) ? V-band magnitude (3)
real*4 B_V (nr__1) ! (mag) ? Color (B-V) (3)
character*39 IDs (nr__1) ! Other designations, with Simbad conventions
character*112 XRem (nr__1) ! 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 (nr__2) ! (deg) Right Ascension J2000
real*8 DEdeg_2 (nr__2) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*6 ID_2 (nr__2) ! Star identification FF-NNN
* <[PS79] FF-NNN> in Simbad
integer*4 RA50h (nr__2) ! (h) Right Ascension B1950 (hours)
integer*4 RA50m (nr__2) ! (min) Right Ascension B1950 (minutes)
real*4 RA50s (nr__2) ! (s) Right Ascension B1950 (seconds)
character*1 DE50_ (nr__2) ! Declination B1950 (sign)
integer*4 DE50d (nr__2) ! (deg) Declination B1950 (degrees)
integer*4 DE50m (nr__2) ! (arcmin) Declination B1950 (minutes)
integer*4 DE50s (nr__2) ! (arcsec) Declination B1950 (seconds)
real*4 Bmag_1 (nr__2) ! (mag) B-band photometry, generally from APASS9
real*4 Vmag_1 (nr__2) ! (mag) ? V-band photometry, generally from APASS9
real*4 B_V_1 (nr__2) ! (mag) ? (B-V) color index
character*5 Rph (nr__2) ! Reference of photometry (G1)
character*1 s (nr__2) ! [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 (nr__2) ! (h) Right Ascension J2000 (hours)
integer*4 RAm_1 (nr__2) ! (min) Right Ascension J2000 (minutes)
real*4 RAs_1 (nr__2) ! (s) Right Ascension J2000 (seconds)
character*1 DE__1 (nr__2) ! Declination J2000 (sign)
integer*4 DEd_1 (nr__2) ! (deg) Declination J2000 (degrees)
integer*4 DEm_1 (nr__2) ! (arcmin) Declination J2000 (minutes)
real*4 DEs_1 (nr__2) ! (arcsec) Declination J2000 (seconds)
character*17 v2MASS_1 (nr__2) ! Designation of star in 2MASS (II/246)
character*10 UCAC4_1 (nr__2) ! Designation of star in UCAC4 (I/322)
character*16 IDs_1 (nr__2) ! 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(i__),ID(i__),RA75h(i__),RA75m(i__),DE75_(i__),DE75d(i__),
+ DE75m(i__),SpT(i__),Pmag(i__),n_Pmag(i__),Remarks(i__)
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RA75h(i__) .GT. -180) RAdeg(i__)=RA75h(i__)*15.
if(RA75m(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RA75m(i__)/4.
if(DE75d(i__) .GE. 0) DEdeg(i__)=DE75d(i__)
if(DE75m(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DE75m(i__)/60.
if(DE75_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ n_ID(i__),ID(i__),RA75h(i__),RA75m(i__),DE75_(i__),DE75d(i__),
+ DE75m(i__),SpT(i__),Pmag(i__),n_Pmag(i__),Remarks(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
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(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),UCAC4(i__),v2MASS(i__),Bmag(i__),Vmag(i__),
+ B_V(i__),IDs(i__),XRem(i__)
if(ar__1(68:73) .EQ. '') Vmag(i__) = rNULL__
if(ar__1(75:80) .EQ. '') B_V(i__) = rNULL__
RAdeg_1(i__) = rNULL__
DEdeg_1(i__) = 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(i__) .GT. -180) RAdeg_1(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg_1(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg_1(i__).GE.0) DEdeg_1(i__)=-DEdeg_1(i__)
c ..............Just test output...........
write(6,2)
+ ID_1(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),UCAC4(i__),v2MASS(i__),Bmag(i__),Vmag(i__),
+ B_V(i__),IDs(i__),XRem(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_1(i__),DEdeg_1(i__)
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(i__),RA50h(i__),RA50m(i__),RA50s(i__),DE50_(i__),
+ DE50d(i__),DE50m(i__),DE50s(i__),Bmag_1(i__),Vmag_1(i__),
+ B_V_1(i__),Rph(i__),s(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),
+ DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__),v2MASS_1(i__),
+ UCAC4_1(i__),IDs_1(i__)
if(ar__2(37:42) .EQ. '') Vmag_1(i__) = rNULL__
if(ar__2(44:49) .EQ. '') B_V_1(i__) = rNULL__
RAdeg_2(i__) = rNULL__
DEdeg_2(i__) = 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(i__) .GT. -180) RAdeg_2(i__)=RAh_1(i__)*15.
if(RAm_1(i__) .GT. -180) RAdeg_2(i__)=RAdeg_2(i__)+RAm_1(i__)/4.
if(RAs_1(i__) .GT. -180) RAdeg_2(i__)=RAdeg_2(i__)+RAs_1(i__)/240.
if(DEd_1(i__) .GE. 0) DEdeg_2(i__)=DEd_1(i__)
if(DEm_1(i__) .GE. 0) DEdeg_2(i__)=DEdeg_2(i__)+DEm_1(i__)/60.
if(DEs_1(i__) .GE. 0) DEdeg_2(i__)=DEdeg_2(i__)+DEs_1(i__)/3600.
if(DE__1(i__).EQ.'-'.AND.DEdeg_2(i__).GE.0) DEdeg_2(i__)=-DEdeg_2(i__)
c ..............Just test output...........
write(6,3)
+ ID_2(i__),RA50h(i__),RA50m(i__),RA50s(i__),DE50_(i__),
+ DE50d(i__),DE50m(i__),DE50s(i__),Bmag_1(i__),Vmag_1(i__),
+ B_V_1(i__),Rph(i__),s(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),
+ DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__),v2MASS_1(i__),
+ UCAC4_1(i__),IDs_1(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_2(i__),DEdeg_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end