Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/193/25 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-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/ApJS/193/25 The NAN complex. II. MIPS observations (Rebull+, 2011) *================================================================================ *The North American and Pelican nebulae. *II. MIPS observations and analysis. * Rebull L.M., Guieu S., Stauffer J.R., Hillenbrand L.A., Noriega-Crespo A., * Stapelfeldt K.R., Carey S.J., Carpenter J.M., Cole D.M., Padgett D.L., * Strom S.E., Wolff S.C. * <Astrophys. J. Suppl. Ser., 193, 25 (2011)> * =2011ApJS..193...25R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Complete list of YSOs I. Spitzer measurements integer*4 nr__ parameter (nr__=1286) ! Number of records character*187 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*18 v_RGS2011_ (nr__) ! Source name (HHMMSS.ss+DDMMSS.s on J2000) real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) character*16 v2MASS (nr__) ! 2MASS name (HHMMSSss+DDMMSSs) character*23 AName (nr__) ! Alternate name character*12 SpType (nr__) ! MK spectral type character*22 r_SpType (nr__) ! Reference for SpType (1) character*1 l__3_6_ (nr__) ! Limit flag on 3.6] real*4 v_3_6_ (nr__) ! (mag) ? Spitzer/IRAC 3.6 micron band magnitude real*4 e__3_6_ (nr__) ! (mag) ? Uncertainty in 3.6mag character*1 l__4_5_ (nr__) ! Limit flag on 4.5] real*4 v_4_5_ (nr__) ! (mag) ? Spitzer/IRAC 4.5 micron band magnitude real*4 e__4_5_ (nr__) ! (mag) ? Uncertainty in 4.5mag character*1 l__5_8_ (nr__) ! Limit flag on 5.8] real*4 v_5_8_ (nr__) ! (mag) ? Spitzer/IRAC 5.8 micron band magnitude real*4 e__5_8_ (nr__) ! (mag) ? Uncertainty in 5.8mag character*1 l__8_0_ (nr__) ! Limit flag on 8.0] real*4 v_8_0_ (nr__) ! (mag) ? Spitzer/IRAC 8.0 micron band magnitude real*4 e__8_0_ (nr__) ! (mag) ? Uncertainty in 8.0mag character*1 l__24_ (nr__) ! Limit flag on 24] real*4 v_24_ (nr__) ! (mag) ? Spitzer/MIPS 24 micron band magnitude real*4 e__24_ (nr__) ! (mag) ? Uncertainty in 24mag real*4 v_70_ (nr__) ! (mag) ? Spitzer/MIPS 70 micron band magnitude real*4 e__70_ (nr__) ! (mag) ? Uncertainty in 70mag *Note (1): References as follows: * BallyScoville = 1980ApJ...239..121B * CohenKuhi79 = 1979ApJS...41..743C * Comeron05 = 2005A&A...430..541C; <[CP2005] NN> in Simbad * Corbally09 = 2009BaltA..18..111C; <[CSL2009] CSL N> in Simbad * Laugalys02 = 2002BaltA..11..205L * Laugalys06a = 2006BaltA..15..483L (Cat. J/BaltA/15/483; * <[LSV2006] Area II NNN> in Simbad) * Laugalys06b = 2006BaltA..15..327L * MerrillBurwell49 = 1949ApJ...110..387M * Ogura2002 = 2002AJ....123.2597O (Cat. J/AJ/123/2597; * <[OSP2002] BRC 31 NN> in Simbad) * Shevchenko93 = 1993Ap&SS.202..121S * SIMBAD = http://simbad.u-strasbg.fr/simbad/ * Straizys08a = 2008BaltA..17....1S (Cat. J/BaltA/17/1) * Straizys08b = 2008BaltA..17..143S; <[SL2008c] NN> in Simbad * Straizys09 = 2009BaltA..18..141S (Cat. J/BaltA/18/141) * Straizys89 = 1989VilOB..83....3S * Straizys93 = 1993BaltA...2..171S (Cat. II/196) * Straizys99 = 1999BaltA...8..355S * Terranegra94 = 1994A&AS..104..557T (Cat. J/A+AS/104/557) * Vill04 = 2004A&A...419..149V (Cat. J/A+A/419/149; * <Cl* NGC 6996 VBC NNNN> in Simbad) * Welin73 = 1973A&AS....9..183W * Zdan90 = 1990Ap&SS.173..309Z c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Complete list of YSOs II. YSO criteria integer*4 nr__1 parameter (nr__1=1286) ! Number of records character*82 ar__1 ! Full-size record character*18 v_RGS2011__1(nr__1) ! Source name (HHMMSS.ss+DDMMSS.s) character*8 Clu (nr__1) ! Cluster Name (1) character*1 Q (nr__1) ! [ABC] YSO quality (A for good confidence) character*4 cl (nr__1) ! YSO class (2) character*3 cr1 (nr__1) ! [yes/no] Selected from [3.6] vs [3.6]-[24] CMD (3) character*3 cr2 (nr__1) ! [yes/no] Not too faint in [3.6] vs [3.6]-[24] * CMD (3) character*3 cr3 (nr__1) ! [yes/no] Selected from Ks vs Ks-[24] CMD (3) character*3 cr4 (nr__1) ! [yes/no] Detected at 70 microns (3) character*3 cr5 (nr__1) ! [yes/no] Found in Guieu et al. 2009 * Cat. J/ApJ/697/787 ([GRS2009] in Simbad) character*3 cr6 (nr__1) ! [yes/no] Close to the middle of the nebula (3) character*3 cr7 (nr__1) ! [yes/no] In a cluster (3) character*3 cr8 (nr__1) ! [yes/no] Previously identified YSO (3) character*3 cr9 (nr__1) ! [yes/no] Selected from Ic vs. V-Ic CMD (3) character*3 cr10 (nr__1) ! [yes/no] Selected from IPHAS r' vs. r'-i' CMD (3) character*3 cr11 (nr__1) ! [yes/no] A bright IPHAS H{alpha} source (3) character*3 cr12 (nr__1) ! [yes/no] Selected from IPHAS r'-H{alpha} vs * r'-i' diagram (3) *Note (1): Clusters as follows: * Pelican = IC 5070. See section 6.3 for further details. * PelHat = Pelican's Hat. North of the Pelican's head, in roughly the same * location as would be found a hat on its head, is a previously * unidentified dark lane at 24um, similar to but much smaller than * the Gulf of Mexico. See section 6.4 for further details. * Gulf = The "Gulf of Mexico" region is the area of highest extinction in * the NAN (The North American (NGC 7000) and Pelican (IC 5070) * Nebulae) complex. See section 6.2 for further details. *Note (2): In the spirit of Wilking et al. (2001ApJ...551..357W), we define the * near- to mid-IR slope of the SED, * {alpha}=dlog{lambda}F_{lambda}_/dlog{lambda}, where {alpha}>0.3 for a * Class I, 0.3 to -0.3 for a flat-spectrum source, -0.3 to -1.6 for a * Class II, and <-1.6 for a Class III. *Note (3): For each individual criterion, a "yes" means the object met that * given criterion for YSO selection, "no" means it did not, and blank * means that it was unable to be assessed for that criterion. * For example, column S3624 indicates whether each object was selected * as a YSO candidate in the [3.6] vs. [3.6]-[24] diagram ("yes"), or * it was not ("no"), or, it was missing a 3.6 or 24 micron * measurement, and thus could not be assessed in the [3.6] vs. * [3.6]-[24] diagram (blank). * See section 4.2 for further details on each criterion. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! IRAC-selected YSOs not recovered by our MIPS-based search integer*4 nr__2 parameter (nr__2=796) ! Number of records character*187 ar__2 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*18 v_RGS2011__2(nr__2) ! Source name (HHMMSS.ss+DDMMSS.s on J2000) real*8 RAdeg_1 (nr__2) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 (nr__2) ! (deg) Declination in decimal degrees (J2000) character*16 v2MASS_1 (nr__2) ! 2MASS name (HHMMSSss+DDMMSSs) character*23 AName_1 (nr__2) ! Alternate name character*12 SpType_1 (nr__2) ! MK spectral type character*22 r_SpType_1 (nr__2) ! Reference for SpType (1) character*1 l__3_6__1 (nr__2) ! Limit flag on 3.6] real*4 v_3_6__1 (nr__2) ! (mag) ? Spitzer/IRAC 3.6 micron band magnitude real*4 e__3_6__1 (nr__2) ! (mag) ? Uncertainty in 3.6mag character*1 l__4_5__1 (nr__2) ! Limit flag on 4.5] real*4 v_4_5__1 (nr__2) ! (mag) ? Spitzer/IRAC 4.5 micron band magnitude real*4 e__4_5__1 (nr__2) ! (mag) ? Uncertainty in 4.5mag character*1 l__5_8__1 (nr__2) ! Limit flag on 5.8] real*4 v_5_8__1 (nr__2) ! (mag) ? Spitzer/IRAC 5.8 micron band magnitude real*4 e__5_8__1 (nr__2) ! (mag) ? Uncertainty in 5.8mag character*1 l__8_0__1 (nr__2) ! Limit flag on 8.0] real*4 v_8_0__1 (nr__2) ! (mag) ? Spitzer/IRAC 8.0 micron band magnitude real*4 e__8_0__1 (nr__2) ! (mag) ? Uncertainty in 8.0mag character*1 l__24__1 (nr__2) ! Limit flag on 24] real*4 v_24__1 (nr__2) ! (mag) ? Spitzer/MIPS 24 micron band magnitude real*4 e__24__1 (nr__2) ! (mag) ? Uncertainty in 24mag real*4 v_70__1 (nr__2) ! (mag) ? Spitzer/MIPS 70 micron band magnitude real*4 e__70__1 (nr__2) ! (mag) ? Uncertainty in 70mag *Note (1): References as follows: * BallyScoville = 1980ApJ...239..121B * CohenKuhi79 = 1979ApJS...41..743C * Comeron05 = 2005A&A...430..541C; <[CP2005] NN> in Simbad * Corbally09 = 2009BaltA..18..111C; <[CSL2009] CSL N> in Simbad * Laugalys02 = 2002BaltA..11..205L * Laugalys06a = 2006BaltA..15..483L (Cat. J/BaltA/15/483; * <[LSV2006] Area II NNN> in Simbad) * Laugalys06b = 2006BaltA..15..327L * MerrillBurwell49 = 1949ApJ...110..387M * Ogura2002 = 2002AJ....123.2597O (Cat. J/AJ/123/2597; * <[OSP2002] BRC 31 NN> in Simbad) * Shevchenko93 = 1993Ap&SS.202..121S * SIMBAD = http://simbad.u-strasbg.fr/simbad/ * Straizys08a = 2008BaltA..17....1S (Cat. J/BaltA/17/1) * Straizys08b = 2008BaltA..17..143S; <[SL2008c] NN> in Simbad * Straizys09 = 2009BaltA..18..141S (Cat. J/BaltA/18/141) * Straizys89 = 1989VilOB..83....3S * Straizys93 = 1993BaltA...2..171S (Cat. II/196) * Straizys99 = 1999BaltA...8..355S * Terranegra94 = 1994A&AS..104..557T (Cat. J/A+AS/104/557) * Vill04 = 2004A&A...419..149V (Cat. J/A+A/419/149; * <Cl* NGC 6996 VBC NNNN> in Simbad) * Welin73 = 1973A&AS....9..183W * Zdan90 = 1990Ap&SS.173..309Z c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table9.dat' ! Previously suggested YSOs not recovered by our MIPS or IRAC searches integer*4 nr__3 parameter (nr__3=114) ! Number of records character*187 ar__3 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*18 v_RGS2011__3(nr__3) ! Source name (HHMMSS.ss+DDMMSS.s on J2000) real*8 RAdeg_2 (nr__3) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_2 (nr__3) ! (deg) Declination in decimal degrees (J2000) character*16 v2MASS_2 (nr__3) ! 2MASS name (HHMMSSss+DDMMSSs) character*23 AName_2 (nr__3) ! Alternate name character*12 SpType_2 (nr__3) ! MK spectral type character*22 r_SpType_2 (nr__3) ! Reference for SpType (1) character*1 l__3_6__2 (nr__3) ! Limit flag on 3.6] real*4 v_3_6__2 (nr__3) ! (mag) ? Spitzer/IRAC 3.6 micron band magnitude real*4 e__3_6__2 (nr__3) ! (mag) ? Uncertainty in 3.6mag character*1 l__4_5__2 (nr__3) ! Limit flag on 4.5] real*4 v_4_5__2 (nr__3) ! (mag) ? Spitzer/IRAC 4.5 micron band magnitude real*4 e__4_5__2 (nr__3) ! (mag) ? Uncertainty in 4.5mag character*1 l__5_8__2 (nr__3) ! Limit flag on 5.8] real*4 v_5_8__2 (nr__3) ! (mag) ? Spitzer/IRAC 5.8 micron band magnitude real*4 e__5_8__2 (nr__3) ! (mag) ? Uncertainty in 5.8mag character*1 l__8_0__2 (nr__3) ! Limit flag on 8.0] real*4 v_8_0__2 (nr__3) ! (mag) ? Spitzer/IRAC 8.0 micron band magnitude real*4 e__8_0__2 (nr__3) ! (mag) ? Uncertainty in 8.0mag character*1 l__24__2 (nr__3) ! Limit flag on 24] real*4 v_24__2 (nr__3) ! (mag) ? Spitzer/MIPS 24 micron band magnitude real*4 e__24__2 (nr__3) ! (mag) ? Uncertainty in 24mag real*4 v_70__2 (nr__3) ! (mag) ? Spitzer/MIPS 70 micron band magnitude real*4 e__70__2 (nr__3) ! (mag) ? Uncertainty in 70mag *Note (1): References as follows: * BallyScoville = 1980ApJ...239..121B * CohenKuhi79 = 1979ApJS...41..743C * Comeron05 = 2005A&A...430..541C; <[CP2005] NN> in Simbad * Corbally09 = 2009BaltA..18..111C; <[CSL2009] CSL N> in Simbad * Laugalys02 = 2002BaltA..11..205L * Laugalys06a = 2006BaltA..15..483L (Cat. J/BaltA/15/483; * <[LSV2006] Area II NNN> in Simbad) * Laugalys06b = 2006BaltA..15..327L * MerrillBurwell49 = 1949ApJ...110..387M * Ogura2002 = 2002AJ....123.2597O (Cat. J/AJ/123/2597; * <[OSP2002] BRC 31 NN> in Simbad) * Shevchenko93 = 1993Ap&SS.202..121S * SIMBAD = http://simbad.u-strasbg.fr/simbad/ * Straizys08a = 2008BaltA..17....1S (Cat. J/BaltA/17/1) * Straizys08b = 2008BaltA..17..143S; <[SL2008c] NN> in Simbad * Straizys09 = 2009BaltA..18..141S (Cat. J/BaltA/18/141) * Straizys89 = 1989VilOB..83....3S * Straizys93 = 1993BaltA...2..171S (Cat. II/196) * Straizys99 = 1999BaltA...8..355S * Terranegra94 = 1994A&AS..104..557T (Cat. J/A+AS/104/557) * Vill04 = 2004A&A...419..149V (Cat. J/A+A/419/149; * <Cl* NGC 6996 VBC NNNN> in Simbad) * Welin73 = 1973A&AS....9..183W * Zdan90 = 1990Ap&SS.173..309Z C============================================================================= C Loading file 'table3.dat' ! Complete list of YSOs I. Spitzer measurements C Format for file interpretation 1 format( + A18,1X,F10.6,1X,F9.6,1X,A16,1X,A23,1X,A12,1X,A22,1X,A1,F5.2, + 1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X, + F4.2,1X,A1,F5.2,1X,F4.2,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,1286 read(1,'(A187)')ar__ read(ar__,1) + v_RGS2011_(i__),RAdeg(i__),DEdeg(i__),v2MASS(i__),AName(i__), + SpType(i__),r_SpType(i__),l__3_6_(i__),v_3_6_(i__), + e__3_6_(i__),l__4_5_(i__),v_4_5_(i__),e__4_5_(i__), + l__5_8_(i__),v_5_8_(i__),e__5_8_(i__),l__8_0_(i__), + v_8_0_(i__),e__8_0_(i__),l__24_(i__),v_24_(i__),e__24_(i__), + v_70_(i__),e__70_(i__) if(ar__(119:123) .EQ. '') v_3_6_(i__) = rNULL__ if(ar__(125:128) .EQ. '') e__3_6_(i__) = rNULL__ if(ar__(131:135) .EQ. '') v_4_5_(i__) = rNULL__ if(ar__(137:140) .EQ. '') e__4_5_(i__) = rNULL__ if(ar__(143:147) .EQ. '') v_5_8_(i__) = rNULL__ if(ar__(149:152) .EQ. '') e__5_8_(i__) = rNULL__ if(ar__(155:159) .EQ. '') v_8_0_(i__) = rNULL__ if(ar__(161:164) .EQ. '') e__8_0_(i__) = rNULL__ if(ar__(167:171) .EQ. '') v_24_(i__) = rNULL__ if(ar__(173:176) .EQ. '') e__24_(i__) = rNULL__ if(ar__(178:182) .EQ. '') v_70_(i__) = rNULL__ if(ar__(184:187) .EQ. '') e__70_(i__) = rNULL__ c ..............Just test output........... write(6,1) + v_RGS2011_(i__),RAdeg(i__),DEdeg(i__),v2MASS(i__),AName(i__), + SpType(i__),r_SpType(i__),l__3_6_(i__),v_3_6_(i__), + e__3_6_(i__),l__4_5_(i__),v_4_5_(i__),e__4_5_(i__), + l__5_8_(i__),v_5_8_(i__),e__5_8_(i__),l__8_0_(i__), + v_8_0_(i__),e__8_0_(i__),l__24_(i__),v_24_(i__),e__24_(i__), + v_70_(i__),e__70_(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Complete list of YSOs II. YSO criteria C Format for file interpretation 2 format( + A18,1X,A8,1X,A1,1X,A4,1X,A3,1X,A3,1X,A3,1X,A3,1X,A3,1X,A3,1X, + A3,1X,A3,1X,A3,1X,A3,1X,A3,1X,A3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,1286 read(1,'(A82)')ar__1 read(ar__1,2) + v_RGS2011__1(i__),Clu(i__),Q(i__),cl(i__),cr1(i__),cr2(i__), + cr3(i__),cr4(i__),cr5(i__),cr6(i__),cr7(i__),cr8(i__), + cr9(i__),cr10(i__),cr11(i__),cr12(i__) c ..............Just test output........... write(6,2) + v_RGS2011__1(i__),Clu(i__),Q(i__),cl(i__),cr1(i__),cr2(i__), + cr3(i__),cr4(i__),cr5(i__),cr6(i__),cr7(i__),cr8(i__), + cr9(i__),cr10(i__),cr11(i__),cr12(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! IRAC-selected YSOs not recovered by our * MIPS-based search C Format for file interpretation 3 format( + A18,1X,F10.6,1X,F9.6,1X,A16,1X,A23,1X,A12,1X,A22,1X,A1,F5.2, + 1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X, + F4.2,1X,A1,F5.2,1X,F4.2,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,796 read(1,'(A187)')ar__2 read(ar__2,3) + v_RGS2011__2(i__),RAdeg_1(i__),DEdeg_1(i__),v2MASS_1(i__), + AName_1(i__),SpType_1(i__),r_SpType_1(i__),l__3_6__1(i__), + v_3_6__1(i__),e__3_6__1(i__),l__4_5__1(i__),v_4_5__1(i__), + e__4_5__1(i__),l__5_8__1(i__),v_5_8__1(i__),e__5_8__1(i__), + l__8_0__1(i__),v_8_0__1(i__),e__8_0__1(i__),l__24__1(i__), + v_24__1(i__),e__24__1(i__),v_70__1(i__),e__70__1(i__) if(ar__2(119:123) .EQ. '') v_3_6__1(i__) = rNULL__ if(ar__2(125:128) .EQ. '') e__3_6__1(i__) = rNULL__ if(ar__2(131:135) .EQ. '') v_4_5__1(i__) = rNULL__ if(ar__2(137:140) .EQ. '') e__4_5__1(i__) = rNULL__ if(ar__2(143:147) .EQ. '') v_5_8__1(i__) = rNULL__ if(ar__2(149:152) .EQ. '') e__5_8__1(i__) = rNULL__ if(ar__2(155:159) .EQ. '') v_8_0__1(i__) = rNULL__ if(ar__2(161:164) .EQ. '') e__8_0__1(i__) = rNULL__ if(ar__2(167:171) .EQ. '') v_24__1(i__) = rNULL__ if(ar__2(173:176) .EQ. '') e__24__1(i__) = rNULL__ if(ar__2(178:182) .EQ. '') v_70__1(i__) = rNULL__ if(ar__2(184:187) .EQ. '') e__70__1(i__) = rNULL__ c ..............Just test output........... write(6,3) + v_RGS2011__2(i__),RAdeg_1(i__),DEdeg_1(i__),v2MASS_1(i__), + AName_1(i__),SpType_1(i__),r_SpType_1(i__),l__3_6__1(i__), + v_3_6__1(i__),e__3_6__1(i__),l__4_5__1(i__),v_4_5__1(i__), + e__4_5__1(i__),l__5_8__1(i__),v_5_8__1(i__),e__5_8__1(i__), + l__8_0__1(i__),v_8_0__1(i__),e__8_0__1(i__),l__24__1(i__), + v_24__1(i__),e__24__1(i__),v_70__1(i__),e__70__1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table9.dat' ! Previously suggested YSOs not recovered by our * MIPS or IRAC searches C Format for file interpretation 4 format( + A18,1X,F10.6,1X,F9.6,1X,A16,1X,A23,1X,A12,1X,A22,1X,A1,F5.2, + 1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X,F4.2,1X,A1,F5.2,1X, + F4.2,1X,A1,F5.2,1X,F4.2,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table9.dat') write(6,*) '....Loading file: table9.dat' do i__=1,114 read(1,'(A187)')ar__3 read(ar__3,4) + v_RGS2011__3(i__),RAdeg_2(i__),DEdeg_2(i__),v2MASS_2(i__), + AName_2(i__),SpType_2(i__),r_SpType_2(i__),l__3_6__2(i__), + v_3_6__2(i__),e__3_6__2(i__),l__4_5__2(i__),v_4_5__2(i__), + e__4_5__2(i__),l__5_8__2(i__),v_5_8__2(i__),e__5_8__2(i__), + l__8_0__2(i__),v_8_0__2(i__),e__8_0__2(i__),l__24__2(i__), + v_24__2(i__),e__24__2(i__),v_70__2(i__),e__70__2(i__) if(ar__3(119:123) .EQ. '') v_3_6__2(i__) = rNULL__ if(ar__3(125:128) .EQ. '') e__3_6__2(i__) = rNULL__ if(ar__3(131:135) .EQ. '') v_4_5__2(i__) = rNULL__ if(ar__3(137:140) .EQ. '') e__4_5__2(i__) = rNULL__ if(ar__3(143:147) .EQ. '') v_5_8__2(i__) = rNULL__ if(ar__3(149:152) .EQ. '') e__5_8__2(i__) = rNULL__ if(ar__3(155:159) .EQ. '') v_8_0__2(i__) = rNULL__ if(ar__3(161:164) .EQ. '') e__8_0__2(i__) = rNULL__ if(ar__3(167:171) .EQ. '') v_24__2(i__) = rNULL__ if(ar__3(173:176) .EQ. '') e__24__2(i__) = rNULL__ if(ar__3(178:182) .EQ. '') v_70__2(i__) = rNULL__ if(ar__3(184:187) .EQ. '') e__70__2(i__) = rNULL__ c ..............Just test output........... write(6,4) + v_RGS2011__3(i__),RAdeg_2(i__),DEdeg_2(i__),v2MASS_2(i__), + AName_2(i__),SpType_2(i__),r_SpType_2(i__),l__3_6__2(i__), + v_3_6__2(i__),e__3_6__2(i__),l__4_5__2(i__),v_4_5__2(i__), + e__4_5__2(i__),l__5_8__2(i__),v_5_8__2(i__),e__5_8__2(i__), + l__8_0__2(i__),v_8_0__2(i__),e__8_0__2(i__),l__24__2(i__), + v_24__2(i__),e__24__2(i__),v_70__2(i__),e__70__2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end