Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/105/894 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-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/AJ/105/894 Star formation in DDO 210 and NGC 3109 (Greggio+ 1993) *================================================================================ *Star formation in dwarf irregular galaxies: DDO 210 and NGC 3109 * GREGGIO L., MARCONI G., TOSI M., FOCARDI P. * <Astron. J. 105, 894 (1993)> * =1993AJ....105..894G C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2a.dat' ! Principal parameters from the selected stars in DDO 210 region A integer*4 nr__ parameter (nr__=435) ! Number of records character*45 ar__ ! Full-size record integer*4 N (nr__) ! Star number real*8 X (nr__) ! (pix) X pixel coordinate, referred to the bottom * left corner of each frame real*8 Y (nr__) ! (pix) Y pixel coordinate real*8 V (nr__) ! (mag) V magnitude real*8 B_V (nr__) ! (mag) B-V color c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2b.dat' ! Principal parameters from the selected stars in DDO 210 region B integer*4 nr__1 parameter (nr__1=148) ! Number of records character*45 ar__1 ! Full-size record integer*4 N_1 (nr__1) ! Star number real*8 X_1 (nr__1) ! (pix) X pixel coordinate, referred to the bottom * left corner of each frame real*8 Y_1 (nr__1) ! (pix) Y pixel coordinate real*8 V_1 (nr__1) ! (mag) V magnitude real*8 B_V_1 (nr__1) ! (mag) B-V color c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3a.dat' ! Principal parameters from the selected stars in NGC 3109 region A integer*4 nr__2 parameter (nr__2=1020) ! Number of records character*56 ar__2 ! Full-size record integer*4 N_2 (nr__2) ! Star number real*8 X_2 (nr__2) ! (pix) X pixel coordinate, referred to the bottom * left corner of each frame real*8 Y_2 (nr__2) ! (pix) Y pixel coordinate real*8 Vmag (nr__2) ! (mag) V magnitude real*8 B_V_2 (nr__2) ! (mag) B-V color real*8 V_R (nr__2) ! (mag) V-R color c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3b.dat' ! Principal parameters from the selected stars in NGC 3109 region B integer*4 nr__3 parameter (nr__3=653) ! Number of records character*56 ar__3 ! Full-size record integer*4 N_3 (nr__3) ! Star number real*8 X_3 (nr__3) ! (pix) X pixel coordinate, referred to the bottom * left corner of each frame real*8 Y_3 (nr__3) ! (pix) Y pixel coordinate real*8 Vmag_1 (nr__3) ! (mag) V magnitude real*8 B_V_3 (nr__3) ! (mag) B-V color real*8 V_R_1 (nr__3) ! (mag) V-R color c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3c.dat' ! Principal parameters from the selected stars in NGC 3109 region C integer*4 nr__4 parameter (nr__4=933) ! Number of records character*56 ar__4 ! Full-size record integer*4 N_4 (nr__4) ! Star number real*8 X_4 (nr__4) ! (pix) X pixel coordinate, referred to the bottom * left corner of each frame real*8 Y_4 (nr__4) ! (pix) Y pixel coordinate real*8 Vmag_2 (nr__4) ! (mag) V magnitude real*8 B_V_4 (nr__4) ! (mag) B-V color real*8 V_R_2 (nr__4) ! (mag) V-R color C============================================================================= C Loading file 'table2a.dat' ! Principal parameters from the selected stars in * DDO 210 region A C Format for file interpretation 1 format(I3,F11.6,F11.6,F10.6,F10.6) C Effective file loading open(unit=1,status='old',file= +'table2a.dat') write(6,*) '....Loading file: table2a.dat' do i__=1,435 read(1,'(A45)')ar__ read(ar__,1)N(i__),X(i__),Y(i__),V(i__),B_V(i__) c ..............Just test output........... write(6,1)N(i__),X(i__),Y(i__),V(i__),B_V(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2b.dat' ! Principal parameters from the selected stars in * DDO 210 region B C Format for file interpretation 2 format(I3,F11.6,F11.6,F10.6,F10.6) C Effective file loading open(unit=1,status='old',file= +'table2b.dat') write(6,*) '....Loading file: table2b.dat' do i__=1,148 read(1,'(A45)')ar__1 read(ar__1,2)N_1(i__),X_1(i__),Y_1(i__),V_1(i__),B_V_1(i__) c ..............Just test output........... write(6,2)N_1(i__),X_1(i__),Y_1(i__),V_1(i__),B_V_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3a.dat' ! Principal parameters from the selected stars in * NGC 3109 region A C Format for file interpretation 3 format(I4,F11.6,F11.6,F10.6,F10.6,F10.6) C Effective file loading open(unit=1,status='old',file= +'table3a.dat') write(6,*) '....Loading file: table3a.dat' do i__=1,1020 read(1,'(A56)')ar__2 read(ar__2,3) + N_2(i__),X_2(i__),Y_2(i__),Vmag(i__),B_V_2(i__),V_R(i__) c ..............Just test output........... write(6,3) + N_2(i__),X_2(i__),Y_2(i__),Vmag(i__),B_V_2(i__),V_R(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3b.dat' ! Principal parameters from the selected stars in * NGC 3109 region B C Format for file interpretation 4 format(I4,F11.6,F11.6,F10.6,F10.6,F10.6) C Effective file loading open(unit=1,status='old',file= +'table3b.dat') write(6,*) '....Loading file: table3b.dat' do i__=1,653 read(1,'(A56)')ar__3 read(ar__3,4) + N_3(i__),X_3(i__),Y_3(i__),Vmag_1(i__),B_V_3(i__),V_R_1(i__) c ..............Just test output........... write(6,4) + N_3(i__),X_3(i__),Y_3(i__),Vmag_1(i__),B_V_3(i__),V_R_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3c.dat' ! Principal parameters from the selected stars in * NGC 3109 region C C Format for file interpretation 5 format(I4,F11.6,F11.6,F10.6,F10.6,F10.6) C Effective file loading open(unit=1,status='old',file= +'table3c.dat') write(6,*) '....Loading file: table3c.dat' do i__=1,933 read(1,'(A56)')ar__4 read(ar__4,5) + N_4(i__),X_4(i__),Y_4(i__),Vmag_2(i__),B_V_4(i__),V_R_2(i__) c ..............Just test output........... write(6,5) + N_4(i__),X_4(i__),Y_4(i__),Vmag_2(i__),B_V_4(i__),V_R_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end