Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/353/494 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/ApJ/353/494 JHKL photometry on Galactic bulge M Giants (Frogel+, 1990) *================================================================================ *Galactic bulge M Giants. II. Content and structure of the bulge between *b = -3 and -12 * Frogel J.A., Terndrup D.M., Blanco V.M., Whitford A.E. * <Astrophys. J. 353, 494 (1990)> * =1990ApJ...353..494F (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Reddening-corrected photometry for at b=-3deg integer*4 nr__ parameter (nr__=39) ! Number of records character*107 ar__ ! Full-size record character*7 Star (nr__) ! Star character*1 n_Star (nr__) ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin (nr__) ! ? Spectral bin (1) character*1 n_SpBin (nr__) ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag (nr__) ! (mag) K magnitude integer*4 e_Kmag (nr__) ! (cmag) ? Error on K magnitude (3) real*4 Mbol (nr__) ! (mag) ? Bolometric magnitude real*4 J_K (nr__) ! (mag) J-K colour index integer*4 e_J_K (nr__) ! (cmag) ? Error on J-K (3) real*4 H_K (nr__) ! (mag) H-K colour index integer*4 e_H_K (nr__) ! (cmag) ? Error on H-K (3) real*4 K_L (nr__) ! (mag) ? K-L colour index integer*4 e_K_L (nr__) ! (cmag) ? Error on K-L (3) real*4 H2O (nr__) ! (mag) ? H2O index integer*4 e_H2O (nr__) ! (cmag) ? Error on H2O index (3) real*4 CO (nr__) ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO (nr__) ! (cmag) ? Error on CO index (3) real*4 K__10_ (nr__) ! (mag) ? K-[10] index integer*4 e_K__10_ (nr__) ! (cmag) ? Error on K-[10] (3) real*4 v102_C220 (nr__) ! (mag) ? 102-C220 colour character*7 Notes (nr__) ! Notes (2) *Note (1): the spectral bin has the values * 2 = M2-M4 * 5 = M5-M6 * 7 = M7-M9 *Note (2): the numbers are those assigned * by Plaut (1971A&AS....4...75P) and * by Blanco (1987AJ.....93..321B); * When 'IRAS' = stars identified with IRAS sources *Note (3): The uncertainties are only shown if equal or greater than * 0.03mag in JHK, CO, H2O, 0.04mag in K-L, and 0.06mag in K-[10]. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Reddening-corrected photometry for at b=-6deg integer*4 nr__1 parameter (nr__1=51) ! Number of records character*107 ar__1 ! Full-size record character*7 Star_1 (nr__1) ! Star character*1 n_Star_1 (nr__1) ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_1 (nr__1) ! ? Spectral bin (1) character*1 n_SpBin_1 (nr__1) ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_1 (nr__1) ! (mag) K magnitude integer*4 e_Kmag_1 (nr__1) ! (cmag) ? Error on K magnitude (3) real*4 Mbol_1 (nr__1) ! (mag) ? Bolometric magnitude real*4 J_K_1 (nr__1) ! (mag) J-K colour index integer*4 e_J_K_1 (nr__1) ! (cmag) ? Error on J-K (3) real*4 H_K_1 (nr__1) ! (mag) H-K colour index integer*4 e_H_K_1 (nr__1) ! (cmag) ? Error on H-K (3) real*4 K_L_1 (nr__1) ! (mag) ? K-L colour index integer*4 e_K_L_1 (nr__1) ! (cmag) ? Error on K-L (3) real*4 H2O_1 (nr__1) ! (mag) ? H2O index integer*4 e_H2O_1 (nr__1) ! (cmag) ? Error on H2O index (3) real*4 CO_1 (nr__1) ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_1 (nr__1) ! (cmag) ? Error on CO index (3) real*4 K__10__1 (nr__1) ! (mag) ? K-[10] index integer*4 e_K__10__1 (nr__1) ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_1(nr__1) ! (mag) ? 102-C220 colour character*7 Notes_1 (nr__1) ! Notes (2) *Note (1): the spectral bin has the values * 2 = M2-M4 * 5 = M5-M6 * 7 = M7-M9 *Note (2): the numbers are those assigned * by Plaut (1971A&AS....4...75P) and * by Blanco (1987AJ.....93..321B); * When 'IRAS' = stars identified with IRAS sources *Note (3): The uncertainties are only shown if equal or greater than * 0.03mag in JHK, CO, H2O, 0.04mag in K-L, and 0.06mag in K-[10]. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Reddening-corrected photometry for at b=-8deg integer*4 nr__2 parameter (nr__2=91) ! Number of records character*107 ar__2 ! Full-size record character*7 Star_2 (nr__2) ! Star character*1 n_Star_2 (nr__2) ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_2 (nr__2) ! ? Spectral bin (1) character*1 n_SpBin_2 (nr__2) ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_2 (nr__2) ! (mag) K magnitude integer*4 e_Kmag_2 (nr__2) ! (cmag) ? Error on K magnitude (3) real*4 Mbol_2 (nr__2) ! (mag) ? Bolometric magnitude real*4 J_K_2 (nr__2) ! (mag) J-K colour index integer*4 e_J_K_2 (nr__2) ! (cmag) ? Error on J-K (3) real*4 H_K_2 (nr__2) ! (mag) H-K colour index integer*4 e_H_K_2 (nr__2) ! (cmag) ? Error on H-K (3) real*4 K_L_2 (nr__2) ! (mag) ? K-L colour index integer*4 e_K_L_2 (nr__2) ! (cmag) ? Error on K-L (3) real*4 H2O_2 (nr__2) ! (mag) ? H2O index integer*4 e_H2O_2 (nr__2) ! (cmag) ? Error on H2O index (3) real*4 CO_2 (nr__2) ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_2 (nr__2) ! (cmag) ? Error on CO index (3) real*4 K__10__2 (nr__2) ! (mag) ? K-[10] index integer*4 e_K__10__2 (nr__2) ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_2(nr__2) ! (mag) ? 102-C220 colour character*7 Notes_2 (nr__2) ! Notes (2) *Note (1): the spectral bin has the values * 2 = M2-M4 * 5 = M5-M6 * 7 = M7-M9 *Note (2): the numbers are those assigned * by Plaut (1971A&AS....4...75P) and * by Blanco (1987AJ.....93..321B); * When 'IRAS' = stars identified with IRAS sources *Note (3): The uncertainties are only shown if equal or greater than * 0.03mag in JHK, CO, H2O, 0.04mag in K-L, and 0.06mag in K-[10]. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Reddening-corrected photometry for at b=-10deg integer*4 nr__3 parameter (nr__3=47) ! Number of records character*107 ar__3 ! Full-size record character*7 Star_3 (nr__3) ! Star character*1 n_Star_3 (nr__3) ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_3 (nr__3) ! ? Spectral bin (1) character*1 n_SpBin_3 (nr__3) ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_3 (nr__3) ! (mag) K magnitude integer*4 e_Kmag_3 (nr__3) ! (cmag) ? Error on K magnitude (3) real*4 Mbol_3 (nr__3) ! (mag) ? Bolometric magnitude real*4 J_K_3 (nr__3) ! (mag) J-K colour index integer*4 e_J_K_3 (nr__3) ! (cmag) ? Error on J-K (3) real*4 H_K_3 (nr__3) ! (mag) H-K colour index integer*4 e_H_K_3 (nr__3) ! (cmag) ? Error on H-K (3) real*4 K_L_3 (nr__3) ! (mag) ? K-L colour index integer*4 e_K_L_3 (nr__3) ! (cmag) ? Error on K-L (3) real*4 H2O_3 (nr__3) ! (mag) ? H2O index integer*4 e_H2O_3 (nr__3) ! (cmag) ? Error on H2O index (3) real*4 CO_3 (nr__3) ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_3 (nr__3) ! (cmag) ? Error on CO index (3) real*4 K__10__3 (nr__3) ! (mag) ? K-[10] index integer*4 e_K__10__3 (nr__3) ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_3(nr__3) ! (mag) ? 102-C220 colour character*7 Notes_3 (nr__3) ! Notes (2) *Note (1): the spectral bin has the values * 2 = M2-M4 * 5 = M5-M6 * 7 = M7-M9 *Note (2): the numbers are those assigned * by Plaut (1971A&AS....4...75P) and * by Blanco (1987AJ.....93..321B); * When 'IRAS' = stars identified with IRAS sources *Note (3): The uncertainties are only shown if equal or greater than * 0.03mag in JHK, CO, H2O, 0.04mag in K-L, and 0.06mag in K-[10]. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Reddening-corrected photometry for at b=-12deg integer*4 nr__4 parameter (nr__4=55) ! Number of records character*107 ar__4 ! Full-size record character*7 Star_4 (nr__4) ! Star character*1 n_Star_4 (nr__4) ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_4 (nr__4) ! ? Spectral bin (1) character*1 n_SpBin_4 (nr__4) ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_4 (nr__4) ! (mag) K magnitude integer*4 e_Kmag_4 (nr__4) ! (cmag) ? Error on K magnitude (3) real*4 Mbol_4 (nr__4) ! (mag) ? Bolometric magnitude real*4 J_K_4 (nr__4) ! (mag) J-K colour index integer*4 e_J_K_4 (nr__4) ! (cmag) ? Error on J-K (3) real*4 H_K_4 (nr__4) ! (mag) H-K colour index integer*4 e_H_K_4 (nr__4) ! (cmag) ? Error on H-K (3) real*4 K_L_4 (nr__4) ! (mag) ? K-L colour index integer*4 e_K_L_4 (nr__4) ! (cmag) ? Error on K-L (3) real*4 H2O_4 (nr__4) ! (mag) ? H2O index integer*4 e_H2O_4 (nr__4) ! (cmag) ? Error on H2O index (3) real*4 CO_4 (nr__4) ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_4 (nr__4) ! (cmag) ? Error on CO index (3) real*4 K__10__4 (nr__4) ! (mag) ? K-[10] index integer*4 e_K__10__4 (nr__4) ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_4(nr__4) ! (mag) ? 102-C220 colour character*7 Notes_4 (nr__4) ! Notes (2) *Note (1): the spectral bin has the values * 2 = M2-M4 * 5 = M5-M6 * 7 = M7-M9 *Note (2): the numbers are those assigned * by Plaut (1971A&AS....4...75P) and * by Blanco (1987AJ.....93..321B); * When 'IRAS' = stars identified with IRAS sources *Note (3): The uncertainties are only shown if equal or greater than * 0.03mag in JHK, CO, H2O, 0.04mag in K-L, and 0.06mag in K-[10]. C============================================================================= C Loading file 'table2.dat' ! Reddening-corrected photometry for at b=-3deg C Format for file interpretation 1 format( + 1X,A7,A1,1X,I1,A1,1X,F5.2,2X,I1,5X,F5.2,2X,F4.2,2X,I1,3X,F5.2, + 2X,I1,1X,F4.2,2X,I1,1X,F5.2,2X,I1,1X,F6.3,2X,I1,2X,F4.2,2X,I2, + 6X,F5.3,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,39 read(1,'(A107)')ar__ read(ar__,1) + Star(i__),n_Star(i__),SpBin(i__),n_SpBin(i__),Kmag(i__), + e_Kmag(i__),Mbol(i__),J_K(i__),e_J_K(i__),H_K(i__),e_H_K(i__), + K_L(i__),e_K_L(i__),H2O(i__),e_H2O(i__),CO(i__),e_CO(i__), + K__10_(i__),e_K__10_(i__),v102_C220(i__),Notes(i__) if(ar__(11:11) .EQ. '') SpBin(i__) = iNULL__ if(ar__(21:21) .EQ. '') e_Kmag(i__) = iNULL__ if(ar__(27:31) .EQ. '') Mbol(i__) = rNULL__ if(ar__(40:40) .EQ. '') e_J_K(i__) = iNULL__ if(ar__(51:51) .EQ. '') e_H_K(i__) = iNULL__ if(ar__(53:56) .EQ. '') K_L(i__) = rNULL__ if(ar__(59:59) .EQ. '') e_K_L(i__) = iNULL__ if(ar__(61:65) .EQ. '') H2O(i__) = rNULL__ if(ar__(68:68) .EQ. '') e_H2O(i__) = iNULL__ if(ar__(70:75) .EQ. '') CO(i__) = rNULL__ if(ar__(78:78) .EQ. '') e_CO(i__) = iNULL__ if(ar__(81:84) .EQ. '') K__10_(i__) = rNULL__ if(ar__(87:88) .EQ. '') e_K__10_(i__) = iNULL__ if(ar__(95:99) .EQ. '') v102_C220(i__) = rNULL__ c ..............Just test output........... write(6,1) + Star(i__),n_Star(i__),SpBin(i__),n_SpBin(i__),Kmag(i__), + e_Kmag(i__),Mbol(i__),J_K(i__),e_J_K(i__),H_K(i__),e_H_K(i__), + K_L(i__),e_K_L(i__),H2O(i__),e_H2O(i__),CO(i__),e_CO(i__), + K__10_(i__),e_K__10_(i__),v102_C220(i__),Notes(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Reddening-corrected photometry for at b=-6deg C Format for file interpretation 2 format( + 1X,A7,A1,1X,I1,A1,1X,F5.2,2X,I1,5X,F5.2,2X,F4.2,2X,I1,3X,F5.2, + 2X,I1,1X,F4.2,2X,I1,1X,F5.2,2X,I1,1X,F6.3,2X,I1,2X,F4.2,2X,I2, + 6X,F5.3,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,51 read(1,'(A107)')ar__1 read(ar__1,2) + Star_1(i__),n_Star_1(i__),SpBin_1(i__),n_SpBin_1(i__), + Kmag_1(i__),e_Kmag_1(i__),Mbol_1(i__),J_K_1(i__),e_J_K_1(i__), + H_K_1(i__),e_H_K_1(i__),K_L_1(i__),e_K_L_1(i__),H2O_1(i__), + e_H2O_1(i__),CO_1(i__),e_CO_1(i__),K__10__1(i__), + e_K__10__1(i__),v102_C220_1(i__),Notes_1(i__) if(ar__1(11:11) .EQ. '') SpBin_1(i__) = iNULL__ if(ar__1(21:21) .EQ. '') e_Kmag_1(i__) = iNULL__ if(ar__1(27:31) .EQ. '') Mbol_1(i__) = rNULL__ if(ar__1(40:40) .EQ. '') e_J_K_1(i__) = iNULL__ if(ar__1(51:51) .EQ. '') e_H_K_1(i__) = iNULL__ if(ar__1(53:56) .EQ. '') K_L_1(i__) = rNULL__ if(ar__1(59:59) .EQ. '') e_K_L_1(i__) = iNULL__ if(ar__1(61:65) .EQ. '') H2O_1(i__) = rNULL__ if(ar__1(68:68) .EQ. '') e_H2O_1(i__) = iNULL__ if(ar__1(70:75) .EQ. '') CO_1(i__) = rNULL__ if(ar__1(78:78) .EQ. '') e_CO_1(i__) = iNULL__ if(ar__1(81:84) .EQ. '') K__10__1(i__) = rNULL__ if(ar__1(87:88) .EQ. '') e_K__10__1(i__) = iNULL__ if(ar__1(95:99) .EQ. '') v102_C220_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + Star_1(i__),n_Star_1(i__),SpBin_1(i__),n_SpBin_1(i__), + Kmag_1(i__),e_Kmag_1(i__),Mbol_1(i__),J_K_1(i__),e_J_K_1(i__), + H_K_1(i__),e_H_K_1(i__),K_L_1(i__),e_K_L_1(i__),H2O_1(i__), + e_H2O_1(i__),CO_1(i__),e_CO_1(i__),K__10__1(i__), + e_K__10__1(i__),v102_C220_1(i__),Notes_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Reddening-corrected photometry for at b=-8deg C Format for file interpretation 3 format( + 1X,A7,A1,1X,I1,A1,1X,F5.2,2X,I1,5X,F5.2,2X,F4.2,2X,I1,3X,F5.2, + 2X,I1,1X,F4.2,2X,I1,1X,F5.2,2X,I1,1X,F6.3,2X,I1,2X,F4.2,2X,I2, + 6X,F5.3,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,91 read(1,'(A107)')ar__2 read(ar__2,3) + Star_2(i__),n_Star_2(i__),SpBin_2(i__),n_SpBin_2(i__), + Kmag_2(i__),e_Kmag_2(i__),Mbol_2(i__),J_K_2(i__),e_J_K_2(i__), + H_K_2(i__),e_H_K_2(i__),K_L_2(i__),e_K_L_2(i__),H2O_2(i__), + e_H2O_2(i__),CO_2(i__),e_CO_2(i__),K__10__2(i__), + e_K__10__2(i__),v102_C220_2(i__),Notes_2(i__) if(ar__2(11:11) .EQ. '') SpBin_2(i__) = iNULL__ if(ar__2(21:21) .EQ. '') e_Kmag_2(i__) = iNULL__ if(ar__2(27:31) .EQ. '') Mbol_2(i__) = rNULL__ if(ar__2(40:40) .EQ. '') e_J_K_2(i__) = iNULL__ if(ar__2(51:51) .EQ. '') e_H_K_2(i__) = iNULL__ if(ar__2(53:56) .EQ. '') K_L_2(i__) = rNULL__ if(ar__2(59:59) .EQ. '') e_K_L_2(i__) = iNULL__ if(ar__2(61:65) .EQ. '') H2O_2(i__) = rNULL__ if(ar__2(68:68) .EQ. '') e_H2O_2(i__) = iNULL__ if(ar__2(70:75) .EQ. '') CO_2(i__) = rNULL__ if(ar__2(78:78) .EQ. '') e_CO_2(i__) = iNULL__ if(ar__2(81:84) .EQ. '') K__10__2(i__) = rNULL__ if(ar__2(87:88) .EQ. '') e_K__10__2(i__) = iNULL__ if(ar__2(95:99) .EQ. '') v102_C220_2(i__) = rNULL__ c ..............Just test output........... write(6,3) + Star_2(i__),n_Star_2(i__),SpBin_2(i__),n_SpBin_2(i__), + Kmag_2(i__),e_Kmag_2(i__),Mbol_2(i__),J_K_2(i__),e_J_K_2(i__), + H_K_2(i__),e_H_K_2(i__),K_L_2(i__),e_K_L_2(i__),H2O_2(i__), + e_H2O_2(i__),CO_2(i__),e_CO_2(i__),K__10__2(i__), + e_K__10__2(i__),v102_C220_2(i__),Notes_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Reddening-corrected photometry for at b=-10deg C Format for file interpretation 4 format( + 1X,A7,A1,1X,I1,A1,1X,F5.2,2X,I1,5X,F5.2,2X,F4.2,2X,I1,3X,F5.2, + 2X,I1,1X,F4.2,2X,I1,1X,F5.2,2X,I1,1X,F6.3,2X,I1,2X,F4.2,2X,I2, + 6X,F5.3,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,47 read(1,'(A107)')ar__3 read(ar__3,4) + Star_3(i__),n_Star_3(i__),SpBin_3(i__),n_SpBin_3(i__), + Kmag_3(i__),e_Kmag_3(i__),Mbol_3(i__),J_K_3(i__),e_J_K_3(i__), + H_K_3(i__),e_H_K_3(i__),K_L_3(i__),e_K_L_3(i__),H2O_3(i__), + e_H2O_3(i__),CO_3(i__),e_CO_3(i__),K__10__3(i__), + e_K__10__3(i__),v102_C220_3(i__),Notes_3(i__) if(ar__3(11:11) .EQ. '') SpBin_3(i__) = iNULL__ if(ar__3(21:21) .EQ. '') e_Kmag_3(i__) = iNULL__ if(ar__3(27:31) .EQ. '') Mbol_3(i__) = rNULL__ if(ar__3(40:40) .EQ. '') e_J_K_3(i__) = iNULL__ if(ar__3(51:51) .EQ. '') e_H_K_3(i__) = iNULL__ if(ar__3(53:56) .EQ. '') K_L_3(i__) = rNULL__ if(ar__3(59:59) .EQ. '') e_K_L_3(i__) = iNULL__ if(ar__3(61:65) .EQ. '') H2O_3(i__) = rNULL__ if(ar__3(68:68) .EQ. '') e_H2O_3(i__) = iNULL__ if(ar__3(70:75) .EQ. '') CO_3(i__) = rNULL__ if(ar__3(78:78) .EQ. '') e_CO_3(i__) = iNULL__ if(ar__3(81:84) .EQ. '') K__10__3(i__) = rNULL__ if(ar__3(87:88) .EQ. '') e_K__10__3(i__) = iNULL__ if(ar__3(95:99) .EQ. '') v102_C220_3(i__) = rNULL__ c ..............Just test output........... write(6,4) + Star_3(i__),n_Star_3(i__),SpBin_3(i__),n_SpBin_3(i__), + Kmag_3(i__),e_Kmag_3(i__),Mbol_3(i__),J_K_3(i__),e_J_K_3(i__), + H_K_3(i__),e_H_K_3(i__),K_L_3(i__),e_K_L_3(i__),H2O_3(i__), + e_H2O_3(i__),CO_3(i__),e_CO_3(i__),K__10__3(i__), + e_K__10__3(i__),v102_C220_3(i__),Notes_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Reddening-corrected photometry for at b=-12deg C Format for file interpretation 5 format( + 1X,A7,A1,1X,I1,A1,1X,F5.2,2X,I1,5X,F5.2,2X,F4.2,2X,I1,3X,F5.2, + 2X,I1,1X,F4.2,2X,I1,1X,F5.2,2X,I1,1X,F6.3,2X,I1,2X,F4.2,2X,I2, + 6X,F5.3,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,55 read(1,'(A107)')ar__4 read(ar__4,5) + Star_4(i__),n_Star_4(i__),SpBin_4(i__),n_SpBin_4(i__), + Kmag_4(i__),e_Kmag_4(i__),Mbol_4(i__),J_K_4(i__),e_J_K_4(i__), + H_K_4(i__),e_H_K_4(i__),K_L_4(i__),e_K_L_4(i__),H2O_4(i__), + e_H2O_4(i__),CO_4(i__),e_CO_4(i__),K__10__4(i__), + e_K__10__4(i__),v102_C220_4(i__),Notes_4(i__) if(ar__4(11:11) .EQ. '') SpBin_4(i__) = iNULL__ if(ar__4(21:21) .EQ. '') e_Kmag_4(i__) = iNULL__ if(ar__4(27:31) .EQ. '') Mbol_4(i__) = rNULL__ if(ar__4(40:40) .EQ. '') e_J_K_4(i__) = iNULL__ if(ar__4(51:51) .EQ. '') e_H_K_4(i__) = iNULL__ if(ar__4(53:56) .EQ. '') K_L_4(i__) = rNULL__ if(ar__4(59:59) .EQ. '') e_K_L_4(i__) = iNULL__ if(ar__4(61:65) .EQ. '') H2O_4(i__) = rNULL__ if(ar__4(68:68) .EQ. '') e_H2O_4(i__) = iNULL__ if(ar__4(70:75) .EQ. '') CO_4(i__) = rNULL__ if(ar__4(78:78) .EQ. '') e_CO_4(i__) = iNULL__ if(ar__4(81:84) .EQ. '') K__10__4(i__) = rNULL__ if(ar__4(87:88) .EQ. '') e_K__10__4(i__) = iNULL__ if(ar__4(95:99) .EQ. '') v102_C220_4(i__) = rNULL__ c ..............Just test output........... write(6,5) + Star_4(i__),n_Star_4(i__),SpBin_4(i__),n_SpBin_4(i__), + Kmag_4(i__),e_Kmag_4(i__),Mbol_4(i__),J_K_4(i__),e_J_K_4(i__), + H_K_4(i__),e_H_K_4(i__),K_L_4(i__),e_K_L_4(i__),H2O_4(i__), + e_H2O_4(i__),CO_4(i__),e_CO_4(i__),K__10__4(i__), + e_K__10__4(i__),v102_C220_4(i__),Notes_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end