Conversion of standardized ReadMe file for
file /./ftp/cats/II/75 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-28 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. II/75 Homogeneous RI magnitudes in Kron system (Jasniewicz 1982) *================================================================================ *Homogeneous catalogue of red and infrared magnitudes in the photoelectric *photometric system of Kron * Jasniewicz G. * <Astron. Astrophys. Suppl. Ser. 49, 99 (1982)> * =1982A+AS...49...99J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'data' ! R and R-I Measurements integer*4 nr__ parameter (nr__=6034) ! Number of records character*80 ar__ ! Full-size record character*11 LID (nr__) ! Lausanne designation (1) real*4 Rmag (nr__) ! (mag) []? magnitude character*1 u_Rmag (nr__) ! Uncertainty flag (:) on Rmag real*4 R_I (nr__) ! (mag) Color index character*1 u_R_I (nr__) ! Uncertainty flag (:) on R-I character*1 n_Nmes (nr__) ! [S/*] Note on measurements: * S = Standard star * / = Nmes does not appear * * = Nmes is a minimum number integer*4 Nmes (nr__) ! []? Number of measurements integer*4 Ref (nr__) ! [17001/19018] Reference *Note (1): * The coded numbering system used in this catalogue has been described * by Mermilliod J.-CL. (1978, Bulletin du Centre de Donnees Stellaires, * Strasbourg,14,32). A minor modification consists in the suppression of * the point for each code number. An eventual remark (such as multiplicity * or variability) follows it. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'mean' ! R and R-I Homogeneous data integer*4 nr__1 parameter (nr__1=5704) ! Number of records character*80 ar__1 ! Full-size record character*11 LID_1 (nr__1) ! Lausanne designation real*4 Rmag_1 (nr__1) ! (mag) []? mean R magnitude real*4 R_I_1 (nr__1) ! (mag) Mean colour index integer*4 w_Rmag (nr__1) ! [1/4]? Weight on R colour integer*4 w_R_I (nr__1) ! [1/4] Weight on R-I index integer*4 Ref1 (nr__1) ! [17001/19018] First reference integer*4 Ref2 (nr__1) ! [17001/19018]? Second reference integer*4 Ref3 (nr__1) ! [17001/19018]? Third reference integer*4 Ref4 (nr__1) ! [17001/19018]? Fourth reference c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'ref1' ! First list of References integer*4 nr__2 parameter (nr__2=60) ! Number of records character*80 ar__2 ! Full-size record integer*4 Ref_1 (nr__2) ! [17001/19018]? Reference number; * blank for continuation character*72 Text (nr__2) ! Text of reference c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'ref2' ! Second list of References integer*4 nr__3 parameter (nr__3=183) ! Number of records character*80 ar__3 ! Full-size record integer*4 Ref_2 (nr__3) ! [17001/19018]? Reference number; * blank for continuation character*72 Text_1 (nr__3) ! Text of reference C============================================================================= C Loading file 'data' ! R and R-I Measurements C Format for file interpretation 1 format(1X,A11,4X,F5.2,A1,3X,F6.3,A1,10X,A1,1X,I2,29X,I5) C Effective file loading open(unit=1,status='old',file= +'data') write(6,*) '....Loading file: data' do i__=1,6034 read(1,'(A80)')ar__ read(ar__,1) + LID(i__),Rmag(i__),u_Rmag(i__),R_I(i__),u_R_I(i__), + n_Nmes(i__),Nmes(i__),Ref(i__) if(ar__(17:21) .EQ. '') Rmag(i__) = rNULL__ if(ar__(45:46) .EQ. '') Nmes(i__) = iNULL__ c ..............Just test output........... write(6,1) + LID(i__),Rmag(i__),u_Rmag(i__),R_I(i__),u_R_I(i__), + n_Nmes(i__),Nmes(i__),Ref(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'mean' ! R and R-I Homogeneous data C Format for file interpretation 2 format( + 1X,A11,4X,F5.2,4X,F6.3,7X,I1,3X,I1,8X,I5,3X,I5,3X,I5,3X,I5) C Effective file loading open(unit=1,status='old',file= +'mean') write(6,*) '....Loading file: mean' do i__=1,5704 read(1,'(A80)')ar__1 read(ar__1,2) + LID_1(i__),Rmag_1(i__),R_I_1(i__),w_Rmag(i__),w_R_I(i__), + Ref1(i__),Ref2(i__),Ref3(i__),Ref4(i__) if(ar__1(17:21) .EQ. '') Rmag_1(i__) = rNULL__ if(ar__1(39:39) .EQ. '') w_Rmag(i__) = iNULL__ if(ar__1(60:64) .EQ. '') Ref2(i__) = iNULL__ if(ar__1(68:72) .EQ. '') Ref3(i__) = iNULL__ if(ar__1(76:80) .EQ. '') Ref4(i__) = iNULL__ c ..............Just test output........... write(6,2) + LID_1(i__),Rmag_1(i__),R_I_1(i__),w_Rmag(i__),w_R_I(i__), + Ref1(i__),Ref2(i__),Ref3(i__),Ref4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'ref1' ! First list of References C Format for file interpretation 3 format(I5,3X,A72) C Effective file loading open(unit=1,status='old',file= +'ref1') write(6,*) '....Loading file: ref1' do i__=1,60 read(1,'(A80)')ar__2 read(ar__2,3)Ref_1(i__),Text(i__) if(ar__2(1:5) .EQ. '') Ref_1(i__) = iNULL__ c ..............Just test output........... write(6,3)Ref_1(i__),Text(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'ref2' ! Second list of References C Format for file interpretation 4 format(I5,3X,A72) C Effective file loading open(unit=1,status='old',file= +'ref2') write(6,*) '....Loading file: ref2' do i__=1,183 read(1,'(A80)')ar__3 read(ar__3,4)Ref_2(i__),Text_1(i__) if(ar__3(1:5) .EQ. '') Ref_2(i__) = iNULL__ c ..............Just test output........... write(6,4)Ref_2(i__),Text_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end