Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/476/759 into FORTRAN code for loading all data files into arrays.
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-17 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/476/759 X-ray properties of AGN from the CJF sample (Britzen+, 2007) *================================================================================ *The soft X-ray properties of AGN from the CJF sample. A correlation analysis *between soft X-ray and VLBI properties. * Britzen S., Brinkmann W., Campbell R.M., Gliozzi M., Readhead A.C.S., * Browne I.W.A., Wilkinson P. * <Astron. Astrophys., 476, 759-777 (2007)> * =2007A&A...476..759B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! CJF sources in the ROSAT All Sky Survey integer*4 nr__ parameter (nr__=293) ! Number of records character*172 ar__ ! Full-size record character*8 CJF (nr__) ! CJF name (HHMM+DDd) (G1) character*38 ONames (nr__) ! Other names (1) character*10 Type (nr__) ! Type (2) character*1 n_Type (nr__) ! [nr*] Note on Type (3) character*1 l_z (nr__) ! Limit flag on z real*8 z (nr__) ! ? Redshift character*1 u_z (nr__) ! [?] Uncertainty flag on z character*2 f_z (nr__) ! [,t ] character*1 n_z (nr__) ! [r] Note on z (3) real*4 Vmag (nr__) ! (mag) ? V magnitude character*1 u_Vmag (nr__) ! [?] Uncertainty flag on Vmag character*1 n_Vmag (nr__) ! [r] Note on Vmag (3) integer*4 S5GHz (nr__) ! (mJy) 5GHz Green Bank flux character*1 l_EXML (nr__) ! Limit flag on EXML real*4 EXML (nr__) ! Likelihood of the existence of an X-ray * source at the radio position in the RASS real*4 FX (nr__) ! (fW/m2) X-ray flux in the 0.1-2.4keV band real*4 e_FX (nr__) ! (fW/m2) ? rms uncertainty on FX character*2 Obs (nr__) ! [p s] Pointed or Survey observation (4) character*12 VLA (nr__) ! VLA structure (5) character*7 r_VLA (nr__) ! Reference(s) for VLA, in refs.dat file integer*4 Jet (nr__) ! [0/5]? Value describing jet structure on * large (VLA) scales (6) character*1 u_Jet (nr__) ! [?] Uncertainty flag on Jet character*1 l_PA_VLA (nr__) ! [~] Limit flag on PA(VLA) integer*4 PA_VLA (nr__) ! (deg) ?=- Position angle of the VLA jet character*1 l_PA_VLA_2 (nr__) ! [~] Limit flag on PA(VLA)2 integer*4 PA_VLA_2 (nr__) ! (deg) ?=- Second value of position angle of * the VLA jet integer*4 PA_VLA_3 (nr__) ! (deg) ?=- Third value of Position angle of * the VLA jet character*1 n_PA_VLA (nr__) ! [1?+] Note pn PA(VLA) character*1 l_PA_VLBI (nr__) ! [~] Limit flag on PA(VLBI) integer*4 PA_VLBI (nr__) ! (deg) ?=- Position angle of the VLBI jet character*1 l_PA_VLBI_2(nr__) ! [~] Limit flag on PA(VLBI)2 integer*4 PA_VLBI_2 (nr__) ! (deg) ?=- Second value of Position angle of * the VLBI jet integer*4 DPA (nr__) ! (deg) ?=- Difference between the two position * angles integer*4 DPA2 (nr__) ! (deg) ? Second value of difference between the * two position angles character*5 n_DPA2 (nr__) ! Note on DPA2 *Note (1): Common name of the object, if available, and the JVAS J2000 name * (Wilkinson et al. 1998 & Browne 1998, Cat. VIII/60). In case the * source is not observed within JVAS, we used the Veron-Cetty & Veron * (2001, Cat. VII/224) edition of A Catalogue of Quasars and Active * Nuclei, or the CLASS source name (Myers et al., 2003, Cat. VIII/72) *Note (2): Type of objects as follows: * Q = quasar * B = BL Lac object * G = radio galaxy * HPQ = high polarized quasar * LPQ = low polarized quasar * CSO = compact symmetric object * Sy 1 = Seyfert galaxies type 1 * Sy 2 = Seyfert galaxies type 2 * pec = source with peculiar properties * cluster = source belonging to a cluster * G_L_ = gravitational lens system * C.g.l. = candidate gravitational lens *Note (3): Note as follows: * r = priv. comm. R. Vermeulen * n = NED information * * = Kim et al. (1991ApJ...379...80K) and * Slee & Siegman (1983PASAu...5..114S) *Note (4): Observation as follows: * s = source found by the standard analysis of the ROSAT Survey data * p = source found in the field of a pointed PSPC or HRI observation *Note (5): VLA structure as follows: * ? = unknown * / = no VLA information found * U = unresolved component * R = slightly resolved component * J = jet-like extended component * cJ = complex jet-like extended component * D = double source * cD = complex double source * JCJ = jet- and counter-jet * cJCJ = complex jet- and counter-jet * H = halo emission * G_L_ = gravitational lens system * C.g.l.: Candidate gravitational lens *Note (6): This is the complexity-factor (see Sect. 4.3.2 for a more * detailed description). Its maximum value is 5, describing the * most complex extended structure. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=32) ! Number of records character*67 ar__1 ! Full-size record integer*4 Ref (nr__1) ! Reference number character*19 BibCode (nr__1) ! BibCode character*21 Aut (nr__1) ! Author's name character*22 Com (nr__1) ! Comments c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Calculated values for sources not detected by ROSAT integer*4 nr__2 parameter (nr__2=61) ! Number of records character*123 ar__2 ! Full-size record character*8 CJF_1 (nr__2) ! CJF name (HHMM+DDd) (G1) real*4 beta (nr__2) ! (c) Apparent speed, {beta}_app_ real*4 dIC_f (nr__2) ! ? IC Doppler factor for alpha=-0.75 real*4 dICc_f (nr__2) ! ? Continuous IC Doppler factor for * alpha=-0.75 real*4 dEQ_f (nr__2) ! Equipartition argument for alpha=-0.75 real*4 logTB_f (nr__2) ! ([10-11K]) ? Observed brightness temperature for * alpha=-0.75 real*4 logTBic_f (nr__2) ! ([10-11K]) ? Intrinsic brightness temperature for * alpha=-0.75 real*4 gamma_f (nr__2) ! ? Bulk Lorentz factor, {gamma}_sl_ for * alpha=-0.75 real*4 phi_f (nr__2) ! Angle to the line of sight for alpha=-0.75 real*4 dIC (nr__2) ! ? IC Doppler factor for observed alpha real*4 dICc (nr__2) ! ? Continuous IC Doppler factor for observed * alpha real*4 dEQ (nr__2) ! Equipartition argument for observed alpha real*4 logTB (nr__2) ! ([10-11K]) ? Observed brightness temperature for * observed alpha real*4 logTBic (nr__2) ! ([10-11K]) ? Intrinsic brightness temperature for * observed alpha real*4 gamma (nr__2) ! ? Bulk Lorentz factor, {gamma}_sl_ for * observed alpha real*4 phi (nr__2) ! Angle to the line of sight for observed alpha integer*4 FVLBI (nr__2) ! (mJy) 5GHz integrated flux (from Paper I, * Britzen et al., Cat. J/A+A/472/763) integer*4 FBLVIc (nr__2) ! (mJy) 5GHz VLBI flux (from Taylor et al., * 1996ApJS..107...37T) real*4 logRC (nr__2) ! ([-]) Core dominance R_C_ (ratio of the VLBI * core-component flux to single-dish flux) real*4 RV (nr__2) ! Core dominance R_V_ (ratio of total VLBI flux * to single-dish flux) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Calculated values for sources detected by ROSAT integer*4 nr__3 parameter (nr__3=89) ! Number of records character*123 ar__3 ! Full-size record character*8 CJF_2 (nr__3) ! CJF name (HHMM+DDd) (G1) real*4 beta_1 (nr__3) ! (c) Apparent speed, {beta}_app_ real*4 dIC_f_1 (nr__3) ! ? IC Doppler factor for alpha=-0.75 real*4 dICc_f_1 (nr__3) ! ? Continuous IC Doppler factor for * alpha=-0.75 real*4 dEQ_f_1 (nr__3) ! Equipartition argument for alpha=-0.75 real*4 logTB_f_1 (nr__3) ! ([10-11K]) ? Observed brightness temperature for * alpha=-0.75 real*4 logTBic_f_1(nr__3) ! ([10-11K]) ? Intrinsic brightness temperature for * alpha=-0.75 real*4 gamma_f_1 (nr__3) ! ? Bulk Lorentz factor, {gamma}_sl_ for * alpha=-0.75 real*4 phi_f_1 (nr__3) ! Angle to the line of sight for alpha=-0.75 real*4 dIC_1 (nr__3) ! ? IC Doppler factor for observed alpha real*4 dICc_1 (nr__3) ! ? Continuous IC Doppler factor for observed * alpha real*4 dEQ_1 (nr__3) ! Equipartition argument for observed alpha real*4 logTB_1 (nr__3) ! ([10-11K]) ? Observed brightness temperature for * observed alpha real*4 logTBic_1 (nr__3) ! ([10-11K]) ? Intrinsic brightness temperature for * observed alpha real*4 gamma_1 (nr__3) ! ? Bulk Lorentz factor, {gamma}_sl_ for * observed alpha real*4 phi_1 (nr__3) ! Angle to the line of sight for observed alpha integer*4 FVLBI_1 (nr__3) ! (mJy) 5GHz integrated flux (from Paper I, * Britzen et al., Cat. J/A+A/472/763) integer*4 FBLVIc_1 (nr__3) ! (mJy) 5GHz VLBI flux (from Taylor et al., * 1996ApJS..107...37T) real*4 logRC_1 (nr__3) ! ([-]) Core dominance R_C_ (ratio of the VLBI * core-component flux to single-dish flux) real*4 RV_1 (nr__3) ! Core dominance R_V_ (ratio of total VLBI flux * to single-dish flux) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Calculated values for sources not detected by ROSAT and not shown in the plots of this paper integer*4 nr__4 parameter (nr__4=41) ! Number of records character*90 ar__4 ! Full-size record character*8 CJF_3 (nr__4) ! CJF name (HHMM+DDd) (G1) real*4 dIC_f_1 (nr__4) ! ? IC Doppler factor for alpha=-0.75 real*4 dICc_f_1 (nr__4) ! ? Continuous IC Doppler factor for * alpha=-0.75 real*4 dEQ_f_1 (nr__4) ! Equipartition argument for alpha=-0.75 real*4 logTB_f_1 (nr__4) ! ([10-11K]) ? Observed brightness temperature for * alpha=-0.75 real*4 logTBic_f_1(nr__4) ! ([10-11K]) ? Intrinsic brightness temperature for * alpha=-0.75 real*4 dIC_2 (nr__4) ! ? IC Doppler factor for observed alpha real*4 dICc_2 (nr__4) ! ? Continuous IC Doppler factor for observed * alpha real*4 dEQ_2 (nr__4) ! Equipartition argument for observed alpha real*4 logTB_2 (nr__4) ! ([10-11K]) ? Observed brightness temperature for * observed alpha real*4 logTBic_2 (nr__4) ! ([10-11K]) ? Intrinsic brightness temperature for * observed alpha integer*4 FVLBI_2 (nr__4) ! (mJy) 5GHz integrated flux (from Paper I, * Britzen et al., Cat. J/A+A/472/763) integer*4 FBLVIc_2 (nr__4) ! (mJy) 5GHz VLBI flux (from Taylor et al., * 1996ApJS..107...37T) real*4 logRC_2 (nr__4) ! ([-]) Core dominance R_C_ (ratio of the VLBI * core-component flux to single-dish flux) real*4 RV_2 (nr__4) ! Core dominance R_V_ (ratio of total VLBI flux * to single-dish flux) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Calculated values for sources detected by ROSAT and not shown in the plots of this paper integer*4 nr__5 parameter (nr__5=63) ! Number of records character*90 ar__5 ! Full-size record character*8 CJF_4 (nr__5) ! CJF name (HHMM+DDd) (G1) real*4 dIC_f_1 (nr__5) ! ? IC Doppler factor for alpha=-0.75 real*4 dICc_f_1 (nr__5) ! ? Continuous IC Doppler factor for * alpha=-0.75 real*4 dEQ_f_1 (nr__5) ! Equipartition argument for alpha=-0.75 real*4 logTB_f_1 (nr__5) ! ([10-11K]) ? Observed brightness temperature for * alpha=-0.75 real*4 logTBic_f_1(nr__5) ! ([10-11K]) ? Intrinsic brightness temperature for * alpha=-0.75 real*4 dIC_3 (nr__5) ! ? IC Doppler factor for observed alpha real*4 dICc_3 (nr__5) ! ? Continuous IC Doppler factor for observed * alpha real*4 dEQ_3 (nr__5) ! Equipartition argument for observed alpha real*4 logTB_3 (nr__5) ! ([10-11K]) ? Observed brightness temperature for * observed alpha real*4 logTBic_3 (nr__5) ! ([10-11K]) ? Intrinsic brightness temperature for * observed alpha integer*4 FVLBI_3 (nr__5) ! (mJy) 5GHz integrated flux (from Paper I, * Britzen et al., Cat. J/A+A/472/763) integer*4 FBLVIc_3 (nr__5) ! (mJy) 5GHz VLBI flux (from Taylor et al., * 1996ApJS..107...37T) real*4 logRC_3 (nr__5) ! ([-]) Core dominance R_C_ (ratio of the VLBI * core-component flux to single-dish flux) real*4 RV_3 (nr__5) ! Core dominance R_V_ (ratio of total VLBI flux * to single-dish flux) C============================================================================= C Loading file 'table1.dat' ! CJF sources in the ROSAT All Sky Survey C Format for file interpretation 1 format( + A8,1X,A38,1X,A10,A1,1X,A1,F7.5,A1,A2,1X,A1,1X,F5.2,A1,A1,1X, + I5,A1,F6.2,1X,F6.2,1X,F4.2,1X,A2,1X,A12,A7,1X,I1,A1,1X,A1,I3, + 1X,A1,I3,1X,I3,1X,A1,1X,A1,I3,1X,A1,I3,1X,I3,1X,I3,1X,A5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,293 read(1,'(A172)')ar__ read(ar__,1) + CJF(i__),ONames(i__),Type(i__),n_Type(i__),l_z(i__),z(i__), + u_z(i__),f_z(i__),n_z(i__),Vmag(i__),u_Vmag(i__),n_Vmag(i__), + S5GHz(i__),l_EXML(i__),EXML(i__),FX(i__),e_FX(i__),Obs(i__), + VLA(i__),r_VLA(i__),Jet(i__),u_Jet(i__),l_PA_VLA(i__), + PA_VLA(i__),l_PA_VLA_2(i__),PA_VLA_2(i__),PA_VLA_3(i__), + n_PA_VLA(i__),l_PA_VLBI(i__),PA_VLBI(i__),l_PA_VLBI_2(i__), + PA_VLBI_2(i__),DPA(i__),DPA2(i__),n_DPA2(i__) if(ar__(62:68) .EQ. '') z(i__) = rNULL__ if(ar__(75:79) .EQ. '') Vmag(i__) = rNULL__ if(ar__(103:106) .EQ. '') e_FX(i__) = rNULL__ if(ar__(131:131) .EQ. '') Jet(i__) = iNULL__ if (PA_VLA(i__) .EQ. 45) PA_VLA(i__) = iNULL__ if (PA_VLA_2(i__) .EQ. 45) PA_VLA_2(i__) = iNULL__ if (PA_VLA_3(i__) .EQ. 45) PA_VLA_3(i__) = iNULL__ if (PA_VLBI(i__) .EQ. 45) PA_VLBI(i__) = iNULL__ if (PA_VLBI_2(i__) .EQ. 45) PA_VLBI_2(i__) = iNULL__ if (DPA(i__) .EQ. 45) DPA(i__) = iNULL__ if(ar__(164:166) .EQ. '') DPA2(i__) = iNULL__ c ..............Just test output........... write(6,1) + CJF(i__),ONames(i__),Type(i__),n_Type(i__),l_z(i__),z(i__), + u_z(i__),f_z(i__),n_z(i__),Vmag(i__),u_Vmag(i__),n_Vmag(i__), + S5GHz(i__),l_EXML(i__),EXML(i__),FX(i__),e_FX(i__),Obs(i__), + VLA(i__),r_VLA(i__),Jet(i__),u_Jet(i__),l_PA_VLA(i__), + PA_VLA(i__),l_PA_VLA_2(i__),PA_VLA_2(i__),PA_VLA_3(i__), + n_PA_VLA(i__),l_PA_VLBI(i__),PA_VLBI(i__),l_PA_VLBI_2(i__), + PA_VLBI_2(i__),DPA(i__),DPA2(i__),n_DPA2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(I2,1X,A19,1X,A21,1X,A22) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,32 read(1,'(A67)')ar__1 read(ar__1,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__) c ..............Just test output........... write(6,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Calculated values for sources not detected by ROSAT C Format for file interpretation 3 format( + A8,1X,F6.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F6.2,1X, + F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F6.2,1X,F6.2, + 1X,I4,1X,I4,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,61 read(1,'(A123)')ar__2 read(ar__2,3) + CJF_1(i__),beta(i__),dIC_f(i__),dICc_f(i__),dEQ_f(i__), + logTB_f(i__),logTBic_f(i__),gamma_f(i__),phi_f(i__),dIC(i__), + dICc(i__),dEQ(i__),logTB(i__),logTBic(i__),gamma(i__), + phi(i__),FVLBI(i__),FBLVIc(i__),logRC(i__),RV(i__) if(ar__2(17:21) .EQ. '') dIC_f(i__) = rNULL__ if(ar__2(23:27) .EQ. '') dICc_f(i__) = rNULL__ if(ar__2(34:38) .EQ. '') logTB_f(i__) = rNULL__ if(ar__2(40:44) .EQ. '') logTBic_f(i__) = rNULL__ if(ar__2(46:51) .EQ. '') gamma_f(i__) = rNULL__ if(ar__2(60:64) .EQ. '') dIC(i__) = rNULL__ if(ar__2(66:71) .EQ. '') dICc(i__) = rNULL__ if(ar__2(78:82) .EQ. '') logTB(i__) = rNULL__ if(ar__2(84:88) .EQ. '') logTBic(i__) = rNULL__ if(ar__2(90:95) .EQ. '') gamma(i__) = rNULL__ c ..............Just test output........... write(6,3) + CJF_1(i__),beta(i__),dIC_f(i__),dICc_f(i__),dEQ_f(i__), + logTB_f(i__),logTBic_f(i__),gamma_f(i__),phi_f(i__),dIC(i__), + dICc(i__),dEQ(i__),logTB(i__),logTBic(i__),gamma(i__), + phi(i__),FVLBI(i__),FBLVIc(i__),logRC(i__),RV(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Calculated values for sources detected by ROSAT C Format for file interpretation 4 format( + A8,1X,F6.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F6.2,1X, + F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F6.2,1X,F6.2, + 1X,I4,1X,I4,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,89 read(1,'(A123)')ar__3 read(ar__3,4) + CJF_2(i__),beta_1(i__),dIC_f_1(i__),dICc_f_1(i__), + dEQ_f_1(i__),logTB_f_1(i__),logTBic_f_1(i__),gamma_f_1(i__), + phi_f_1(i__),dIC_1(i__),dICc_1(i__),dEQ_1(i__),logTB_1(i__), + logTBic_1(i__),gamma_1(i__),phi_1(i__),FVLBI_1(i__), + FBLVIc_1(i__),logRC_1(i__),RV_1(i__) if(ar__3(17:21) .EQ. '') dIC_f_1(i__) = rNULL__ if(ar__3(23:27) .EQ. '') dICc_f_1(i__) = rNULL__ if(ar__3(34:38) .EQ. '') logTB_f_1(i__) = rNULL__ if(ar__3(40:44) .EQ. '') logTBic_f_1(i__) = rNULL__ if(ar__3(46:51) .EQ. '') gamma_f_1(i__) = rNULL__ if(ar__3(60:64) .EQ. '') dIC_1(i__) = rNULL__ if(ar__3(66:71) .EQ. '') dICc_1(i__) = rNULL__ if(ar__3(78:82) .EQ. '') logTB_1(i__) = rNULL__ if(ar__3(84:88) .EQ. '') logTBic_1(i__) = rNULL__ if(ar__3(90:95) .EQ. '') gamma_1(i__) = rNULL__ c ..............Just test output........... write(6,4) + CJF_2(i__),beta_1(i__),dIC_f_1(i__),dICc_f_1(i__), + dEQ_f_1(i__),logTB_f_1(i__),logTBic_f_1(i__),gamma_f_1(i__), + phi_f_1(i__),dIC_1(i__),dICc_1(i__),dEQ_1(i__),logTB_1(i__), + logTBic_1(i__),gamma_1(i__),phi_1(i__),FVLBI_1(i__), + FBLVIc_1(i__),logRC_1(i__),RV_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Calculated values for sources not detected by ROSAT * and not shown in the plots of this paper C Format for file interpretation 5 format( + A8,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F6.2,1X, + F4.2,1X,F5.2,1X,F5.2,1X,I4,1X,I5,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,41 read(1,'(A90)')ar__4 read(ar__4,5) + CJF_3(i__),dIC_f_1(i__),dICc_f_1(i__),dEQ_f_1(i__), + logTB_f_1(i__),logTBic_f_1(i__),dIC_2(i__),dICc_2(i__), + dEQ_2(i__),logTB_2(i__),logTBic_2(i__),FVLBI_2(i__), + FBLVIc_2(i__),logRC_2(i__),RV_2(i__) if(ar__4(10:14) .EQ. '') dIC_f_1(i__) = rNULL__ if(ar__4(16:20) .EQ. '') dICc_f_1(i__) = rNULL__ if(ar__4(28:32) .EQ. '') logTB_f_1(i__) = rNULL__ if(ar__4(34:38) .EQ. '') logTBic_f_1(i__) = rNULL__ if(ar__4(40:44) .EQ. '') dIC_2(i__) = rNULL__ if(ar__4(46:51) .EQ. '') dICc_2(i__) = rNULL__ if(ar__4(58:62) .EQ. '') logTB_2(i__) = rNULL__ if(ar__4(64:68) .EQ. '') logTBic_2(i__) = rNULL__ c ..............Just test output........... write(6,5) + CJF_3(i__),dIC_f_1(i__),dICc_f_1(i__),dEQ_f_1(i__), + logTB_f_1(i__),logTBic_f_1(i__),dIC_2(i__),dICc_2(i__), + dEQ_2(i__),logTB_2(i__),logTBic_2(i__),FVLBI_2(i__), + FBLVIc_2(i__),logRC_2(i__),RV_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Calculated values for sources detected by ROSAT * and not shown in the plots of this paper C Format for file interpretation 6 format( + A8,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F6.2,1X, + F4.2,1X,F5.2,1X,F5.2,1X,I4,1X,I5,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,63 read(1,'(A90)')ar__5 read(ar__5,6) + CJF_4(i__),dIC_f_1(i__),dICc_f_1(i__),dEQ_f_1(i__), + logTB_f_1(i__),logTBic_f_1(i__),dIC_3(i__),dICc_3(i__), + dEQ_3(i__),logTB_3(i__),logTBic_3(i__),FVLBI_3(i__), + FBLVIc_3(i__),logRC_3(i__),RV_3(i__) if(ar__5(10:14) .EQ. '') dIC_f_1(i__) = rNULL__ if(ar__5(16:20) .EQ. '') dICc_f_1(i__) = rNULL__ if(ar__5(28:32) .EQ. '') logTB_f_1(i__) = rNULL__ if(ar__5(34:38) .EQ. '') logTBic_f_1(i__) = rNULL__ if(ar__5(40:44) .EQ. '') dIC_3(i__) = rNULL__ if(ar__5(46:51) .EQ. '') dICc_3(i__) = rNULL__ if(ar__5(58:62) .EQ. '') logTB_3(i__) = rNULL__ if(ar__5(64:68) .EQ. '') logTBic_3(i__) = rNULL__ c ..............Just test output........... write(6,6) + CJF_4(i__),dIC_f_1(i__),dICc_f_1(i__),dEQ_f_1(i__), + logTB_f_1(i__),logTBic_f_1(i__),dIC_3(i__),dICc_3(i__), + dEQ_3(i__),logTB_3(i__),logTBic_3(i__),FVLBI_3(i__), + FBLVIc_3(i__),logRC_3(i__),RV_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end