Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/414/949 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-19 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+A/414/949 Interstellar bands and H2, CH, CO column densities (Weselak+ 2004) *================================================================================ *On the relation between diffuse bands and column densities of *H2, CH and CO molecules. * Weselak T., Galazutdinov G.S., Musaev F.A., Krelowski J. * <Astron. Astrophys. 414, 949 (2004)> * =2004A&A...414..949W C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! List of targets integer*4 nr__ parameter (nr__=38) ! Number of records character*51 ar__ ! Full-size record integer*4 HD ! HD number character*8 SpType ! MK Spectral and luminosity class real*4 Vmag ! (mag) Visual magnitude real*4 B_V ! (mag) Colour index after Simbad database real*4 v_B_V_0 ! (mag) Intrinsic colour character*1 r__B_V_0 ! [fp] Source of intrinsic colour (1) real*4 E_B_V ! (mag) Calculated colour excess character*5 Cloud ! ? Cloud type character*3 Obs ! Observatory in which the spectrum was * acquired (2) *Note (1): Source of intrinsic colour: * f: Flower, 1977A&A....54...31F * p: Papaj et al., 1991MNRAS.252..403P *Note (2): Observatories: * mcd: McDonald Observatory * SAO: Special Astrophysical Observatory * trl: Terskol c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Compilation of data integer*4 nr__1 parameter (nr__1=38) ! Number of records character*89 ar__1 ! Full-size record integer*4 HD_1 ! HD number real*4 NH2 ! (10+20cm-2) Column density of molecular hydrogen character*1 r_NH2 ! [abc] Source of NH2 real*4 NHI ! (10+20cm-2) Column density of atomic hydrogen character*1 r_NHI ! [abc] Source of NHI, in refs.dat file real*4 fH2 ! Hydrogen molecular fraction real*4 NCH ! (10+12cm-2) ? Column density of CH molecule real*4 e_NCH ! (10+12cm-2) ? Error of NCH character*1 r_NCH ! [defg] Source of NCH, in refs.dat file character*2 n_NCH ! [na ns] na: spectrum not available, * ns: structure not seen real*8 NCO ! (10+12cm-2) ? Column density of CO molecule character*1 r_NCO ! [h-r] Source of NCO, in refs.dat file real*4 CD5780 ! Central depth of diffuse 5780 band real*4 e_CD5780 ! Error of CD5780 character*1 r_CD5780 ! [e] Source of CD5780, in refs.dat file real*4 CD5797 ! Central depth of diffuse 5797 band real*4 e_CD5797 ! Error of CD5797 character*1 r_CD5797 ! [e] Source of CD5797, in refs.dat file real*4 v5797_5780 ! Intensity ratio of 5797 and 5780 DIBs real*4 e_5797_5780 ! Error of 5797/5780 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__2 parameter (nr__2=17) ! Number of records character*132 ar__2 ! Full-size record character*1 Ref ! Reference code character*19 BibCode ! BibCode character*25 Aut ! Author's name character*84 Com ! Comments C============================================================================= C Loading file 'table1.dat' ! List of targets C Format for file interpretation 1 format( + I6,1X,A8,1X,F5.3,1X,F6.3,1X,F5.2,1X,A1,1X,F4.2,1X,A5,1X,A3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,38 read(1,'(A51)')ar__ read(ar__,1) + HD,SpType,Vmag,B_V,v_B_V_0,r__B_V_0,E_B_V,Cloud,Obs c ..............Just test output........... write(6,1) + HD,SpType,Vmag,B_V,v_B_V_0,r__B_V_0,E_B_V,Cloud,Obs c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Compilation of data C Format for file interpretation 2 format( + I6,1X,F5.2,1X,A1,1X,F5.2,1X,A1,1X,F4.2,1X,F5.2,1X,F4.2,1X,A1, + A2,1X,F8.2,1X,A1,1X,F4.1,1X,F3.1,1X,A1,1X,F4.1,1X,F3.1,1X,A1, + 1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,38 read(1,'(A89)')ar__1 read(ar__1,2) + HD_1,NH2,r_NH2,NHI,r_NHI,fH2,NCH,e_NCH,r_NCH,n_NCH,NCO,r_NCO, + CD5780,e_CD5780,r_CD5780,CD5797,e_CD5797,r_CD5797,v5797_5780, + e_5797_5780 if(ar__1(29:33) .EQ. '') NCH = rNULL__ if(ar__1(35:38) .EQ. '') e_NCH = rNULL__ if(ar__1(44:51) .EQ. '') NCO = rNULL__ c ..............Just test output........... write(6,2) + HD_1,NH2,r_NH2,NHI,r_NHI,fH2,NCH,e_NCH,r_NCH,n_NCH,NCO,r_NCO, + CD5780,e_CD5780,r_CD5780,CD5797,e_CD5797,r_CD5797,v5797_5780, + e_5797_5780 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 3 format(A1,1X,A19,1X,A25,1X,A84) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,17 read(1,'(A132)')ar__2 read(ar__2,3)Ref,BibCode,Aut,Com c ..............Just test output........... write(6,3)Ref,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end