Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/431/565 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-24
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/A+A/431/565 Evolved stars in the MSX survey (Ortiz+, 2005)
*================================================================================
*Evolution from AGB to planetary nebula in the MSX survey.
* Ortiz R., Lorenz-Martins S., Maciel W.J., Rangel E.M.
* <Astron. Astrophys. 431, 565 (2005)>
* =2005A&A...431..565O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! MSX counterparts of carbon-rich stars
integer*4 nr__
parameter (nr__=45) ! Number of records
character*220 ar__ ! Full-size record
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*4 Dist ! (arcsec) Distance between the original position
* and the MSX counterpart
character*17 MSX5C ! MSX5 name (Cat. <V/107>)
character*10 Name ! Other name (1)
real*4 FB1 ! (Jy) Flux in the MSX B1 band (4.29 micron)
integer*4 f_FB1 ! [0/4] MSX flag for B1
real*4 e_FB1 ! (Jy) ?=-99.0 Standard Deviation of flux in B1 band
real*4 FB2 ! (Jy) Flux in the MSX B2 band (4.35 micron)
integer*4 f_FB2 ! [0/4] MSX flag for B2
real*4 e_FB2 ! (Jy) ?=-99.0 Standard Deviation of flux in B2 band
real*4 FA ! (Jy) Flux in the MSX A band (8.28 micron)
integer*4 f_FA ! [0/4] MSX flag for A
real*4 e_FA ! (Jy) ?=-99.0 Standard Deviation of flux in A band
real*4 FC ! (Jy) Flux in the MSX C band (12.13 micron)
integer*4 f_FC ! [0/4] MSX flag for C
real*4 e_FC ! (Jy) ?=-99.0 Standard Deviation of flux in C band
real*4 FD ! (Jy) Flux in the MSX D band (14.65 micron)
integer*4 f_FD ! [0/4] MSX flag for D
real*4 e_FD ! (Jy) ?=-99.0 Standard Deviation of flux in D band
real*4 FE ! (Jy) Flux in the MSX E band (21.34 micron)
integer*4 f_FE ! [0/4] MSX flag for E
real*4 e_FE ! (Jy) ?=-99.0 Standard Deviation of flux in E band
real*4 Jmag ! (mag) ?=99.99 J magnitude (1.2um)
real*4 Hmag ! (mag) ?=99.99 H magnitude (1.6um)
real*4 Kmag ! (mag) ?=99.99 K magnitude (2.2um)
real*4 Lmag ! (mag) ?=99.99 L magnitude (3.5um)
real*4 Mmag ! (mag) ?=99.99 M magnitude (not in table2.dat)
*Note (1): Other names:
* carbon-star name (Loup et al., 1993, Cat. <J/A+AS/99/291>) in table1,
* IRAS number in table2.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! MSX counterparts of transition objects
integer*4 nr__1
parameter (nr__1=69) ! Number of records
character*220 ar__1 ! Full-size record
real*8 RAdeg_1 ! (deg) Right ascension (J2000)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*4 Dist_1 ! (arcsec) Distance between the original position
* and the MSX counterpart
character*17 MSX5C_1 ! MSX5 name (Cat. <V/107>)
character*10 Name_1 ! Other name (1)
real*4 FB1_1 ! (Jy) Flux in the MSX B1 band (4.29 micron)
integer*4 f_FB1_1 ! [0/4] MSX flag for B1
real*4 e_FB1_1 ! (Jy) ?=-99.0 Standard Deviation of flux in B1 band
real*4 FB2_1 ! (Jy) Flux in the MSX B2 band (4.35 micron)
integer*4 f_FB2_1 ! [0/4] MSX flag for B2
real*4 e_FB2_1 ! (Jy) ?=-99.0 Standard Deviation of flux in B2 band
real*4 FA_1 ! (Jy) Flux in the MSX A band (8.28 micron)
integer*4 f_FA_1 ! [0/4] MSX flag for A
real*4 e_FA_1 ! (Jy) ?=-99.0 Standard Deviation of flux in A band
real*4 FC_1 ! (Jy) Flux in the MSX C band (12.13 micron)
integer*4 f_FC_1 ! [0/4] MSX flag for C
real*4 e_FC_1 ! (Jy) ?=-99.0 Standard Deviation of flux in C band
real*4 FD_1 ! (Jy) Flux in the MSX D band (14.65 micron)
integer*4 f_FD_1 ! [0/4] MSX flag for D
real*4 e_FD_1 ! (Jy) ?=-99.0 Standard Deviation of flux in D band
real*4 FE_1 ! (Jy) Flux in the MSX E band (21.34 micron)
integer*4 f_FE_1 ! [0/4] MSX flag for E
real*4 e_FE_1 ! (Jy) ?=-99.0 Standard Deviation of flux in E band
real*4 Jmag_1 ! (mag) ?=99.99 J magnitude (1.2um)
real*4 Hmag_1 ! (mag) ?=99.99 H magnitude (1.6um)
real*4 Kmag_1 ! (mag) ?=99.99 K magnitude (2.2um)
real*4 Lmag_1 ! (mag) ?=99.99 L magnitude (3.5um)
real*4 Mmag_1 ! (mag) ?=99.99 M magnitude (not in table2.dat)
*Note (1): Other names:
* carbon-star name (Loup et al., 1993, Cat. <J/A+AS/99/291>) in table1,
* IRAS number in table2.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! MSX counterparts of planetary nebulae
integer*4 nr__2
parameter (nr__2=214) ! Number of records
character*241 ar__2 ! Full-size record
real*8 RAdeg_2 ! (deg) Right ascension (J2000)
real*8 DEdeg_2 ! (deg) Declination (J2000)
real*4 Dist_2 ! (arcsec) Distance between the original position
* and the MSX counterpart
real*8 GLON ! (deg) Galactic longitude
real*8 GLAT ! (deg) Galactic latitude
character*12 Name1 ! Name with Galactic position,
* (Acker, 1992, Cat. <V/84>)
character*14 Name2 ! Usual name (as listed in Acker, 1992,
* Cat. <V/84>)
character*17 MSX5C_2 ! MSX name (Cat. <V/107>)
character*10 IRAS ! Name of the IRAS counterpart
real*4 FB1_2 ! (Jy) Flux in the MSX B1 band (4.29 micron)
integer*4 f_FB1_2 ! [0/4] MSX flag for B1
real*4 e_FB1_2 ! (Jy) ?=-99.0 Standard Deviation of flux in B1 band
real*4 FB2_2 ! (Jy) Flux in the MSX B2 band (4.35 micron)
integer*4 f_FB2_2 ! [0/4] MSX flag for B2
real*4 e_FB2_2 ! (Jy) ?=-99.0 Standard Deviation of flux in B2 band
real*4 FA_2 ! (Jy) Flux in the MSX A band (8.28 micron)
integer*4 f_FA_2 ! [0/4] MSX flag for A
real*4 e_FA_2 ! (Jy) ?=-99.0 Standard Deviation of flux in A band
real*4 FC_2 ! (Jy) Flux in the MSX C band (12.13 micron)
integer*4 f_FC_2 ! [0/4] MSX flag for C
real*4 e_FC_2 ! (Jy) ?=-99.0 Standard Deviation of flux in C band
real*4 FD_2 ! (Jy) Flux in the MSX D band (14.65 micron)
integer*4 f_FD_2 ! [0/4] MSX flag for D
real*4 e_FD_2 ! (Jy) ?=-99.0 Standard Deviation of flux in D band
real*4 FE_2 ! (Jy) Flux in the MSX E band (21.34 micron)
integer*4 f_FE_2 ! [0/4] MSX flag for E
real*4 e_FE_2 ! (Jy) ?=-99.0 Standard Deviation of flux in E band
real*4 Kmag_2 ! (mag) ?=99.99 K magnitude
integer*4 q_Kmag ! Quality of K magnitude:
* 1=lower limit; 3=good measurement
C=============================================================================
C Loading file 'table1.dat' ! MSX counterparts of carbon-rich stars
C Format for file interpretation
1 format(
+ F8.4,1X,F8.4,1X,F4.1,7X,A17,1X,A10,1X,E12.4,1X,I1,1X,F5.1,2X,
+ E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,
+ F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,3X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,45
read(1,'(A220)')ar__
read(ar__,1)
+ RAdeg,DEdeg,Dist,MSX5C,Name,FB1,f_FB1,e_FB1,FB2,f_FB2,e_FB2,
+ FA,f_FA,e_FA,FC,f_FC,e_FC,FD,f_FD,e_FD,FE,f_FE,e_FE,Jmag,Hmag,
+ Kmag,Lmag,Mmag
c ..............Just test output...........
write(6,1)
+ RAdeg,DEdeg,Dist,MSX5C,Name,FB1,f_FB1,e_FB1,FB2,f_FB2,e_FB2,
+ FA,f_FA,e_FA,FC,f_FC,e_FC,FD,f_FD,e_FD,FE,f_FE,e_FE,Jmag,Hmag,
+ Kmag,Lmag,Mmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! MSX counterparts of transition objects
C Format for file interpretation
2 format(
+ F8.4,1X,F8.4,1X,F4.1,7X,A17,1X,A10,1X,E12.4,1X,I1,1X,F5.1,2X,
+ E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,
+ F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,3X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,69
read(1,'(A220)')ar__1
read(ar__1,2)
+ RAdeg_1,DEdeg_1,Dist_1,MSX5C_1,Name_1,FB1_1,f_FB1_1,e_FB1_1,
+ FB2_1,f_FB2_1,e_FB2_1,FA_1,f_FA_1,e_FA_1,FC_1,f_FC_1,e_FC_1,
+ FD_1,f_FD_1,e_FD_1,FE_1,f_FE_1,e_FE_1,Jmag_1,Hmag_1,Kmag_1,
+ Lmag_1,Mmag_1
c ..............Just test output...........
write(6,2)
+ RAdeg_1,DEdeg_1,Dist_1,MSX5C_1,Name_1,FB1_1,f_FB1_1,e_FB1_1,
+ FB2_1,f_FB2_1,e_FB2_1,FA_1,f_FA_1,e_FA_1,FC_1,f_FC_1,e_FC_1,
+ FD_1,f_FD_1,e_FD_1,FE_1,f_FE_1,e_FE_1,Jmag_1,Hmag_1,Kmag_1,
+ Lmag_1,Mmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! MSX counterparts of planetary nebulae
C Format for file interpretation
3 format(
+ F8.4,1X,F8.4,1X,F4.1,1X,F7.3,1X,F7.3,1X,A12,1X,A14,7X,A17,1X,
+ A10,1X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,
+ I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,E12.4,1X,I1,1X,F5.1,2X,
+ E12.4,1X,I1,1X,F5.1,2X,F5.2,1X,I1)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,214
read(1,'(A241)')ar__2
read(ar__2,3)
+ RAdeg_2,DEdeg_2,Dist_2,GLON,GLAT,Name1,Name2,MSX5C_2,IRAS,
+ FB1_2,f_FB1_2,e_FB1_2,FB2_2,f_FB2_2,e_FB2_2,FA_2,f_FA_2,
+ e_FA_2,FC_2,f_FC_2,e_FC_2,FD_2,f_FD_2,e_FD_2,FE_2,f_FE_2,
+ e_FE_2,Kmag_2,q_Kmag
c ..............Just test output...........
write(6,3)
+ RAdeg_2,DEdeg_2,Dist_2,GLON,GLAT,Name1,Name2,MSX5C_2,IRAS,
+ FB1_2,f_FB1_2,e_FB1_2,FB2_2,f_FB2_2,e_FB2_2,FA_2,f_FA_2,
+ e_FA_2,FC_2,f_FC_2,e_FC_2,FD_2,f_FD_2,e_FD_2,FE_2,f_FE_2,
+ e_FE_2,Kmag_2,q_Kmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end