Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/503/469 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-20 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/503/469 Compact clusters in LMC catalogue of stars (Liu+, 2009) *================================================================================ *The low-mass stellar-mass functions of rich, compact clusters in the *Large Magellanic Cloud. * Liu Q., de Grijs R., Deng L.C., Hu Y., Beaulieu S.F. * <Astron. Astrophys. 503, 469 (2009)> * =2009A&A...503..469L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'h14w.dat' ! Hodge 14 based on HST/WFPC2 integer*4 nr__ parameter (nr__=5442) ! Number of records character*88 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq (nr__) ! Sequential number real*8 Xpos (nr__) ! (pix) Position on the CCD in X-axis real*8 Ypos (nr__) ! (pix) Position on the CCD in Y-axis real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) real*4 F555W (nr__) ! (mag) F555W magnitude real*4 e_F555W (nr__) ! (mag) rms uncertainty on F555W real*4 F814W (nr__) ! (mag) F814W magnitude real*4 e_F814W (nr__) ! (mag) rms uncertainty on F814W real*4 Vmag (nr__) ! (mag) V magnitude real*4 Imag (nr__) ! (mag) I magnitude integer*4 Exp (nr__) ! [1/3] Exposure number integer*4 Chip (nr__) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1805w.dat' ! NGC 1805 based on HST/WFPC2 integer*4 nr__1 parameter (nr__1=9771) ! Number of records character*88 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_1 (nr__1) ! Sequential number real*8 Xpos_1 (nr__1) ! (pix) Position on the CCD in X-axis real*8 Ypos_1 (nr__1) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_1 (nr__1) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000) real*4 F555W_1 (nr__1) ! (mag) F555W magnitude real*4 e_F555W_1 (nr__1) ! (mag) rms uncertainty on F555W real*4 F814W_1 (nr__1) ! (mag) F814W magnitude real*4 e_F814W_1 (nr__1) ! (mag) rms uncertainty on F814W real*4 Vmag_1 (nr__1) ! (mag) V magnitude real*4 Imag_1 (nr__1) ! (mag) I magnitude integer*4 Exp_1 (nr__1) ! [1/3] Exposure number integer*4 Chip_1 (nr__1) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1818w.dat' ! NGC 1818 based on HST/WFPC2 integer*4 nr__2 parameter (nr__2=14081) ! Number of records character*88 ar__2 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_2 (nr__2) ! Sequential number real*8 Xpos_2 (nr__2) ! (pix) Position on the CCD in X-axis real*8 Ypos_2 (nr__2) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_2 (nr__2) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_2 (nr__2) ! (deg) Declination in decimal degrees (J2000) real*4 F555W_2 (nr__2) ! (mag) F555W magnitude real*4 e_F555W_2 (nr__2) ! (mag) rms uncertainty on F555W real*4 F814W_2 (nr__2) ! (mag) F814W magnitude real*4 e_F814W_2 (nr__2) ! (mag) rms uncertainty on F814W real*4 Vmag_2 (nr__2) ! (mag) V magnitude real*4 Imag_2 (nr__2) ! (mag) I magnitude integer*4 Exp_2 (nr__2) ! [1/3] Exposure number integer*4 Chip_2 (nr__2) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1831w.dat' ! NGC 1831 based on HST/WFPC2 integer*4 nr__3 parameter (nr__3=13345) ! Number of records character*88 ar__3 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_3 (nr__3) ! Sequential number real*8 Xpos_3 (nr__3) ! (pix) Position on the CCD in X-axis real*8 Ypos_3 (nr__3) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_3 (nr__3) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_3 (nr__3) ! (deg) Declination in decimal degrees (J2000) real*4 F555W_3 (nr__3) ! (mag) F555W magnitude real*4 e_F555W_3 (nr__3) ! (mag) rms uncertainty on F555W real*4 F814W_3 (nr__3) ! (mag) F814W magnitude real*4 e_F814W_3 (nr__3) ! (mag) rms uncertainty on F814W real*4 Vmag_3 (nr__3) ! (mag) V magnitude real*4 Imag_3 (nr__3) ! (mag) I magnitude integer*4 Exp_3 (nr__3) ! [1/3] Exposure number integer*4 Chip_3 (nr__3) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1868w.dat' ! NGC 1868 based on HST/WFPC2 integer*4 nr__4 parameter (nr__4=13286) ! Number of records character*88 ar__4 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_4 (nr__4) ! Sequential number real*8 Xpos_4 (nr__4) ! (pix) Position on the CCD in X-axis real*8 Ypos_4 (nr__4) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_4 (nr__4) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_4 (nr__4) ! (deg) Declination in decimal degrees (J2000) real*4 F555W_4 (nr__4) ! (mag) F555W magnitude real*4 e_F555W_4 (nr__4) ! (mag) rms uncertainty on F555W real*4 F814W_4 (nr__4) ! (mag) F814W magnitude real*4 e_F814W_4 (nr__4) ! (mag) rms uncertainty on F814W real*4 Vmag_4 (nr__4) ! (mag) V magnitude real*4 Imag_4 (nr__4) ! (mag) I magnitude integer*4 Exp_4 (nr__4) ! [1/3] Exposure number integer*4 Chip_4 (nr__4) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n2209w.dat' ! NGC 2209 based on HST/WFPC2 integer*4 nr__5 parameter (nr__5=13286) ! Number of records character*88 ar__5 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_5 (nr__5) ! Sequential number real*8 Xpos_5 (nr__5) ! (pix) Position on the CCD in X-axis real*8 Ypos_5 (nr__5) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_5 (nr__5) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_5 (nr__5) ! (deg) Declination in decimal degrees (J2000) real*4 F555W_5 (nr__5) ! (mag) F555W magnitude real*4 e_F555W_5 (nr__5) ! (mag) rms uncertainty on F555W real*4 F814W_5 (nr__5) ! (mag) F814W magnitude real*4 e_F814W_5 (nr__5) ! (mag) rms uncertainty on F814W real*4 Vmag_5 (nr__5) ! (mag) V magnitude real*4 Imag_5 (nr__5) ! (mag) I magnitude integer*4 Exp_5 (nr__5) ! [1/3] Exposure number integer*4 Chip_5 (nr__5) ! [1/4] Chip number c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'h14s.dat' ! Hodge 14 based on HST/STIS integer*4 nr__6 parameter (nr__6=8758) ! Number of records character*66 ar__6 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_6 (nr__6) ! ?=* Sequential number real*8 Xpos_6 (nr__6) ! (pix) Position on the CCD in X-axis real*8 Ypos_6 (nr__6) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_6 (nr__6) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_6 (nr__6) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP (nr__6) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP (nr__6) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1805s.dat' ! NGC 1805 based on HST/STIS integer*4 nr__7 parameter (nr__7=1215) ! Number of records character*66 ar__7 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_7 (nr__7) ! ?=* Sequential number real*8 Xpos_7 (nr__7) ! (pix) Position on the CCD in X-axis real*8 Ypos_7 (nr__7) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_7 (nr__7) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_7 (nr__7) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP_1 (nr__7) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP_1(nr__7) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1818s.dat' ! NGC 1818 based on HST/STIS integer*4 nr__8 parameter (nr__8=2057) ! Number of records character*66 ar__8 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_8 (nr__8) ! ?=* Sequential number real*8 Xpos_8 (nr__8) ! (pix) Position on the CCD in X-axis real*8 Ypos_8 (nr__8) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_8 (nr__8) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_8 (nr__8) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP_2 (nr__8) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP_2(nr__8) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1831s.dat' ! NGC 1831 based on HST/STIS integer*4 nr__9 parameter (nr__9=5952) ! Number of records character*66 ar__9 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_9 (nr__9) ! ?=* Sequential number real*8 Xpos_9 (nr__9) ! (pix) Position on the CCD in X-axis real*8 Ypos_9 (nr__9) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_9 (nr__9) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_9 (nr__9) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP_3 (nr__9) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP_3(nr__9) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n1868s.dat' ! NGC 1868 based on HST/STIS integer*4 nr__10 parameter (nr__10=3411) ! Number of records character*66 ar__10 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_10 (nr__10) ! ?=* Sequential number real*8 Xpos_10 (nr__10) ! (pix) Position on the CCD in X-axis real*8 Ypos_10 (nr__10) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_10 (nr__10) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_10 (nr__10) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP_4 (nr__10) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP_4(nr__10) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'n2209s.dat' ! NGC 2209 based on HST/STIS integer*4 nr__11 parameter (nr__11=1781) ! Number of records character*66 ar__11 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq_11 (nr__11) ! ?=* Sequential number real*8 Xpos_11 (nr__11) ! (pix) Position on the CCD in X-axis real*8 Ypos_11 (nr__11) ! (pix) Position on the CCD in Y-axis real*8 RAdeg_11 (nr__11) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_11 (nr__11) ! (deg) Declination in decimal degrees (J2000) real*8 F28x50LP_5 (nr__11) ! (mag) F28x50LP magnitude (1) real*4 e_F28x50LP_5(nr__11) ! (mag) rms uncertainty on F28x50LP *Note (1): F28X50LP is a longpass >5500{AA}, with central wavelength at 7230{AA} C============================================================================= C Loading file 'h14w.dat' ! Hodge 14 based on HST/WFPC2 C Format for file interpretation 1 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'h14w.dat') write(6,*) '....Loading file: h14w.dat' do i__=1,5442 read(1,'(A88)')ar__ read(ar__,1) + Seq(i__),Xpos(i__),Ypos(i__),RAdeg(i__),DEdeg(i__),F555W(i__), + e_F555W(i__),F814W(i__),e_F814W(i__),Vmag(i__),Imag(i__), + Exp(i__),Chip(i__) c ..............Just test output........... write(6,1) + Seq(i__),Xpos(i__),Ypos(i__),RAdeg(i__),DEdeg(i__),F555W(i__), + e_F555W(i__),F814W(i__),e_F814W(i__),Vmag(i__),Imag(i__), + Exp(i__),Chip(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1805w.dat' ! NGC 1805 based on HST/WFPC2 C Format for file interpretation 2 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'n1805w.dat') write(6,*) '....Loading file: n1805w.dat' do i__=1,9771 read(1,'(A88)')ar__1 read(ar__1,2) + Seq_1(i__),Xpos_1(i__),Ypos_1(i__),RAdeg_1(i__),DEdeg_1(i__), + F555W_1(i__),e_F555W_1(i__),F814W_1(i__),e_F814W_1(i__), + Vmag_1(i__),Imag_1(i__),Exp_1(i__),Chip_1(i__) c ..............Just test output........... write(6,2) + Seq_1(i__),Xpos_1(i__),Ypos_1(i__),RAdeg_1(i__),DEdeg_1(i__), + F555W_1(i__),e_F555W_1(i__),F814W_1(i__),e_F814W_1(i__), + Vmag_1(i__),Imag_1(i__),Exp_1(i__),Chip_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1818w.dat' ! NGC 1818 based on HST/WFPC2 C Format for file interpretation 3 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'n1818w.dat') write(6,*) '....Loading file: n1818w.dat' do i__=1,14081 read(1,'(A88)')ar__2 read(ar__2,3) + Seq_2(i__),Xpos_2(i__),Ypos_2(i__),RAdeg_2(i__),DEdeg_2(i__), + F555W_2(i__),e_F555W_2(i__),F814W_2(i__),e_F814W_2(i__), + Vmag_2(i__),Imag_2(i__),Exp_2(i__),Chip_2(i__) c ..............Just test output........... write(6,3) + Seq_2(i__),Xpos_2(i__),Ypos_2(i__),RAdeg_2(i__),DEdeg_2(i__), + F555W_2(i__),e_F555W_2(i__),F814W_2(i__),e_F814W_2(i__), + Vmag_2(i__),Imag_2(i__),Exp_2(i__),Chip_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1831w.dat' ! NGC 1831 based on HST/WFPC2 C Format for file interpretation 4 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'n1831w.dat') write(6,*) '....Loading file: n1831w.dat' do i__=1,13345 read(1,'(A88)')ar__3 read(ar__3,4) + Seq_3(i__),Xpos_3(i__),Ypos_3(i__),RAdeg_3(i__),DEdeg_3(i__), + F555W_3(i__),e_F555W_3(i__),F814W_3(i__),e_F814W_3(i__), + Vmag_3(i__),Imag_3(i__),Exp_3(i__),Chip_3(i__) c ..............Just test output........... write(6,4) + Seq_3(i__),Xpos_3(i__),Ypos_3(i__),RAdeg_3(i__),DEdeg_3(i__), + F555W_3(i__),e_F555W_3(i__),F814W_3(i__),e_F814W_3(i__), + Vmag_3(i__),Imag_3(i__),Exp_3(i__),Chip_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1868w.dat' ! NGC 1868 based on HST/WFPC2 C Format for file interpretation 5 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'n1868w.dat') write(6,*) '....Loading file: n1868w.dat' do i__=1,13286 read(1,'(A88)')ar__4 read(ar__4,5) + Seq_4(i__),Xpos_4(i__),Ypos_4(i__),RAdeg_4(i__),DEdeg_4(i__), + F555W_4(i__),e_F555W_4(i__),F814W_4(i__),e_F814W_4(i__), + Vmag_4(i__),Imag_4(i__),Exp_4(i__),Chip_4(i__) c ..............Just test output........... write(6,5) + Seq_4(i__),Xpos_4(i__),Ypos_4(i__),RAdeg_4(i__),DEdeg_4(i__), + F555W_4(i__),e_F555W_4(i__),F814W_4(i__),e_F814W_4(i__), + Vmag_4(i__),Imag_4(i__),Exp_4(i__),Chip_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n2209w.dat' ! NGC 2209 based on HST/WFPC2 C Format for file interpretation 6 format( + I6,1X,F7.3,1X,F7.3,1X,F10.7,1X,F11.7,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F6.3,1X,I1,I1) C Effective file loading open(unit=1,status='old',file= +'n2209w.dat') write(6,*) '....Loading file: n2209w.dat' do i__=1,13286 read(1,'(A88)')ar__5 read(ar__5,6) + Seq_5(i__),Xpos_5(i__),Ypos_5(i__),RAdeg_5(i__),DEdeg_5(i__), + F555W_5(i__),e_F555W_5(i__),F814W_5(i__),e_F814W_5(i__), + Vmag_5(i__),Imag_5(i__),Exp_5(i__),Chip_5(i__) c ..............Just test output........... write(6,6) + Seq_5(i__),Xpos_5(i__),Ypos_5(i__),RAdeg_5(i__),DEdeg_5(i__), + F555W_5(i__),e_F555W_5(i__),F814W_5(i__),e_F814W_5(i__), + Vmag_5(i__),Imag_5(i__),Exp_5(i__),Chip_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'h14s.dat' ! Hodge 14 based on HST/STIS C Format for file interpretation 7 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'h14s.dat') write(6,*) '....Loading file: h14s.dat' do i__=1,8758 read(1,'(A66)')ar__6 read(ar__6,7) + Seq_6(i__),Xpos_6(i__),Ypos_6(i__),RAdeg_6(i__),DEdeg_6(i__), + F28x50LP(i__),e_F28x50LP(i__) if (Seq_6(i__) .EQ. 42) Seq_6(i__) = iNULL__ c ..............Just test output........... write(6,7) + Seq_6(i__),Xpos_6(i__),Ypos_6(i__),RAdeg_6(i__),DEdeg_6(i__), + F28x50LP(i__),e_F28x50LP(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1805s.dat' ! NGC 1805 based on HST/STIS C Format for file interpretation 8 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'n1805s.dat') write(6,*) '....Loading file: n1805s.dat' do i__=1,1215 read(1,'(A66)')ar__7 read(ar__7,8) + Seq_7(i__),Xpos_7(i__),Ypos_7(i__),RAdeg_7(i__),DEdeg_7(i__), + F28x50LP_1(i__),e_F28x50LP_1(i__) if (Seq_7(i__) .EQ. 42) Seq_7(i__) = iNULL__ c ..............Just test output........... write(6,8) + Seq_7(i__),Xpos_7(i__),Ypos_7(i__),RAdeg_7(i__),DEdeg_7(i__), + F28x50LP_1(i__),e_F28x50LP_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1818s.dat' ! NGC 1818 based on HST/STIS C Format for file interpretation 9 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'n1818s.dat') write(6,*) '....Loading file: n1818s.dat' do i__=1,2057 read(1,'(A66)')ar__8 read(ar__8,9) + Seq_8(i__),Xpos_8(i__),Ypos_8(i__),RAdeg_8(i__),DEdeg_8(i__), + F28x50LP_2(i__),e_F28x50LP_2(i__) if (Seq_8(i__) .EQ. 42) Seq_8(i__) = iNULL__ c ..............Just test output........... write(6,9) + Seq_8(i__),Xpos_8(i__),Ypos_8(i__),RAdeg_8(i__),DEdeg_8(i__), + F28x50LP_2(i__),e_F28x50LP_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1831s.dat' ! NGC 1831 based on HST/STIS C Format for file interpretation 10 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'n1831s.dat') write(6,*) '....Loading file: n1831s.dat' do i__=1,5952 read(1,'(A66)')ar__9 read(ar__9,10) + Seq_9(i__),Xpos_9(i__),Ypos_9(i__),RAdeg_9(i__),DEdeg_9(i__), + F28x50LP_3(i__),e_F28x50LP_3(i__) if (Seq_9(i__) .EQ. 42) Seq_9(i__) = iNULL__ c ..............Just test output........... write(6,10) + Seq_9(i__),Xpos_9(i__),Ypos_9(i__),RAdeg_9(i__),DEdeg_9(i__), + F28x50LP_3(i__),e_F28x50LP_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n1868s.dat' ! NGC 1868 based on HST/STIS C Format for file interpretation 11 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'n1868s.dat') write(6,*) '....Loading file: n1868s.dat' do i__=1,3411 read(1,'(A66)')ar__10 read(ar__10,11) + Seq_10(i__),Xpos_10(i__),Ypos_10(i__),RAdeg_10(i__), + DEdeg_10(i__),F28x50LP_4(i__),e_F28x50LP_4(i__) if (Seq_10(i__) .EQ. 42) Seq_10(i__) = iNULL__ c ..............Just test output........... write(6,11) + Seq_10(i__),Xpos_10(i__),Ypos_10(i__),RAdeg_10(i__), + DEdeg_10(i__),F28x50LP_4(i__),e_F28x50LP_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'n2209s.dat' ! NGC 2209 based on HST/STIS C Format for file interpretation 12 format(I5,2X,F8.4,1X,F8.4,2X,F11.7,1X,F11.7,2X,F7.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'n2209s.dat') write(6,*) '....Loading file: n2209s.dat' do i__=1,1781 read(1,'(A66)')ar__11 read(ar__11,12) + Seq_11(i__),Xpos_11(i__),Ypos_11(i__),RAdeg_11(i__), + DEdeg_11(i__),F28x50LP_5(i__),e_F28x50LP_5(i__) if (Seq_11(i__) .EQ. 42) Seq_11(i__) = iNULL__ c ..............Just test output........... write(6,12) + Seq_11(i__),Xpos_11(i__),Ypos_11(i__),RAdeg_11(i__), + DEdeg_11(i__),F28x50LP_5(i__),e_F28x50LP_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end