Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/442/523 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. J/ApJ/442/523 Multiparam. Analysis, Einstein Sample. II. (Eskridge+ 1995) *================================================================================ *A Multiparametric Analysis of the Einstein Sample of Early-Type Galaxies. II. *Galaxy Formation History and Properties of the Interstellar Medium * Eskridge P.B., Fabbiano G., Kim D.-W. * <Astrophys. J. 442, 523 (1995)> * =1995ApJ...442..523E C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1a.dat' ! Partial Spearman Rank Analysis: Trends with Log(a/b), E+S0 Sample integer*4 nr__ parameter (nr__=113) ! Number of records character*63 ar__ ! Full-size record character*14 Pair ! Test pair, if blank, record is a continuation character*30 Held ! Quantities to be held constant in the test integer*4 Size ! Number of objects in the sample real*8 Spearman ! Partial Spearman rank statistic character*1 l_Prob ! Probability limiting character real*4 Prob ! Probability that the test pair shows a * correlation for this set of parameters c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1b.dat' ! Partial Spearman Rank Analysis: Trends with Log(a/b), Separate E and S0 Samples integer*4 nr__1 parameter (nr__1=18) ! Number of records character*50 ar__1 ! Full-size record character*14 Pair_1 ! Test pair, if blank, record is a continuation character*12 Held_1 ! Quantities to be held constant in the test character*4 Sample ! Sample designation, Es or S0s integer*4 Size_1 ! Number of objects in the sample real*8 Spearman_1 ! Partial Spearman rank statistic character*1 l_Prob_1 ! Probability limiting character real*4 Prob_1 ! Probability that the test pair shows a * correlation for this set of parameters c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea2.dat' ! Partial Spearman Rank Analysis: Trends with Mg_2 integer*4 nr__2 parameter (nr__2=143) ! Number of records character*63 ar__2 ! Full-size record character*14 Pair_2 ! Test pair, if blank, record is a continuation character*30 Held_2 ! Quantities to be held constant in the test integer*4 Size_2 ! Number of objects in the sample real*8 Spearman_2 ! Partial Spearman rank statistic character*1 l_Prob_2 ! Probability limiting character real*4 Prob_2 ! Probability that the test pair shows a * correlation for this set of parameters c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea3.dat' ! Partial Spearman Rank Analysis: Trends with sigma_v integer*4 nr__3 parameter (nr__3=155) ! Number of records character*63 ar__3 ! Full-size record character*18 Pair_3 ! Test pair, if blank, record is a continuation character*26 Held_3 ! Quantities to be held constant in the test integer*4 Size_3 ! Number of objects in the sample real*8 Spearman_3 ! Partial Spearman rank statistic character*1 l_Prob_3 ! Probability limiting character real*4 Prob_3 ! Probability that the test pair shows a * correlation for this set of parameters c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea4.dat' ! Partial Spearman Rank Analysis: Trends with a_4 integer*4 nr__4 parameter (nr__4=233) ! Number of records character*63 ar__4 ! Full-size record character*14 Pair_4 ! Test pair, if blank, record is a continuation character*30 Held_4 ! Quantities to be held constant in the test integer*4 Size_4 ! Number of objects in the sample real*8 Spearman_4 ! Partial Spearman rank statistic character*1 l_Prob_4 ! Probability limiting character real*4 Prob_4 ! Probability that the test pair shows a * correlation for this set of parameters C============================================================================= C Loading file 'tablea1a.dat' ! Partial Spearman Rank Analysis: Trends with * Log(a/b), E+S0 Sample C Format for file interpretation 1 format(A14,A30,I3,F8.3,1X,A1,F6.3) C Effective file loading open(unit=1,status='old',file= +'tablea1a.dat') write(6,*) '....Loading file: tablea1a.dat' do i__=1,113 read(1,'(A63)')ar__ read(ar__,1)Pair,Held,Size,Spearman,l_Prob,Prob c ..............Just test output........... write(6,1)Pair,Held,Size,Spearman,l_Prob,Prob c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea1b.dat' ! Partial Spearman Rank Analysis: Trends with * Log(a/b), Separate E and S0 Samples C Format for file interpretation 2 format(A14,A12,1X,A4,I3,F8.3,1X,A1,F6.3) C Effective file loading open(unit=1,status='old',file= +'tablea1b.dat') write(6,*) '....Loading file: tablea1b.dat' do i__=1,18 read(1,'(A50)')ar__1 read(ar__1,2) + Pair_1,Held_1,Sample,Size_1,Spearman_1,l_Prob_1,Prob_1 c ..............Just test output........... write(6,2) + Pair_1,Held_1,Sample,Size_1,Spearman_1,l_Prob_1,Prob_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea2.dat' ! Partial Spearman Rank Analysis: Trends with * Mg_2 C Format for file interpretation 3 format(A14,A30,I3,F8.3,1X,A1,F6.3) C Effective file loading open(unit=1,status='old',file= +'tablea2.dat') write(6,*) '....Loading file: tablea2.dat' do i__=1,143 read(1,'(A63)')ar__2 read(ar__2,3)Pair_2,Held_2,Size_2,Spearman_2,l_Prob_2,Prob_2 c ..............Just test output........... write(6,3)Pair_2,Held_2,Size_2,Spearman_2,l_Prob_2,Prob_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea3.dat' ! Partial Spearman Rank Analysis: Trends with * sigma_v C Format for file interpretation 4 format(A18,A26,I3,F8.3,1X,A1,F6.3) C Effective file loading open(unit=1,status='old',file= +'tablea3.dat') write(6,*) '....Loading file: tablea3.dat' do i__=1,155 read(1,'(A63)')ar__3 read(ar__3,4)Pair_3,Held_3,Size_3,Spearman_3,l_Prob_3,Prob_3 c ..............Just test output........... write(6,4)Pair_3,Held_3,Size_3,Spearman_3,l_Prob_3,Prob_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea4.dat' ! Partial Spearman Rank Analysis: Trends with * a_4 C Format for file interpretation 5 format(A14,A30,I3,F8.3,1X,A1,F6.3) C Effective file loading open(unit=1,status='old',file= +'tablea4.dat') write(6,*) '....Loading file: tablea4.dat' do i__=1,233 read(1,'(A63)')ar__4 read(ar__4,5)Pair_4,Held_4,Size_4,Spearman_4,l_Prob_4,Prob_4 c ..............Just test output........... write(6,5)Pair_4,Held_4,Size_4,Spearman_4,l_Prob_4,Prob_4 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end