Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/272/391 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-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/MNRAS/272/391 Globular clusters in the Magellanic Clouds (Ferraro+, 1995) *================================================================================ *Globular clusters in the Magellanic Clouds - II. IR-array photometry for 12 *globular clusters and contributions to the integrated cluster light. * FERRARO F.R., FUSI PECCI F., TESTA V., GREGGIO L., CORSI C.E., * BUONANNO R., TERNDRUP D.M., ZINNECKER H. * <Mon. Not. R. Astron. Soc. 272, 391 (1995)> * =1995MNRAS.272..391F (SIMBAD/NED Reference) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1' ! IR photometric data from literature integer*4 nr__ parameter (nr__=37) ! Number of records character*84 ar__ ! Full-size record character*7 Cluster (nr__) ! Cluster name real*4 Kmag (nr__) ! (mag) []? Integrated K magnitude integer*4 Aperture (nr__) ! (arcsec) []? Diaphragm aperture used for * integrated photometry from Persson S.E. * et al. 1983 (1) real*4 V_K (nr__) ! (mag) []? Integrated intrinsic V-K colour from * Persson S.E. et al. 1983 (1) real*4 J_K (nr__) ! (mag) []? Integrated intrinsic J-K colour from * Persson S.E. et al. 1983 (1) real*4 H_K (nr__) ! (mag) []? Integrated intrinsic H-K colour from * Persson S.E. et al. 1983 (1) real*4 B_V (nr__) ! (mag) []? B-V colour from van den Berg S. 1981 (1) integer*4 r_B_V (nr__) ! []? Reference for B-V (1) real*4 e_B_V (nr__) ! (mag) []? B-V estimate character*5 r_e_B_V (nr__) ! Reference for B-V estimate (1) character*6 SWB (nr__) ! Type (ref.(1) in note (1)) character*3 r_SWB (nr__) ! Reference for SWB-type (1) real*4 s (nr__) ! []? s-parameter as defined in Elson and * Fall 85 (1) integer*4 r_s (nr__) ! []? Reference for the s-parameter (1) *Note (1): (1) Searle L., Wilkinson A., Bagnuolo W.G., 1980 ApJ, 239, 803; * (2) Elson R.A.W. and Fall S.M. 1985 ApJ, 299, 211; * (3) Persson S.E. et al. 1983 ApJ, 266, 105; * (4) Freeman K. et al. 1983 ApJ, 272, 488; * (5) Meurer G.R. et al. 1990 AJ, 99, 1124; * (6) Aaronson M. and Mould J.R. 1982 ApJS, 48, 161; * (7) Bica E. et al. 1986 A&A, 156, 261; * (8) Schommer et al. 1984 ApJ, 285, L53; * (9) Chiosi C. and Pigatto L. 1986 ApJ, 308, 1; * (10) Mould J.R. et al. 1986 ApJ, 309, 39; * (11) Mould J.R. and Da Costa G.S. 1988, in Blanco V.M., Phillips M.M., * eds, ASP Conf. Ser. Vol. 1, Progress and Opportunities in * Southern Hemisphere Optical Astronomy. Astron. Soc. Pac., * San Francisco, p.197; * (12) Burstein D. and Heiles C. 1982, AJ, 87, 1165; * (13) Westerlund B.E. 1990 A&AR, 2, 29; * (14) Dottori H. et al. 1987 Rev. Mex. Astron. Astrofis., 14, 183; * (15) Vallenari A. et al. 1992 AJ, 104, 1100; * (16) van den Berg S. 1981, A&AS, 46, 79; * (17) Mateo M. 1987 ApJ, 323, L41; * (18) Bica E. et al. 1991 ApJ, 381, L51. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2' ! Magnitudes, colours and positions for the programme stars in each cluster integer*4 nr__1 parameter (nr__1=473) ! Number of records character*57 ar__1 ! Full-size record character*8 Cluster_1 (nr__1) ! Cluster name integer*4 Star (nr__1) ! Star number real*4 Kmag_1 (nr__1) ! (mag) K magnitude real*4 J_K_1 (nr__1) ! (mag) []? J-K colour index real*4 H_K_1 (nr__1) ! (mag) []? H-K colour index real*4 V_K_1 (nr__1) ! (mag) []? V-K colour index real*4 B_V_1 (nr__1) ! (mag) []? B-V colour index real*4 Xpos (nr__1) ! (pix) X star position at a scale of 0.92 arcsec/pix real*4 Ypos (nr__1) ! (pix) Y star position at a scale of 0.92 arcsec/pix c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3' ! Cross-identifications and comparisons with the literature integer*4 nr__2 parameter (nr__2=39) ! Number of records character*76 ar__2 ! Full-size record character*7 Cluster_2 (nr__2) ! Cluster name character*2 r_Star (nr__2) ! Reference star number (1) integer*4 Star_1 (nr__2) ! []? Star number character*3 MAsource (nr__2) ! Source from Mould and Aaronson 1980, 1982 * or Aaronson and Mould 1982, 1985 (MA) (2) real*4 MAKmag (nr__2) ! (mag) []? K magnitude from MA real*4 MAJ_K (nr__2) ! (mag) []? J-K colour from MA real*4 MAH_K (nr__2) ! (mag) []? H-K colour from MA integer*4 FMB (nr__2) ! []? Source number from Frogel et al. 1990 (2) real*4 FMBKmag (nr__2) ! (mag) []? K magnitude from FMB real*4 FMBJ_K (nr__2) ! (mag) []? J-K colour from FMB real*4 FMBH_K (nr__2) ! (mag) []? H-K colour from FMB integer*4 TP (nr__2) ! Source number from this paper real*4 TPKmag (nr__2) ! (mag) K magnitude from this paper real*4 TPJ_K (nr__2) ! (mag) J-K colour from this paper real*4 TPH_K (nr__2) ! (mag) []? H-K colour from this paper *Note (1): MA=Mould J.R. and Aaronson M. 1980, 1982 or Aaronson M. * and Mould J.R. 1982, 1985 (2); * LE= Lloyd-Evans T.L.E. 1980 MNRAS, 193, 87; * W= Walker 1971 ApJ, 167, 1. *Note (2): (1) Mould J.R. and Aaronson M. 1980 ApJ, 240, 464; * (2) Aaronson M. and Mould J.R. 1982 ApJS, 48, 161; * (3) Mould J.R. and Aaronson M. 1982 ApJ, 263, 629; * (4) Aaronson M. and Mould J.R. 1985 ApJ, 288, 551. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4' ! Observed and normalized numbers of AGB and RGB stars integer*4 nr__3 parameter (nr__3=12) ! Number of records character*54 ar__3 ! Full-size record character*7 Cluster_3 (nr__3) ! Cluster name integer*4 AGB (nr__3) ! Number of stars in the AGB (Asymptotic Giant * Branch) phase of evolution integer*4 RGB (nr__3) ! Number of stars in the RGB (Red Giant Branch) * phase of evolution real*4 BolMag (nr__3) ! (mag) Bolometric magnitude real*4 Lum (nr__3) ! (solLum) Cluster luminosity in units of solar * luminosity real*4 N4 (nr__3) ! Number of giants within the range 10<K<14.3, * normalized to the luminosity of each cluster * in units of 10^4^L_sun_. real*4 N__AGB (nr__3) ! Number of AGB stars normalized to 10^4^L_sun_ real*4 N__RGB (nr__3) ! Number of RGB stars normalized to 10^4^L_sun_ integer*4 s_1 (nr__3) ! Cluster type c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5' ! AGB and RGB contributions to the luminosity of the cluster integer*4 nr__4 parameter (nr__4=12) ! Number of records character*49 ar__4 ! Full-size record character*7 Cluster_4 (nr__4) ! Cluster name real*4 LumK_AGB (nr__4) ! []? Contribution of AGB stars to the cluster * luminosity in K, as a fraction of total * luminosity real*4 LumK_RGB (nr__4) ! []? Contribution of RGB stars to the cluster * luminosity in K, as a fraction of the total * luminosity real*4 BolMag_1 (nr__4) ! (mag) Bolometric magnitude real*4 Bol_RGB (nr__4) ! Contribution of RGB stars to the cluster * bolometric luminosity, as a fraction of the * total luminosity integer*4 s_2 (nr__4) ! s-parameter as defined in Elson R.A.W. and * Fall S.M. 1985, ApJ, 299, 211. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6' ! Theoretical quantities integer*4 nr__5 parameter (nr__5=26) ! Number of records character*19 ar__5 ! Full-size record character*5 Ref (nr__5) ! Literature reference (1) real*4 log_Age (nr__5) ! ([yr]) Age of RGB stars real*4 Bol_RGB_1 (nr__5) ! []? Predicted contribution of RGB stars to * the cluster bolometric luminosity, as * a fraction of the total luminosity *Note (1): References: SGR= Sweigart A.V. et al. 1989 ApJS, 69, 911 and * Sweigart A.V. et al. 1990, ApJ, 364, 527; * Al93C= Alongi M. et al. 1993 A&AS, 97, 851, standard models; * Al93O= Alongi M. et al. 1993 A&AS, 97, 851, overshooting models. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7' ! Comparisons between observed and computed integrated colours and magnitudes integer*4 nr__6 parameter (nr__6=12) ! Number of records character*42 ar__6 ! Full-size record character*7 Cluster_5 (nr__6) ! Cluster name integer*4 Aperture_1 (nr__6) ! (arcsec) []? Diaphragm aperture real*4 Kmag1 (nr__6) ! (mag) []? K magnitude in literature (see table1) real*4 J_K1 (nr__6) ! (mag) []? J-K colour index in literature * (see table1) real*4 Kmag2 (nr__6) ! (mag) K magnitude obtained by adding the * contribution of all the stars detected in this * survey real*4 J_K2 (nr__6) ! (mag) J-K colour index obtained by adding the * contribution of all the stars detected in this * survey c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8' ! AGB and RGB contributions to the integrated colours integer*4 nr__7 parameter (nr__7=12) ! Number of records character*66 ar__7 ! Full-size record character*7 Cluster_6 (nr__7) ! Cluster name real*4 J_K_2 (nr__7) ! (mag) Integrated J-B colour obtained by adding the * contribution of all the stars detected in * this survey real*4 J_K_AGB (nr__7) ! (mag) J-K colour obtained after the deletion of * the AGB stars real*4 J_K_RGB (nr__7) ! (mag) J-K colour obtained after the deletion of * the RGB stars real*4 V_K_2 (nr__7) ! (mag) []? Integrated V-K colour from table1 real*4 V_K_AGB (nr__7) ! (mag) []? Integrated V-K colour obtained after * the deletion of the AGB stars real*4 V_K_RGB (nr__7) ! (mag) []? V-K colour obtained after the deletion * of the RGB stars real*4 B_V_2 (nr__7) ! (mag) []? Integrated B-V colour real*4 B_V_ (nr__7) ! (mag) []? B-V colour after the deletion of the * red stars (AGB+RGB) C============================================================================= C Loading file 'table1' ! IR photometric data from literature C Format for file interpretation 1 format( + A7,2X,F5.2,1X,I2,4X,F4.2,3X,F4.2,3X,F4.2,3X,F4.2,1X,I2,2X, + F4.2,1X,A5,2X,A6,1X,A3,4X,F4.1,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table1') write(6,*) '....Loading file: table1' do i__=1,37 read(1,'(A84)')ar__ read(ar__,1) + Cluster(i__),Kmag(i__),Aperture(i__),V_K(i__),J_K(i__), + H_K(i__),B_V(i__),r_B_V(i__),e_B_V(i__),r_e_B_V(i__),SWB(i__), + r_SWB(i__),s(i__),r_s(i__) if(ar__(10:14) .EQ. '') Kmag(i__) = rNULL__ if(ar__(16:17) .EQ. '') Aperture(i__) = iNULL__ if(ar__(22:25) .EQ. '') V_K(i__) = rNULL__ if(ar__(29:32) .EQ. '') J_K(i__) = rNULL__ if(ar__(36:39) .EQ. '') H_K(i__) = rNULL__ if(ar__(43:46) .EQ. '') B_V(i__) = rNULL__ if(ar__(48:49) .EQ. '') r_B_V(i__) = iNULL__ if(ar__(52:55) .EQ. '') e_B_V(i__) = rNULL__ if(ar__(78:81) .EQ. '') s(i__) = rNULL__ if(ar__(83:83) .EQ. '') r_s(i__) = iNULL__ c ..............Just test output........... write(6,1) + Cluster(i__),Kmag(i__),Aperture(i__),V_K(i__),J_K(i__), + H_K(i__),B_V(i__),r_B_V(i__),e_B_V(i__),r_e_B_V(i__),SWB(i__), + r_SWB(i__),s(i__),r_s(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2' ! Magnitudes, colours and positions for the * programme stars in each cluster C Format for file interpretation 2 format( + A8,1X,I3,1X,F5.2,1X,F5.2,1X,F5.2,2X,F4.2,1X,F5.2,2X,F6.2,1X, + F6.2) C Effective file loading open(unit=1,status='old',file= +'table2') write(6,*) '....Loading file: table2' do i__=1,473 read(1,'(A57)')ar__1 read(ar__1,2) + Cluster_1(i__),Star(i__),Kmag_1(i__),J_K_1(i__),H_K_1(i__), + V_K_1(i__),B_V_1(i__),Xpos(i__),Ypos(i__) if(ar__1(20:24) .EQ. '') J_K_1(i__) = rNULL__ if(ar__1(26:30) .EQ. '') H_K_1(i__) = rNULL__ if(ar__1(33:36) .EQ. '') V_K_1(i__) = rNULL__ if(ar__1(38:42) .EQ. '') B_V_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + Cluster_1(i__),Star(i__),Kmag_1(i__),J_K_1(i__),H_K_1(i__), + V_K_1(i__),B_V_1(i__),Xpos(i__),Ypos(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3' ! Cross-identifications and comparisons with * the literature C Format for file interpretation 3 format( + A7,1X,A2,I2,3X,A3,1X,F5.2,1X,F4.2,1X,F4.2,1X,I2,2X,F5.2,2X, + F4.2,2X,F4.2,1X,I3,1X,F5.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3') write(6,*) '....Loading file: table3' do i__=1,39 read(1,'(A76)')ar__2 read(ar__2,3) + Cluster_2(i__),r_Star(i__),Star_1(i__),MAsource(i__), + MAKmag(i__),MAJ_K(i__),MAH_K(i__),FMB(i__),FMBKmag(i__), + FMBJ_K(i__),FMBH_K(i__),TP(i__),TPKmag(i__),TPJ_K(i__), + TPH_K(i__) if(ar__2(11:12) .EQ. '') Star_1(i__) = iNULL__ if(ar__2(20:24) .EQ. '') MAKmag(i__) = rNULL__ if(ar__2(26:29) .EQ. '') MAJ_K(i__) = rNULL__ if(ar__2(31:34) .EQ. '') MAH_K(i__) = rNULL__ if(ar__2(36:37) .EQ. '') FMB(i__) = iNULL__ if(ar__2(40:44) .EQ. '') FMBKmag(i__) = rNULL__ if(ar__2(47:50) .EQ. '') FMBJ_K(i__) = rNULL__ if(ar__2(53:56) .EQ. '') FMBH_K(i__) = rNULL__ if(ar__2(73:76) .EQ. '') TPH_K(i__) = rNULL__ c ..............Just test output........... write(6,3) + Cluster_2(i__),r_Star(i__),Star_1(i__),MAsource(i__), + MAKmag(i__),MAJ_K(i__),MAH_K(i__),FMB(i__),FMBKmag(i__), + FMBJ_K(i__),FMBH_K(i__),TP(i__),TPKmag(i__),TPJ_K(i__), + TPH_K(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4' ! Observed and normalized numbers of AGB and RGB * stars C Format for file interpretation 4 format( + A7,3X,I2,3X,I2,3X,F5.2,2X,F5.2,2X,F4.2,2X,F4.2,2X,F4.2,2X,I2) C Effective file loading open(unit=1,status='old',file= +'table4') write(6,*) '....Loading file: table4' do i__=1,12 read(1,'(A54)')ar__3 read(ar__3,4) + Cluster_3(i__),AGB(i__),RGB(i__),BolMag(i__),Lum(i__),N4(i__), + N__AGB(i__),N__RGB(i__),s_1(i__) c ..............Just test output........... write(6,4) + Cluster_3(i__),AGB(i__),RGB(i__),BolMag(i__),Lum(i__),N4(i__), + N__AGB(i__),N__RGB(i__),s_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5' ! AGB and RGB contributions to the luminosity of * the cluster C Format for file interpretation 5 format(A7,4X,F4.2,5X,F4.2,6X,F5.2,3X,F4.2,5X,I2) C Effective file loading open(unit=1,status='old',file= +'table5') write(6,*) '....Loading file: table5' do i__=1,12 read(1,'(A49)')ar__4 read(ar__4,5) + Cluster_4(i__),LumK_AGB(i__),LumK_RGB(i__),BolMag_1(i__), + Bol_RGB(i__),s_2(i__) if(ar__4(12:15) .EQ. '') LumK_AGB(i__) = rNULL__ if(ar__4(21:24) .EQ. '') LumK_RGB(i__) = rNULL__ c ..............Just test output........... write(6,5) + Cluster_4(i__),LumK_AGB(i__),LumK_RGB(i__),BolMag_1(i__), + Bol_RGB(i__),s_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6' ! Theoretical quantities C Format for file interpretation 6 format(A5,1X,F5.3,3X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table6') write(6,*) '....Loading file: table6' do i__=1,26 read(1,'(A19)')ar__5 read(ar__5,6)Ref(i__),log_Age(i__),Bol_RGB_1(i__) if(ar__5(15:18) .EQ. '') Bol_RGB_1(i__) = rNULL__ c ..............Just test output........... write(6,6)Ref(i__),log_Age(i__),Bol_RGB_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7' ! Comparisons between observed and computed * integrated colours and magnitudes C Format for file interpretation 7 format(A7,4X,I2,4X,F5.2,3X,F4.2,2X,F5.2,2X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table7') write(6,*) '....Loading file: table7' do i__=1,12 read(1,'(A42)')ar__6 read(ar__6,7) + Cluster_5(i__),Aperture_1(i__),Kmag1(i__),J_K1(i__), + Kmag2(i__),J_K2(i__) if(ar__6(12:13) .EQ. '') Aperture_1(i__) = iNULL__ if(ar__6(18:22) .EQ. '') Kmag1(i__) = rNULL__ if(ar__6(26:29) .EQ. '') J_K1(i__) = rNULL__ c ..............Just test output........... write(6,7) + Cluster_5(i__),Aperture_1(i__),Kmag1(i__),J_K1(i__), + Kmag2(i__),J_K2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8' ! AGB and RGB contributions to the integrated * colours C Format for file interpretation 8 format( + A7,1X,F4.2,2X,F4.2,2X,F4.2,3X,F4.2,4X,F4.2,3X,F5.2,3X,F4.2,2X, + F4.2) C Effective file loading open(unit=1,status='old',file= +'table8') write(6,*) '....Loading file: table8' do i__=1,12 read(1,'(A66)')ar__7 read(ar__7,8) + Cluster_6(i__),J_K_2(i__),J_K_AGB(i__),J_K_RGB(i__), + V_K_2(i__),V_K_AGB(i__),V_K_RGB(i__),B_V_2(i__),B_V_(i__) if(ar__7(28:31) .EQ. '') V_K_2(i__) = rNULL__ if(ar__7(36:39) .EQ. '') V_K_AGB(i__) = rNULL__ if(ar__7(43:47) .EQ. '') V_K_RGB(i__) = rNULL__ if(ar__7(51:54) .EQ. '') B_V_2(i__) = rNULL__ if(ar__7(57:60) .EQ. '') B_V_(i__) = rNULL__ c ..............Just test output........... write(6,8) + Cluster_6(i__),J_K_2(i__),J_K_AGB(i__),J_K_RGB(i__), + V_K_2(i__),V_K_AGB(i__),V_K_RGB(i__),B_V_2(i__),B_V_(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end