Conversion of standardized ReadMe file for
file /./ftp/cats/II/63A 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-Mar-28 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. II/63A Balmer Lines Photometric Data (Mermilliod+ 1980) *================================================================================ *A Compilation of Balmer lines photometric data * Mermilliod J.C., Mermilliod M. * <Bull. Inform. CDS 19, 65 (1980)> * =1980BICDS..19...65M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot42.dat' ! *Tebbe (alpha, beta) photometry integer*4 nr__ parameter (nr__=80) ! Number of records character*124 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID ! Coded designation in Lausanne/Geneve system real*4 alpha ! (mag) *? Tebbe alpha index = 2.5log(Wa) - 2.5log(Na) real*4 beta ! (mag) * Tebbe beta index = 2.5log(Wb) - 2.5log(Nb) integer*4 o_alpha ! Number of observations of alpha and beta integer*4 r_alpha ! Reference character*20 SimID ! Name recognized by Simbad (G1) integer*4 RAh ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE_ ! Declination J2000 (sign) (G1) integer*4 DEd ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha, beta: * See the description in "Note on phot42.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot43.dat' ! *Sinnerstad (beta, gamma) photometry integer*4 nr__1 parameter (nr__1=67) ! Number of records character*124 ar__1 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_1 ! (deg) Right Ascension J2000 real*8 DEdeg_1 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_1 ! Coded designation real*4 beta_1 ! (mag) *Sinnerstad beta index real*4 gamma ! (mag) *Sinnerstad gamma index integer*4 o_gamma ! Number of observations of alpha and beta integer*4 r_gamma ! Reference character*20 SimID_1 ! Name recognized by Simbad (G1) integer*4 RAh_1 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_1 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_1 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__1 ! Declination J2000 (sign) (G1) integer*4 DEd_1 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_1 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_1 ! (arcsec) Declination J2000 (seconds) (G1) *Note on beta, gamma: * See the description in "Note on phot43.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot44.dat' ! *Cester (alpha) photometry integer*4 nr__2 parameter (nr__2=293) ! Number of records character*124 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*11 LID_2 ! Coded designation character*1 f_LID ! [D] indicates a combination of >= 2 stars real*4 Vmag ! (mag) ? Visual magnitude real*4 alpha_1 ! (mag) *? Cester or Dachs alpha index integer*4 o_alpha_1 ! ? Number of observations of alpha and beta integer*4 r_alpha_1 ! Reference character*20 SimID_2 ! Name recognized by Simbad (G1) integer*4 RAh_2 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_2 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_2 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__2 ! Declination J2000 (sign) (G1) integer*4 DEd_2 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_2 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_2 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha: * The description of the Cester index is in "Note on phot44.dat" section * above, and the Dachs index in "Note on phot55.dat" section. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot55.dat' ! *Dachs (alpha) photometry integer*4 nr__3 parameter (nr__3=127) ! Number of records character*124 ar__3 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_3 ! (deg) Right Ascension J2000 real*8 DEdeg_3 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_3 ! Coded designation character*1 f_LID_1 ! [D] indicates a combination of >= 2 stars real*4 Vmag_1 ! (mag) ? Visual magnitude real*4 alpha_2 ! (mag) *? Cester or Dachs alpha index integer*4 o_alpha_2 ! ? Number of observations of alpha and beta integer*4 r_alpha_2 ! Reference character*20 SimID_3 ! Name recognized by Simbad (G1) integer*4 RAh_3 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_3 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_3 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__3 ! Declination J2000 (sign) (G1) integer*4 DEd_3 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_3 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_3 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha: * The description of the Cester index is in "Note on phot44.dat" section * above, and the Dachs index in "Note on phot55.dat" section. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot56.dat' ! *Abt-Golson (alpha, beta, gamma, delta) photometry integer*4 nr__4 parameter (nr__4=56) ! Number of records character*124 ar__4 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_4 ! (deg) Right Ascension J2000 real*8 DEdeg_4 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_4 ! Coded designation real*4 alpha_3 ! (mag) *Abt-Golson alpha index real*4 beta_2 ! (mag) *Abt-Golson beta index real*4 gamma_1 ! (mag) *Abt-Golson gamma index real*4 delta ! (mag) *Abt-Golson delta index character*1 l_o_alpha ! [/] '/' when o_alpha is a minimal number integer*4 o_alpha_3 ! ? Number of observations of alpha and beta integer*4 r_alpha_3 ! Reference character*20 SimID_4 ! Name recognized by Simbad (G1) integer*4 RAh_4 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_4 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_4 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__4 ! Declination J2000 (sign) (G1) integer*4 DEd_4 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_4 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_4 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha, beta, gamma, delta: * See the description in "Note on phot56.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot57.dat' ! *Peton (alpha, beta) photometry integer*4 nr__5 parameter (nr__5=94) ! Number of records character*124 ar__5 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_5 ! (deg) Right Ascension J2000 real*8 DEdeg_5 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_5 ! Coded designation real*4 alpha_4 ! (mag) *? Peton alpha index real*4 beta_3 ! (mag) *Peton beta index integer*4 o_alpha_4 ! ? Number of observations of alpha and beta integer*4 r_alpha_4 ! Reference character*20 SimID_5 ! Name recognized by Simbad (G1) integer*4 RAh_5 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_5 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_5 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__5 ! Declination J2000 (sign) (G1) integer*4 DEd_5 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_5 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_5 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha, beta: * See the description in "Note on phot57.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot58.dat' ! *Feinstein (alpha, beta, gamma) photometry integer*4 nr__6 parameter (nr__6=327) ! Number of records character*124 ar__6 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_6 ! (deg) Right Ascension J2000 real*8 DEdeg_6 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_6 ! Coded designation real*4 alpha_5 ! (mag) *Feinstein alpha index real*4 beta_4 ! (mag) *Feinstein beta index real*4 gamma_2 ! (mag) *? Feinstein gamma index integer*4 o_alpha_5 ! ? Number of observations of alpha and beta integer*4 r_alpha_5 ! Reference character*20 SimID_6 ! Name recognized by Simbad (G1) integer*4 RAh_6 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_6 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_6 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__6 ! Declination J2000 (sign) (G1) integer*4 DEd_6 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_6 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_6 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha, beta, gamma: * See the description in "Note on phot58.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot59.dat' ! *Villanova (alpha, beta) alpha photometry integer*4 nr__7 parameter (nr__7=56) ! Number of records character*124 ar__7 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_7 ! (deg) Right Ascension J2000 real*8 DEdeg_7 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_7 ! Coded designation real*4 alpha_6 ! (mag) *Villanova alpha index real*4 beta_5 ! (mag) *? Villanova beta index character*1 l_o_alpha_1 ! [S/] '/' when o_alpha is a minimal number integer*4 o_alpha_6 ! ? Number of observations of alpha and beta integer*4 r_alpha_6 ! Reference character*20 SimID_7 ! Name recognized by Simbad (G1) integer*4 RAh_7 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_7 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_7 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__7 ! Declination J2000 (sign) (G1) integer*4 DEd_7 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_7 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_7 ! (arcsec) Declination J2000 (seconds) (G1) *Note on alpha, beta: * See the description in "Note on phot59.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot60.dat' ! *Bappu (gamma) photometry integer*4 nr__8 parameter (nr__8=177) ! Number of records character*124 ar__8 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_8 ! (deg) Right Ascension J2000 real*8 DEdeg_8 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_8 ! Coded designation real*4 gamma_3 ! (mag) *Bappu gamma index character*1 l_o_gamma ! [S/] '/' when o_alpha is a minimal number integer*4 o_gamma_1 ! ? Number of observations of alpha and beta integer*4 r_gamma_1 ! Reference character*20 SimID_8 ! Name recognized by Simbad (G1) integer*4 RAh_8 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_8 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_8 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__8 ! Declination J2000 (sign) (G1) integer*4 DEd_8 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_8 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_8 ! (arcsec) Declination J2000 (seconds) (G1) *Note on gamma: * See the description in "Note on phot60.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot61.dat' ! *Peat Ralpha photometry integer*4 nr__9 parameter (nr__9=1715) ! Number of records character*124 ar__9 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_9 ! (deg) Right Ascension J2000 real*8 DEdeg_9 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_9 ! Coded designation character*1 m_LID ! [12] Multiplicity index (1=A, 2=B) real*4 Vmag_2 ! (mag) ? Johnson V magnitude real*4 Ralpha ! *Ralpha = (B/BL)/(A/AL) character*1 l_o_Ralpha ! [/] '/' when o_alpha is a minimal number integer*4 o_Ralpha ! ? Number of observations of alpha and beta integer*4 r_Ralpha ! Reference character*20 SimID_9 ! Name recognized by Simbad (G1) integer*4 RAh_9 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_9 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_9 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__9 ! Declination J2000 (sign) (G1) integer*4 DEd_9 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_9 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_9 ! (arcsec) Declination J2000 (seconds) (G1) *Note on Ralpha: * See the description in "Note on phot61.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot62.dat' ! *Beer Rgamma photometry integer*4 nr__10 parameter (nr__10=461) ! Number of records character*124 ar__10 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_10 ! (deg) Right Ascension J2000 real*8 DEdeg_10 ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*11 LID_10 ! Coded designation character*1 m_LID_1 ! [12] Multiplicity index (1=A, 2=B) real*4 Vmag_3 ! (mag) Johnson V magnitude real*4 Rgamma ! *Rgamma = [(a)/(aL)]/[(b)/(bL)] * (fluxes of star and of the lamp) integer*4 o_Rgamma ! Number of observations of alpha and beta integer*4 r_Rgamma ! Reference character*20 SimID_10 ! Name recognized by Simbad (G1) integer*4 RAh_10 ! (h) Right Ascension J2000 (hours) (G1) integer*4 RAm_10 ! (min) Right Ascension J2000 (minutes) (G1) real*4 RAs_10 ! (s) Right Ascension J2000 (seconds) (G1) character*1 DE__10 ! Declination J2000 (sign) (G1) integer*4 DEd_10 ! (deg) Declination J2000 (degrees) (G1) integer*4 DEm_10 ! (arcmin) Declination J2000 (minutes) (G1) integer*4 DEs_10 ! (arcsec) Declination J2000 (seconds) (G1) *Note on Rgamma: * See the description in "Note on phot62.dat" section above c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! Bibliography integer*4 nr__11 parameter (nr__11=15) ! Number of records character*100 ar__11 ! Full-size record integer*4 RefNo ! Reference number character*19 BibCode ! Coded reference character*74 Authors ! List of authors C============================================================================= C Loading file 'phot42.dat' ! *Tebbe (alpha, beta) photometry C Format for file interpretation 1 format( + A11,10X,F5.3,2X,F5.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1, + 1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot42.dat') write(6,*) '....Loading file: phot42.dat' do i__=1,80 read(1,'(A124)')ar__ read(ar__,1) + LID,alpha,beta,o_alpha,r_alpha,SimID,RAh,RAm,RAs,DE_,DEd,DEm, + DEs if(ar__(22:26) .EQ. '') alpha = rNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + LID,alpha,beta,o_alpha,r_alpha,SimID,RAh,RAm,RAs,DE_,DEd,DEm, + DEs write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot43.dat' ! *Sinnerstad (beta, gamma) photometry C Format for file interpretation 2 format( + A11,9X,F6.3,1X,F6.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1, + 1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot43.dat') write(6,*) '....Loading file: phot43.dat' do i__=1,67 read(1,'(A124)')ar__1 read(ar__1,2) + LID_1,beta_1,gamma,o_gamma,r_gamma,SimID_1,RAh_1,RAm_1,RAs_1, + DE__1,DEd_1,DEm_1,DEs_1 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_1 .GT. -180) RAdeg_1=RAh_1*15. if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4. if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240. if(DEd_1 .GE. 0) DEdeg_1=DEd_1 if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60. if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600. if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1 c ..............Just test output........... write(6,2) + LID_1,beta_1,gamma,o_gamma,r_gamma,SimID_1,RAh_1,RAm_1,RAs_1, + DE__1,DEd_1,DEm_1,DEs_1 write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot44.dat' ! *Cester (alpha) photometry C Format for file interpretation 3 format( + A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X, + F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot44.dat') write(6,*) '....Loading file: phot44.dat' do i__=1,293 read(1,'(A124)')ar__2 read(ar__2,3) + LID_2,f_LID,Vmag,alpha_1,o_alpha_1,r_alpha_1,SimID_2,RAh_2, + RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2 if(ar__2(14:18) .EQ. '') Vmag = rNULL__ if(ar__2(21:26) .EQ. '') alpha_1 = rNULL__ if(ar__2(30:32) .EQ. '') o_alpha_1 = iNULL__ 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_2 .GT. -180) RAdeg_2=RAh_2*15. if(RAm_2 .GT. -180) RAdeg_2=RAdeg_2+RAm_2/4. if(RAs_2 .GT. -180) RAdeg_2=RAdeg_2+RAs_2/240. if(DEd_2 .GE. 0) DEdeg_2=DEd_2 if(DEm_2 .GE. 0) DEdeg_2=DEdeg_2+DEm_2/60. if(DEs_2 .GE. 0) DEdeg_2=DEdeg_2+DEs_2/3600. if(DE__2.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2 c ..............Just test output........... write(6,3) + LID_2,f_LID,Vmag,alpha_1,o_alpha_1,r_alpha_1,SimID_2,RAh_2, + RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2 write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot55.dat' ! *Dachs (alpha) photometry C Format for file interpretation 4 format( + A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X, + F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot55.dat') write(6,*) '....Loading file: phot55.dat' do i__=1,127 read(1,'(A124)')ar__3 read(ar__3,4) + LID_3,f_LID_1,Vmag_1,alpha_2,o_alpha_2,r_alpha_2,SimID_3, + RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3 if(ar__3(14:18) .EQ. '') Vmag_1 = rNULL__ if(ar__3(21:26) .EQ. '') alpha_2 = rNULL__ if(ar__3(30:32) .EQ. '') o_alpha_2 = iNULL__ RAdeg_3 = rNULL__ DEdeg_3 = rNULL__ c Derive coordinates RAdeg_3 and DEdeg_3 from input data c (RAdeg_3 and DEdeg_3 are set to rNULL__ when unknown) if(RAh_3 .GT. -180) RAdeg_3=RAh_3*15. if(RAm_3 .GT. -180) RAdeg_3=RAdeg_3+RAm_3/4. if(RAs_3 .GT. -180) RAdeg_3=RAdeg_3+RAs_3/240. if(DEd_3 .GE. 0) DEdeg_3=DEd_3 if(DEm_3 .GE. 0) DEdeg_3=DEdeg_3+DEm_3/60. if(DEs_3 .GE. 0) DEdeg_3=DEdeg_3+DEs_3/3600. if(DE__3.EQ.'-'.AND.DEdeg_3.GE.0) DEdeg_3=-DEdeg_3 c ..............Just test output........... write(6,4) + LID_3,f_LID_1,Vmag_1,alpha_2,o_alpha_2,r_alpha_2,SimID_3, + RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3 write(6,'(6H Pos: 2F8.4)') RAdeg_3,DEdeg_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot56.dat' ! *Abt-Golson (alpha, beta, gamma, delta) photometry C Format for file interpretation 5 format( + A11,9X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,A1,I3,22X,I5,2X,A20,2X, + I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot56.dat') write(6,*) '....Loading file: phot56.dat' do i__=1,56 read(1,'(A124)')ar__4 read(ar__4,5) + LID_4,alpha_3,beta_2,gamma_1,delta,l_o_alpha,o_alpha_3, + r_alpha_3,SimID_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4 if(ar__4(51:53) .EQ. '') o_alpha_3 = iNULL__ RAdeg_4 = rNULL__ DEdeg_4 = rNULL__ c Derive coordinates RAdeg_4 and DEdeg_4 from input data c (RAdeg_4 and DEdeg_4 are set to rNULL__ when unknown) if(RAh_4 .GT. -180) RAdeg_4=RAh_4*15. if(RAm_4 .GT. -180) RAdeg_4=RAdeg_4+RAm_4/4. if(RAs_4 .GT. -180) RAdeg_4=RAdeg_4+RAs_4/240. if(DEd_4 .GE. 0) DEdeg_4=DEd_4 if(DEm_4 .GE. 0) DEdeg_4=DEdeg_4+DEm_4/60. if(DEs_4 .GE. 0) DEdeg_4=DEdeg_4+DEs_4/3600. if(DE__4.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_4 c ..............Just test output........... write(6,5) + LID_4,alpha_3,beta_2,gamma_1,delta,l_o_alpha,o_alpha_3, + r_alpha_3,SimID_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4 write(6,'(6H Pos: 2F8.4)') RAdeg_4,DEdeg_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot57.dat' ! *Peton (alpha, beta) photometry C Format for file interpretation 6 format( + A11,9X,F6.3,1X,F6.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1, + 1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot57.dat') write(6,*) '....Loading file: phot57.dat' do i__=1,94 read(1,'(A124)')ar__5 read(ar__5,6) + LID_5,alpha_4,beta_3,o_alpha_4,r_alpha_4,SimID_5,RAh_5,RAm_5, + RAs_5,DE__5,DEd_5,DEm_5,DEs_5 if(ar__5(21:26) .EQ. '') alpha_4 = rNULL__ if(ar__5(37:39) .EQ. '') o_alpha_4 = iNULL__ RAdeg_5 = rNULL__ DEdeg_5 = rNULL__ c Derive coordinates RAdeg_5 and DEdeg_5 from input data c (RAdeg_5 and DEdeg_5 are set to rNULL__ when unknown) if(RAh_5 .GT. -180) RAdeg_5=RAh_5*15. if(RAm_5 .GT. -180) RAdeg_5=RAdeg_5+RAm_5/4. if(RAs_5 .GT. -180) RAdeg_5=RAdeg_5+RAs_5/240. if(DEd_5 .GE. 0) DEdeg_5=DEd_5 if(DEm_5 .GE. 0) DEdeg_5=DEdeg_5+DEm_5/60. if(DEs_5 .GE. 0) DEdeg_5=DEdeg_5+DEs_5/3600. if(DE__5.EQ.'-'.AND.DEdeg_5.GE.0) DEdeg_5=-DEdeg_5 c ..............Just test output........... write(6,6) + LID_5,alpha_4,beta_3,o_alpha_4,r_alpha_4,SimID_5,RAh_5,RAm_5, + RAs_5,DE__5,DEd_5,DEm_5,DEs_5 write(6,'(6H Pos: 2F8.4)') RAdeg_5,DEdeg_5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot58.dat' ! *Feinstein (alpha, beta, gamma) photometry C Format for file interpretation 7 format( + A11,9X,F6.3,1X,F6.3,1X,F6.3,3X,I3,29X,I5,2X,A20,2X,I2,1X,I2, + 1X,F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot58.dat') write(6,*) '....Loading file: phot58.dat' do i__=1,327 read(1,'(A124)')ar__6 read(ar__6,7) + LID_6,alpha_5,beta_4,gamma_2,o_alpha_5,r_alpha_5,SimID_6, + RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6 if(ar__6(35:40) .EQ. '') gamma_2 = rNULL__ if(ar__6(44:46) .EQ. '') o_alpha_5 = iNULL__ RAdeg_6 = rNULL__ DEdeg_6 = rNULL__ c Derive coordinates RAdeg_6 and DEdeg_6 from input data c (RAdeg_6 and DEdeg_6 are set to rNULL__ when unknown) if(RAh_6 .GT. -180) RAdeg_6=RAh_6*15. if(RAm_6 .GT. -180) RAdeg_6=RAdeg_6+RAm_6/4. if(RAs_6 .GT. -180) RAdeg_6=RAdeg_6+RAs_6/240. if(DEd_6 .GE. 0) DEdeg_6=DEd_6 if(DEm_6 .GE. 0) DEdeg_6=DEdeg_6+DEm_6/60. if(DEs_6 .GE. 0) DEdeg_6=DEdeg_6+DEs_6/3600. if(DE__6.EQ.'-'.AND.DEdeg_6.GE.0) DEdeg_6=-DEdeg_6 c ..............Just test output........... write(6,7) + LID_6,alpha_5,beta_4,gamma_2,o_alpha_5,r_alpha_5,SimID_6, + RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6 write(6,'(6H Pos: 2F8.4)') RAdeg_6,DEdeg_6 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot59.dat' ! *Villanova (alpha, beta) alpha photometry C Format for file interpretation 8 format( + A11,9X,F6.3,1X,F6.3,2X,A1,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X, + F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot59.dat') write(6,*) '....Loading file: phot59.dat' do i__=1,56 read(1,'(A124)')ar__7 read(ar__7,8) + LID_7,alpha_6,beta_5,l_o_alpha_1,o_alpha_6,r_alpha_6,SimID_7, + RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7 if(ar__7(28:33) .EQ. '') beta_5 = rNULL__ if(ar__7(37:39) .EQ. '') o_alpha_6 = iNULL__ RAdeg_7 = rNULL__ DEdeg_7 = rNULL__ c Derive coordinates RAdeg_7 and DEdeg_7 from input data c (RAdeg_7 and DEdeg_7 are set to rNULL__ when unknown) if(RAh_7 .GT. -180) RAdeg_7=RAh_7*15. if(RAm_7 .GT. -180) RAdeg_7=RAdeg_7+RAm_7/4. if(RAs_7 .GT. -180) RAdeg_7=RAdeg_7+RAs_7/240. if(DEd_7 .GE. 0) DEdeg_7=DEd_7 if(DEm_7 .GE. 0) DEdeg_7=DEdeg_7+DEm_7/60. if(DEs_7 .GE. 0) DEdeg_7=DEdeg_7+DEs_7/3600. if(DE__7.EQ.'-'.AND.DEdeg_7.GE.0) DEdeg_7=-DEdeg_7 c ..............Just test output........... write(6,8) + LID_7,alpha_6,beta_5,l_o_alpha_1,o_alpha_6,r_alpha_6,SimID_7, + RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7 write(6,'(6H Pos: 2F8.4)') RAdeg_7,DEdeg_7 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot60.dat' ! *Bappu (gamma) photometry C Format for file interpretation 9 format( + A11,9X,F6.3,2X,A1,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1,1X,A1, + I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot60.dat') write(6,*) '....Loading file: phot60.dat' do i__=1,177 read(1,'(A124)')ar__8 read(ar__8,9) + LID_8,gamma_3,l_o_gamma,o_gamma_1,r_gamma_1,SimID_8,RAh_8, + RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8 if(ar__8(30:32) .EQ. '') o_gamma_1 = iNULL__ RAdeg_8 = rNULL__ DEdeg_8 = rNULL__ c Derive coordinates RAdeg_8 and DEdeg_8 from input data c (RAdeg_8 and DEdeg_8 are set to rNULL__ when unknown) if(RAh_8 .GT. -180) RAdeg_8=RAh_8*15. if(RAm_8 .GT. -180) RAdeg_8=RAdeg_8+RAm_8/4. if(RAs_8 .GT. -180) RAdeg_8=RAdeg_8+RAs_8/240. if(DEd_8 .GE. 0) DEdeg_8=DEd_8 if(DEm_8 .GE. 0) DEdeg_8=DEdeg_8+DEm_8/60. if(DEs_8 .GE. 0) DEdeg_8=DEdeg_8+DEs_8/3600. if(DE__8.EQ.'-'.AND.DEdeg_8.GE.0) DEdeg_8=-DEdeg_8 c ..............Just test output........... write(6,9) + LID_8,gamma_3,l_o_gamma,o_gamma_1,r_gamma_1,SimID_8,RAh_8, + RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8 write(6,'(6H Pos: 2F8.4)') RAdeg_8,DEdeg_8 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot61.dat' ! *Peat Ralpha photometry C Format for file interpretation 10 format( + A11,A1,1X,F5.2,2X,F6.3,2X,A1,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X, + F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot61.dat') write(6,*) '....Loading file: phot61.dat' do i__=1,1715 read(1,'(A124)')ar__9 read(ar__9,10) + LID_9,m_LID,Vmag_2,Ralpha,l_o_Ralpha,o_Ralpha,r_Ralpha, + SimID_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9 if(ar__9(14:18) .EQ. '') Vmag_2 = rNULL__ if(ar__9(30:32) .EQ. '') o_Ralpha = iNULL__ RAdeg_9 = rNULL__ DEdeg_9 = rNULL__ c Derive coordinates RAdeg_9 and DEdeg_9 from input data c (RAdeg_9 and DEdeg_9 are set to rNULL__ when unknown) if(RAh_9 .GT. -180) RAdeg_9=RAh_9*15. if(RAm_9 .GT. -180) RAdeg_9=RAdeg_9+RAm_9/4. if(RAs_9 .GT. -180) RAdeg_9=RAdeg_9+RAs_9/240. if(DEd_9 .GE. 0) DEdeg_9=DEd_9 if(DEm_9 .GE. 0) DEdeg_9=DEdeg_9+DEm_9/60. if(DEs_9 .GE. 0) DEdeg_9=DEdeg_9+DEs_9/3600. if(DE__9.EQ.'-'.AND.DEdeg_9.GE.0) DEdeg_9=-DEdeg_9 c ..............Just test output........... write(6,10) + LID_9,m_LID,Vmag_2,Ralpha,l_o_Ralpha,o_Ralpha,r_Ralpha, + SimID_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9 write(6,'(6H Pos: 2F8.4)') RAdeg_9,DEdeg_9 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'phot62.dat' ! *Beer Rgamma photometry C Format for file interpretation 11 format( + A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X, + F4.1,1X,A1,I2,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'phot62.dat') write(6,*) '....Loading file: phot62.dat' do i__=1,461 read(1,'(A124)')ar__10 read(ar__10,11) + LID_10,m_LID_1,Vmag_3,Rgamma,o_Rgamma,r_Rgamma,SimID_10, + RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10 RAdeg_10 = rNULL__ DEdeg_10 = rNULL__ c Derive coordinates RAdeg_10 and DEdeg_10 from input data c (RAdeg_10 and DEdeg_10 are set to rNULL__ when unknown) if(RAh_10 .GT. -180) RAdeg_10=RAh_10*15. if(RAm_10 .GT. -180) RAdeg_10=RAdeg_10+RAm_10/4. if(RAs_10 .GT. -180) RAdeg_10=RAdeg_10+RAs_10/240. if(DEd_10 .GE. 0) DEdeg_10=DEd_10 if(DEm_10 .GE. 0) DEdeg_10=DEdeg_10+DEm_10/60. if(DEs_10 .GE. 0) DEdeg_10=DEdeg_10+DEs_10/3600. if(DE__10.EQ.'-'.AND.DEdeg_10.GE.0) DEdeg_10=-DEdeg_10 c ..............Just test output........... write(6,11) + LID_10,m_LID_1,Vmag_3,Rgamma,o_Rgamma,r_Rgamma,SimID_10, + RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10 write(6,'(6H Pos: 2F8.4)') RAdeg_10,DEdeg_10 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! Bibliography C Format for file interpretation 12 format(I5,1X,A19,1X,A74) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,15 read(1,'(A100)')ar__11 read(ar__11,12)RefNo,BibCode,Authors c ..............Just test output........... write(6,12)RefNo,BibCode,Authors c .......End.of.Just test output........... end do close(1) C============================================================================= stop end