Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/353/494 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-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 ! Star character*1 n_Star ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin ! ? Spectral bin (1) character*1 n_SpBin ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag ! (mag) K magnitude integer*4 e_Kmag ! (cmag) ? Error on K magnitude (3) real*4 Mbol ! (mag) ? Bolometric magnitude real*4 J_K ! (mag) J-K colour index integer*4 e_J_K ! (cmag) ? Error on J-K (3) real*4 H_K ! (mag) H-K colour index integer*4 e_H_K ! (cmag) ? Error on H-K (3) real*4 K_L ! (mag) ? K-L colour index integer*4 e_K_L ! (cmag) ? Error on K-L (3) real*4 H2O ! (mag) ? H2O index integer*4 e_H2O ! (cmag) ? Error on H2O index (3) real*4 CO ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO ! (cmag) ? Error on CO index (3) real*4 K__10_ ! (mag) ? K-[10] index integer*4 e_K__10_ ! (cmag) ? Error on K-[10] (3) real*4 v102_C220 ! (mag) ? 102-C220 colour character*7 Notes ! 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 ! Star character*1 n_Star_1 ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_1 ! ? Spectral bin (1) character*1 n_SpBin_1 ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_1 ! (mag) K magnitude integer*4 e_Kmag_1 ! (cmag) ? Error on K magnitude (3) real*4 Mbol_1 ! (mag) ? Bolometric magnitude real*4 J_K_1 ! (mag) J-K colour index integer*4 e_J_K_1 ! (cmag) ? Error on J-K (3) real*4 H_K_1 ! (mag) H-K colour index integer*4 e_H_K_1 ! (cmag) ? Error on H-K (3) real*4 K_L_1 ! (mag) ? K-L colour index integer*4 e_K_L_1 ! (cmag) ? Error on K-L (3) real*4 H2O_1 ! (mag) ? H2O index integer*4 e_H2O_1 ! (cmag) ? Error on H2O index (3) real*4 CO_1 ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_1 ! (cmag) ? Error on CO index (3) real*4 K__10__1 ! (mag) ? K-[10] index integer*4 e_K__10__1 ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_1 ! (mag) ? 102-C220 colour character*7 Notes_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 ! Star character*1 n_Star_2 ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_2 ! ? Spectral bin (1) character*1 n_SpBin_2 ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_2 ! (mag) K magnitude integer*4 e_Kmag_2 ! (cmag) ? Error on K magnitude (3) real*4 Mbol_2 ! (mag) ? Bolometric magnitude real*4 J_K_2 ! (mag) J-K colour index integer*4 e_J_K_2 ! (cmag) ? Error on J-K (3) real*4 H_K_2 ! (mag) H-K colour index integer*4 e_H_K_2 ! (cmag) ? Error on H-K (3) real*4 K_L_2 ! (mag) ? K-L colour index integer*4 e_K_L_2 ! (cmag) ? Error on K-L (3) real*4 H2O_2 ! (mag) ? H2O index integer*4 e_H2O_2 ! (cmag) ? Error on H2O index (3) real*4 CO_2 ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_2 ! (cmag) ? Error on CO index (3) real*4 K__10__2 ! (mag) ? K-[10] index integer*4 e_K__10__2 ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_2 ! (mag) ? 102-C220 colour character*7 Notes_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 ! Star character*1 n_Star_3 ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_3 ! ? Spectral bin (1) character*1 n_SpBin_3 ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_3 ! (mag) K magnitude integer*4 e_Kmag_3 ! (cmag) ? Error on K magnitude (3) real*4 Mbol_3 ! (mag) ? Bolometric magnitude real*4 J_K_3 ! (mag) J-K colour index integer*4 e_J_K_3 ! (cmag) ? Error on J-K (3) real*4 H_K_3 ! (mag) H-K colour index integer*4 e_H_K_3 ! (cmag) ? Error on H-K (3) real*4 K_L_3 ! (mag) ? K-L colour index integer*4 e_K_L_3 ! (cmag) ? Error on K-L (3) real*4 H2O_3 ! (mag) ? H2O index integer*4 e_H2O_3 ! (cmag) ? Error on H2O index (3) real*4 CO_3 ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_3 ! (cmag) ? Error on CO index (3) real*4 K__10__3 ! (mag) ? K-[10] index integer*4 e_K__10__3 ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_3 ! (mag) ? 102-C220 colour character*7 Notes_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 ! Star character*1 n_Star_4 ! [f] When 'f' = field stars (they have not * been reddening-corrected) integer*4 SpBin_4 ! ? Spectral bin (1) character*1 n_SpBin_4 ! [VC?] When 'V'= variable, * 'C' = carbon star, '?' = unknown real*4 Kmag_4 ! (mag) K magnitude integer*4 e_Kmag_4 ! (cmag) ? Error on K magnitude (3) real*4 Mbol_4 ! (mag) ? Bolometric magnitude real*4 J_K_4 ! (mag) J-K colour index integer*4 e_J_K_4 ! (cmag) ? Error on J-K (3) real*4 H_K_4 ! (mag) H-K colour index integer*4 e_H_K_4 ! (cmag) ? Error on H-K (3) real*4 K_L_4 ! (mag) ? K-L colour index integer*4 e_K_L_4 ! (cmag) ? Error on K-L (3) real*4 H2O_4 ! (mag) ? H2O index integer*4 e_H2O_4 ! (cmag) ? Error on H2O index (3) real*4 CO_4 ! (mag) ? CO index (from 2.29 {mu}m band) integer*4 e_CO_4 ! (cmag) ? Error on CO index (3) real*4 K__10__4 ! (mag) ? K-[10] index integer*4 e_K__10__4 ! (cmag) ? Error on K-[10] (3) real*4 v102_C220_4 ! (mag) ? 102-C220 colour character*7 Notes_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,n_Star,SpBin,n_SpBin,Kmag,e_Kmag,Mbol,J_K,e_J_K,H_K, + e_H_K,K_L,e_K_L,H2O,e_H2O,CO,e_CO,K__10_,e_K__10_,v102_C220, + Notes if(ar__(11:11) .EQ. '') SpBin = iNULL__ if(ar__(21:21) .EQ. '') e_Kmag = iNULL__ if(ar__(27:31) .EQ. '') Mbol = rNULL__ if(ar__(40:40) .EQ. '') e_J_K = iNULL__ if(ar__(51:51) .EQ. '') e_H_K = iNULL__ if(ar__(53:56) .EQ. '') K_L = rNULL__ if(ar__(59:59) .EQ. '') e_K_L = iNULL__ if(ar__(61:65) .EQ. '') H2O = rNULL__ if(ar__(68:68) .EQ. '') e_H2O = iNULL__ if(ar__(70:75) .EQ. '') CO = rNULL__ if(ar__(78:78) .EQ. '') e_CO = iNULL__ if(ar__(81:84) .EQ. '') K__10_ = rNULL__ if(ar__(87:88) .EQ. '') e_K__10_ = iNULL__ if(ar__(95:99) .EQ. '') v102_C220 = rNULL__ c ..............Just test output........... write(6,1) + Star,n_Star,SpBin,n_SpBin,Kmag,e_Kmag,Mbol,J_K,e_J_K,H_K, + e_H_K,K_L,e_K_L,H2O,e_H2O,CO,e_CO,K__10_,e_K__10_,v102_C220, + Notes 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,n_Star_1,SpBin_1,n_SpBin_1,Kmag_1,e_Kmag_1,Mbol_1, + J_K_1,e_J_K_1,H_K_1,e_H_K_1,K_L_1,e_K_L_1,H2O_1,e_H2O_1,CO_1, + e_CO_1,K__10__1,e_K__10__1,v102_C220_1,Notes_1 if(ar__1(11:11) .EQ. '') SpBin_1 = iNULL__ if(ar__1(21:21) .EQ. '') e_Kmag_1 = iNULL__ if(ar__1(27:31) .EQ. '') Mbol_1 = rNULL__ if(ar__1(40:40) .EQ. '') e_J_K_1 = iNULL__ if(ar__1(51:51) .EQ. '') e_H_K_1 = iNULL__ if(ar__1(53:56) .EQ. '') K_L_1 = rNULL__ if(ar__1(59:59) .EQ. '') e_K_L_1 = iNULL__ if(ar__1(61:65) .EQ. '') H2O_1 = rNULL__ if(ar__1(68:68) .EQ. '') e_H2O_1 = iNULL__ if(ar__1(70:75) .EQ. '') CO_1 = rNULL__ if(ar__1(78:78) .EQ. '') e_CO_1 = iNULL__ if(ar__1(81:84) .EQ. '') K__10__1 = rNULL__ if(ar__1(87:88) .EQ. '') e_K__10__1 = iNULL__ if(ar__1(95:99) .EQ. '') v102_C220_1 = rNULL__ c ..............Just test output........... write(6,2) + Star_1,n_Star_1,SpBin_1,n_SpBin_1,Kmag_1,e_Kmag_1,Mbol_1, + J_K_1,e_J_K_1,H_K_1,e_H_K_1,K_L_1,e_K_L_1,H2O_1,e_H2O_1,CO_1, + e_CO_1,K__10__1,e_K__10__1,v102_C220_1,Notes_1 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,n_Star_2,SpBin_2,n_SpBin_2,Kmag_2,e_Kmag_2,Mbol_2, + J_K_2,e_J_K_2,H_K_2,e_H_K_2,K_L_2,e_K_L_2,H2O_2,e_H2O_2,CO_2, + e_CO_2,K__10__2,e_K__10__2,v102_C220_2,Notes_2 if(ar__2(11:11) .EQ. '') SpBin_2 = iNULL__ if(ar__2(21:21) .EQ. '') e_Kmag_2 = iNULL__ if(ar__2(27:31) .EQ. '') Mbol_2 = rNULL__ if(ar__2(40:40) .EQ. '') e_J_K_2 = iNULL__ if(ar__2(51:51) .EQ. '') e_H_K_2 = iNULL__ if(ar__2(53:56) .EQ. '') K_L_2 = rNULL__ if(ar__2(59:59) .EQ. '') e_K_L_2 = iNULL__ if(ar__2(61:65) .EQ. '') H2O_2 = rNULL__ if(ar__2(68:68) .EQ. '') e_H2O_2 = iNULL__ if(ar__2(70:75) .EQ. '') CO_2 = rNULL__ if(ar__2(78:78) .EQ. '') e_CO_2 = iNULL__ if(ar__2(81:84) .EQ. '') K__10__2 = rNULL__ if(ar__2(87:88) .EQ. '') e_K__10__2 = iNULL__ if(ar__2(95:99) .EQ. '') v102_C220_2 = rNULL__ c ..............Just test output........... write(6,3) + Star_2,n_Star_2,SpBin_2,n_SpBin_2,Kmag_2,e_Kmag_2,Mbol_2, + J_K_2,e_J_K_2,H_K_2,e_H_K_2,K_L_2,e_K_L_2,H2O_2,e_H2O_2,CO_2, + e_CO_2,K__10__2,e_K__10__2,v102_C220_2,Notes_2 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,n_Star_3,SpBin_3,n_SpBin_3,Kmag_3,e_Kmag_3,Mbol_3, + J_K_3,e_J_K_3,H_K_3,e_H_K_3,K_L_3,e_K_L_3,H2O_3,e_H2O_3,CO_3, + e_CO_3,K__10__3,e_K__10__3,v102_C220_3,Notes_3 if(ar__3(11:11) .EQ. '') SpBin_3 = iNULL__ if(ar__3(21:21) .EQ. '') e_Kmag_3 = iNULL__ if(ar__3(27:31) .EQ. '') Mbol_3 = rNULL__ if(ar__3(40:40) .EQ. '') e_J_K_3 = iNULL__ if(ar__3(51:51) .EQ. '') e_H_K_3 = iNULL__ if(ar__3(53:56) .EQ. '') K_L_3 = rNULL__ if(ar__3(59:59) .EQ. '') e_K_L_3 = iNULL__ if(ar__3(61:65) .EQ. '') H2O_3 = rNULL__ if(ar__3(68:68) .EQ. '') e_H2O_3 = iNULL__ if(ar__3(70:75) .EQ. '') CO_3 = rNULL__ if(ar__3(78:78) .EQ. '') e_CO_3 = iNULL__ if(ar__3(81:84) .EQ. '') K__10__3 = rNULL__ if(ar__3(87:88) .EQ. '') e_K__10__3 = iNULL__ if(ar__3(95:99) .EQ. '') v102_C220_3 = rNULL__ c ..............Just test output........... write(6,4) + Star_3,n_Star_3,SpBin_3,n_SpBin_3,Kmag_3,e_Kmag_3,Mbol_3, + J_K_3,e_J_K_3,H_K_3,e_H_K_3,K_L_3,e_K_L_3,H2O_3,e_H2O_3,CO_3, + e_CO_3,K__10__3,e_K__10__3,v102_C220_3,Notes_3 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,n_Star_4,SpBin_4,n_SpBin_4,Kmag_4,e_Kmag_4,Mbol_4, + J_K_4,e_J_K_4,H_K_4,e_H_K_4,K_L_4,e_K_L_4,H2O_4,e_H2O_4,CO_4, + e_CO_4,K__10__4,e_K__10__4,v102_C220_4,Notes_4 if(ar__4(11:11) .EQ. '') SpBin_4 = iNULL__ if(ar__4(21:21) .EQ. '') e_Kmag_4 = iNULL__ if(ar__4(27:31) .EQ. '') Mbol_4 = rNULL__ if(ar__4(40:40) .EQ. '') e_J_K_4 = iNULL__ if(ar__4(51:51) .EQ. '') e_H_K_4 = iNULL__ if(ar__4(53:56) .EQ. '') K_L_4 = rNULL__ if(ar__4(59:59) .EQ. '') e_K_L_4 = iNULL__ if(ar__4(61:65) .EQ. '') H2O_4 = rNULL__ if(ar__4(68:68) .EQ. '') e_H2O_4 = iNULL__ if(ar__4(70:75) .EQ. '') CO_4 = rNULL__ if(ar__4(78:78) .EQ. '') e_CO_4 = iNULL__ if(ar__4(81:84) .EQ. '') K__10__4 = rNULL__ if(ar__4(87:88) .EQ. '') e_K__10__4 = iNULL__ if(ar__4(95:99) .EQ. '') v102_C220_4 = rNULL__ c ..............Just test output........... write(6,5) + Star_4,n_Star_4,SpBin_4,n_SpBin_4,Kmag_4,e_Kmag_4,Mbol_4, + J_K_4,e_J_K_4,H_K_4,e_H_K_4,K_L_4,e_K_L_4,H2O_4,e_H2O_4,CO_4, + e_CO_4,K__10__4,e_K__10__4,v102_C220_4,Notes_4 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end