Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/194/34 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-Apr-20 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/ApJS/194/34 Fourier transform emission spectroscopy of ^13^C^14^N (Ram+, 2011) *================================================================================ *Fourier transform emission spectroscopy of the B^2^{Sigma}^+^-X^2^{Sigma}^+^ *(violet) system of ^13^C^14^N. * Ram R.S., Bernath P.F. * <Astrophys. J. Suppl. Ser., 194, 34 (2011)> * =2011ApJS..194...34R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'suppl2.dat' ! Calculated term value in the different vibrational levels of the states integer*4 nr__ parameter (nr__=4982) ! Number of records character*34 ar__ ! Full-size record integer*4 Seq ! [1,41] State number character*4 System ! [2SIG/2PI ] 2SIGMA or 2PI (1) character*1 St ! [ABX] State integer*4 v ! [0,15] Vibrational level {nu} integer*4 J ! [1,50] Rotational level -1/2 (2) character*1 P ! [e/f] e/f parity level integer*4 F ! [1/2]? For A state only (3) real*8 Calc ! Calculated term value in the different * vibrational levels of the state *Note (1): 2SIGMA for the violet system (B^2^{Sigma}^+^-X^2^{Sigma}^+^) or * 2PI for the red system (A^2^{Pi}-X^2^{Sigma}^+^). *Note (2): the label "J" is actually J+1/2 for all the doublet states. *Note (3): For the A state, column F as follows: * 1 = (2{Pi}3/2) components * 2 = (2{Pi}1/2) components C============================================================================= C Loading file 'suppl2.dat' ! Calculated term value in the different * vibrational levels of the states C Format for file interpretation 1 format(I2,1X,A4,1X,A1,1X,I2,1X,I2,1X,A1,1X,I1,1X,F14.8) C Effective file loading open(unit=1,status='old',file= +'suppl2.dat') write(6,*) '....Loading file: suppl2.dat' do i__=1,4982 read(1,'(A34)')ar__ read(ar__,1)Seq,System,St,v,J,P,F,Calc if(ar__(19:19) .EQ. '') F = iNULL__ c ..............Just test output........... write(6,1)Seq,System,St,v,J,P,F,Calc c .......End.of.Just test output........... end do close(1) C============================================================================= stop end