Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/520/A109 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-29 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/520/A109 Gas kinematics of spiral galaxies (Kutdemir+, 2010) *================================================================================ *Internal kinematics of spiral galaxies in distant clusters. *IV. Gas kinematics of spiral galaxies in intermediate redshift clusters and *in the field. * Kutdemir E., Ziegler B.L., Peletier R.F., Da Rocha C., Boehm A., Verdugo M. * <Astron. Astrophys., 520, A109-109 (2010)> * =2010A&A...520A.109K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Basic galaxy information for MS 0451 sample (table1 of Paper III, Kutdemir et al., 2008A&A...488..117K) integer*4 nr__ parameter (nr__=22) ! Number of records character*75 ar__ ! Full-size record character*4 ID ! Object identification (1) real*4 z ! ? Redshift real*4 d ! (Mpc) ? Projected distance from the cluster center character*15 Name ! NED name (2) character*6 MType1 ! Morphological type of the galaxy integer*4 r_MType1 ! ? Reference for MType1 (3) character*7 MType ! Eye-ball morphological classification * (this paper) real*8 z1 ! ? Redshift of the galaxy character*1 f_z1 ! [p] p for photometric redshift integer*4 r_z1 ! ? Reference for galaxy redshift (3) character*3 MType2 ! Morphological type of the galaxy integer*4 r_MType2 ! ? Reference for MType2 (3) real*8 z2 ! ? Redshift of the galaxy integer*4 r_z2 ! ? Reference for galaxy redshift (3) *Note (1): Sources identified in Simbad as <[KZP2008] ANN> for table1 (1ANN), * <[KZP2010] NANN> for table3. *Note (2): NED name begin with "MS 1008.1-1224:", "MS 2137.3-2353:" and * "F1557.19TC:" for object IDs in the first column that begin with "2", "3" * and "4" respectively. For galaxies 2F13, 2F14, 2F17, 2F15, 2F16, 3F12 and * 4F11 the redshift could not be determined. *Note (3): References as follows: * 1 = Yee et al., 1998, Cat. J/ApJS/116/211 * 2 = Stanford et al., 2002, Cat. J/ApJS/142/153 * 3 = Dressler et al., 1999, Cat. J/ApJS/122/51 * 4 = Jaeger et al., 2004, Cat. J/A+A/422/907, Paper II * 5 = Ellingson et al., 1998, Cat. J/ApJS/116/247 * 6 = Moran, 2008, Thesis, California Institute of Technology * 7 = Moran et al. 2007, Cat. J/ApJS/659/1138 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Basic galaxy information for MS 1008, MS 2137 and Cl 0413 samples integer*4 nr__1 parameter (nr__1=72) ! Number of records character*75 ar__1 ! Full-size record character*4 ID_1 ! Object identification (1) real*4 z_1 ! ? Redshift real*4 d_1 ! (Mpc) ? Projected distance from the cluster center character*15 Name_1 ! NED name (2) character*6 MType1_1 ! Morphological type of the galaxy integer*4 r_MType1_1 ! ? Reference for MType1 (3) character*7 MType_1 ! Eye-ball morphological classification * (this paper) real*8 z1_1 ! ? Redshift of the galaxy character*1 f_z1_1 ! [p] p for photometric redshift integer*4 r_z1_1 ! ? Reference for galaxy redshift (3) character*3 MType2_1 ! Morphological type of the galaxy integer*4 r_MType2_1 ! ? Reference for MType2 (3) real*8 z2_1 ! ? Redshift of the galaxy integer*4 r_z2_1 ! ? Reference for galaxy redshift (3) *Note (1): Sources identified in Simbad as <[KZP2008] ANN> for table1 (1ANN), * <[KZP2010] NANN> for table3. *Note (2): NED name begin with "MS 1008.1-1224:", "MS 2137.3-2353:" and * "F1557.19TC:" for object IDs in the first column that begin with "2", "3" * and "4" respectively. For galaxies 2F13, 2F14, 2F17, 2F15, 2F16, 3F12 and * 4F11 the redshift could not be determined. *Note (3): References as follows: * 1 = Yee et al., 1998, Cat. J/ApJS/116/211 * 2 = Stanford et al., 2002, Cat. J/ApJS/142/153 * 3 = Dressler et al., 1999, Cat. J/ApJS/122/51 * 4 = Jaeger et al., 2004, Cat. J/A+A/422/907, Paper II * 5 = Ellingson et al., 1998, Cat. J/ApJS/116/247 * 6 = Moran, 2008, Thesis, California Institute of Technology * 7 = Moran et al. 2007, Cat. J/ApJS/659/1138 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec1.dat' ! Photometric parameters for the whole sample integer*4 nr__2 parameter (nr__2=94) ! Number of records character*76 ar__2 ! 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*4 ID_2 ! Object ID (NANN) integer*4 RAh ! (h) Right ascension in decimal degrees (J2000) integer*4 RAm ! (min) Right ascension in decimal degrees (J2000) real*4 RAs ! (s) Right ascension in decimal degrees (J2000) character*1 DE_ ! Declination sign (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) integer*4 DEs ! (arcsec) [0/60] Declination (J2000) real*4 BMAG ! (mag) ? Rest frame, galactic-extinction corrected * Johnson-B magnitude (4) real*4 B_V ! (mag) ? Galactic extinction and k-corrected * Johnson B-V colour index (5) real*4 V_R ! (mag) ? Galactic extinction and k-corrected * Johnson-FORS2 V-R colour index (5) real*4 R_I ! (mag) ? Galactic extinction and k-corrected * FORS2-Cousins R-I colour index (5) real*4 M_ ! (Msun) ? Stellar mass (6) real*4 A ! ? Asymmetry index real*4 C ! ? Concentration index real*4 G ! ? Gini coefficient (7) real*4 M20 ! ? M20 index (8) *Note (4): k-correction applied using the kcorrect algorithm by * Blanton & Roweis (2007AJ....133..734B) *Note (5): colours measured from the FORS2/VLT images (The FORS2 filters B, V * and I are close approximations to the Bessel photometric system while R filter * is a special filter for FORS2). *Note (6): measured using the kcorrect algorithm by Blanton & Roweis * (2007AJ....133..734B) *Note (7): The Gini coefficient quantifies the non-uniformity in the light * distribution and strongly correlates with the concentration indes for local * galaxies. *Note (8): The M20 index is the normalized second order moment of the * brightest 20% of the galaxy's flux. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec2.dat' ! Morphological parameters for the MS 1008, MS 2137 and Cl 0413 samples integer*4 nr__3 parameter (nr__3=94) ! Number of records character*75 ar__3 ! Full-size record character*4 ID_3 ! Object ID, [KZP2010] NANN in Simbad character*1 n_ID ! [*] individual notes (1) character*14 Comp ! Component real*4 F606W ! (mag) Total magnitude in F606W filter (G2) real*4 e_F606W ! (mag) rms uncertainty on F606W real*4 Rc_Rd ! (kpc) Effective radius of the bulge/scale length * of the disk real*4 e_Rc_Rd ! (kpc) rms uncertainty on Rc/Rd character*1 f_Rc_Rd ! [a] a if Rc/Rd in arcsec instead of kpc (G1) real*4 n ! ? Sersic index of the bulge profile real*4 e_n ! ? rms uncertainty on n real*4 q ! Flattening real*4 e_q ! rms uncertainty on q real*4 PA ! (deg) [-90/90] Position angle of the disk measured * from North through East real*4 e_PA ! (deg) rms uncertainty on PA *Note (1): Individual notes: * 2F14 = The parameters of 2F14 are unreliable since there is a diffraction * spike on top of it * 3F7 = The HST image of 3F7 is incomplete and therefore, its parameters are * also unreliable. The disk scale length of these galaxies is not used * in the analysis * 3F13 = 3F13 could not be analyzed because of the diffraction spike on the * image c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec3.dat' ! Morphological parameters for the MS 0451 sample (table C2 of Paper III, Kutdemir et al., 2008A&A...488..117K) integer*4 nr__4 parameter (nr__4=26) ! Number of records character*86 ar__4 ! Full-size record character*4 ID_4 ! Object ID (1ANN), [KZP2008] ANN in Simbad character*1 n_ID_1 ! [*] Individual note (1) character*14 Comp_1 ! Component real*4 F814W ! (mag) Total magnitude in F814W filter (G2) real*4 e_F814W ! (mag) rms uncertainty on F814W real*4 Rc_Rd_1 ! (kpc) Effective radius of the bulge/scale length * of the disk real*4 e_Rc_Rd_1 ! (kpc) rms uncertainty on Rc/Rd character*1 f_Rc_Rd_1 ! [a] a if Rc/Rd in arcsec instead of kpc (G1) real*4 n_1 ! ? Sersic index of the bulge profile real*4 e_n_1 ! ? rms uncertainty on n real*4 q_1 ! Flattening real*4 e_q_1 ! rms uncertainty on q real*4 PA_1 ! (deg) ? Position angle of the disk measured * from North through East real*4 e_PA_1 ! (deg) ? rms uncertainty on PA real*4 chi2 ! ? chi^2^ of the fit real*4 B_D ! ? Bulge to disk ratio *Note (1): Individual notes: * 1F11 = The redshift of galaxy 1F11. As a result, for this galaxy, Rc/Rd * is given in arcseconds. * 1C10 = The surface brightness profile of galaxy 1C10 is much more extended * on one side of the galaxy than on the other side. Therefore the scale * length and total magnitude of the disk given in the table are not * reliable. This galaxy was excluded while calculating the correlations * between the disk scale length and the irregularity in the gas * kinematics. C============================================================================= C Loading file 'table1.dat' ! Basic galaxy information for MS 0451 sample * (table1 of Paper III, Kutdemir et al., * 2008A&A...488..117K) C Format for file interpretation 1 format( + A4,1X,F6.4,1X,F3.1,1X,A15,1X,A6,1X,I1,1X,A7,1X,F7.5,A1,1X,I1, + 1X,A3,1X,I1,1X,F7.5,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,22 read(1,'(A75)')ar__ read(ar__,1) + ID,z,d,Name,MType1,r_MType1,MType,z1,f_z1,r_z1,MType2, + r_MType2,z2,r_z2 if(ar__(6:11) .EQ. '') z = rNULL__ if(ar__(13:15) .EQ. '') d = rNULL__ if(ar__(40:40) .EQ. '') r_MType1 = iNULL__ if(ar__(50:56) .EQ. '') z1 = rNULL__ if(ar__(59:59) .EQ. '') r_z1 = iNULL__ if(ar__(65:65) .EQ. '') r_MType2 = iNULL__ if(ar__(67:73) .EQ. '') z2 = rNULL__ if(ar__(75:75) .EQ. '') r_z2 = iNULL__ c ..............Just test output........... write(6,1) + ID,z,d,Name,MType1,r_MType1,MType,z1,f_z1,r_z1,MType2, + r_MType2,z2,r_z2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Basic galaxy information for MS 1008, * MS 2137 and Cl 0413 samples C Format for file interpretation 2 format( + A4,1X,F6.4,1X,F3.1,1X,A15,1X,A6,1X,I1,1X,A7,1X,F7.5,A1,1X,I1, + 1X,A3,1X,I1,1X,F7.5,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,72 read(1,'(A75)')ar__1 read(ar__1,2) + ID_1,z_1,d_1,Name_1,MType1_1,r_MType1_1,MType_1,z1_1,f_z1_1, + r_z1_1,MType2_1,r_MType2_1,z2_1,r_z2_1 if(ar__1(6:11) .EQ. '') z_1 = rNULL__ if(ar__1(13:15) .EQ. '') d_1 = rNULL__ if(ar__1(40:40) .EQ. '') r_MType1_1 = iNULL__ if(ar__1(50:56) .EQ. '') z1_1 = rNULL__ if(ar__1(59:59) .EQ. '') r_z1_1 = iNULL__ if(ar__1(65:65) .EQ. '') r_MType2_1 = iNULL__ if(ar__1(67:73) .EQ. '') z2_1 = rNULL__ if(ar__1(75:75) .EQ. '') r_z2_1 = iNULL__ c ..............Just test output........... write(6,2) + ID_1,z_1,d_1,Name_1,MType1_1,r_MType1_1,MType_1,z1_1,f_z1_1, + r_z1_1,MType2_1,r_MType2_1,z2_1,r_z2_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec1.dat' ! Photometric parameters for the whole sample C Format for file interpretation 3 format( + A4,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F6.2,1X,F4.2, + 1X,F4.2,1X,F4.2,1X,E7.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'tablec1.dat') write(6,*) '....Loading file: tablec1.dat' do i__=1,94 read(1,'(A76)')ar__2 read(ar__2,3) + ID_2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,BMAG,B_V,V_R,R_I,M_,A,C,G,M20 if(ar__2(27:32) .EQ. '') BMAG = rNULL__ if(ar__2(34:37) .EQ. '') B_V = rNULL__ if(ar__2(39:42) .EQ. '') V_R = rNULL__ if(ar__2(44:47) .EQ. '') R_I = rNULL__ if(ar__2(49:55) .EQ. '') M_ = rNULL__ if(ar__2(57:60) .EQ. '') A = rNULL__ if(ar__2(62:65) .EQ. '') C = rNULL__ if(ar__2(67:70) .EQ. '') G = rNULL__ if(ar__2(72:76) .EQ. '') M20 = 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,3) + ID_2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,BMAG,B_V,V_R,R_I,M_,A,C,G,M20 write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec2.dat' ! Morphological parameters for the MS 1008, * MS 2137 and Cl 0413 samples C Format for file interpretation 4 format( + A4,A1,1X,A14,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,A1,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'tablec2.dat') write(6,*) '....Loading file: tablec2.dat' do i__=1,94 read(1,'(A75)')ar__3 read(ar__3,4) + ID_3,n_ID,Comp,F606W,e_F606W,Rc_Rd,e_Rc_Rd,f_Rc_Rd,n,e_n,q, + e_q,PA,e_PA if(ar__3(45:48) .EQ. '') n = rNULL__ if(ar__3(50:53) .EQ. '') e_n = rNULL__ c ..............Just test output........... write(6,4) + ID_3,n_ID,Comp,F606W,e_F606W,Rc_Rd,e_Rc_Rd,f_Rc_Rd,n,e_n,q, + e_q,PA,e_PA c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablec3.dat' ! Morphological parameters for the MS 0451 sample * (table C2 of Paper III, Kutdemir et al., * 2008A&A...488..117K) C Format for file interpretation 5 format( + A4,A1,1X,A14,1X,F5.2,1X,F4.2,1X,F5.3,1X,F5.3,A1,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'tablec3.dat') write(6,*) '....Loading file: tablec3.dat' do i__=1,26 read(1,'(A86)')ar__4 read(ar__4,5) + ID_4,n_ID_1,Comp_1,F814W,e_F814W,Rc_Rd_1,e_Rc_Rd_1,f_Rc_Rd_1, + n_1,e_n_1,q_1,e_q_1,PA_1,e_PA_1,chi2,B_D if(ar__4(46:49) .EQ. '') n_1 = rNULL__ if(ar__4(51:54) .EQ. '') e_n_1 = rNULL__ if(ar__4(66:71) .EQ. '') PA_1 = rNULL__ if(ar__4(73:76) .EQ. '') e_PA_1 = rNULL__ if(ar__4(78:81) .EQ. '') chi2 = rNULL__ if(ar__4(83:86) .EQ. '') B_D = rNULL__ c ..............Just test output........... write(6,5) + ID_4,n_ID_1,Comp_1,F814W,e_F814W,Rc_Rd_1,e_Rc_Rd_1,f_Rc_Rd_1, + n_1,e_n_1,q_1,e_q_1,PA_1,e_PA_1,chi2,B_D c .......End.of.Just test output........... end do close(1) C============================================================================= stop end