Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASP/106/967 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-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. J/PASP/106/967 Photometric Standard Stars (Joergensen 1994) *================================================================================ *Secondary Photometric Standard Stars for the Thuan-Gunn and *Johnson-Kron-Cousins Systems. * Joergensen Inger * <Publ. Astron. Soc. Pac., 106, 967 (1994)> * =1994PASP..106..967J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Standard magnitudes integer*4 nr__ parameter (nr__=127) ! Number of records character*133 ar__ ! Full-size record character*13 Name ! *Name of star real*4 Vmag ! (mag) ?Magnitude in Johnson V real*4 e_Vmag ! (mag) ?Mean error on magnitude in Johnson V integer*4 o_Vmag ! ?Number of observations in Johnson V real*4 B_V ! (mag) ?B-V, Johnson system real*4 e_B_V ! (mag) ?Mean error on B-V integer*4 o_B_V ! ?Number of observations for B-V real*4 U_B ! (mag) ?U-B, Johnson system real*4 e_U_B ! (mag) ?Mean error on U-B integer*4 o_U_B ! ?Number of observations for U-B real*4 r ! (mag) ?Magnitude in Gunn r real*4 e_r ! (mag) ?Mean error on magnitude in Gunn r integer*4 o_r ! ?Number of observations in Gunn r real*4 g ! (mag) ?Magnitude in Gunn g real*4 e_g ! (mag) ?Mean error on magnitude in Gunn g integer*4 o_g ! ?Number of observations in Gunn g real*4 v ! (mag) ?Magnitude in Gunn v real*4 e_v ! (mag) ?Mean error on magnitude in Gunn v integer*4 o_v ! ?Number of observations in Gunn v *Notes on Name: * E4, E5, E6, E7, E8, E9: Johnson standard stars from Graham * (1982PASP...94..244G) * N300: Johnson standard stars from Graham (1981PASP...93...29G) * 1MarkA, PG1633+099, SA92, SA110: Johnson standard stars from Landolt * (1992AJ....104..340L) * F762-9, F1038-6: Stobie et al. (1985A&AS...60..503S), not used for the * standard calibration. F762-9-2 is variable. * BD, Feige, GL745, G18-39, G68-30, HD84937, M67, and Ross: Kent * (1985PASP...97..165K). Other HD and SA: Zinn (1980ApJS...42...19Z), * not used for the standard calibration. C============================================================================= C Loading file 'table6.dat' ! Standard magnitudes C Format for file interpretation 1 format( + A13,1X,F6.3,2X,F5.3,3X,I3,1X,F6.3,2X,F5.3,3X,I3,1X,F6.3,2X, + F5.3,3X,I3,1X,F6.3,2X,F5.3,3X,I3,1X,F6.3,2X,F5.3,3X,I3,1X, + F6.3,2X,F5.3,3X,I3) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,127 read(1,'(A133)')ar__ read(ar__,1) + Name,Vmag,e_Vmag,o_Vmag,B_V,e_B_V,o_B_V,U_B,e_U_B,o_U_B,r,e_r, + o_r,g,e_g,o_g,v,e_v,o_v if(ar__(15:20) .EQ. '') Vmag = rNULL__ if(ar__(23:27) .EQ. '') e_Vmag = rNULL__ if(ar__(31:33) .EQ. '') o_Vmag = iNULL__ if(ar__(35:40) .EQ. '') B_V = rNULL__ if(ar__(43:47) .EQ. '') e_B_V = rNULL__ if(ar__(51:53) .EQ. '') o_B_V = iNULL__ if(ar__(55:60) .EQ. '') U_B = rNULL__ if(ar__(63:67) .EQ. '') e_U_B = rNULL__ if(ar__(71:73) .EQ. '') o_U_B = iNULL__ if(ar__(75:80) .EQ. '') r = rNULL__ if(ar__(83:87) .EQ. '') e_r = rNULL__ if(ar__(91:93) .EQ. '') o_r = iNULL__ if(ar__(95:100) .EQ. '') g = rNULL__ if(ar__(103:107) .EQ. '') e_g = rNULL__ if(ar__(111:113) .EQ. '') o_g = iNULL__ if(ar__(115:120) .EQ. '') v = rNULL__ if(ar__(123:127) .EQ. '') e_v = rNULL__ if(ar__(131:133) .EQ. '') o_v = iNULL__ c ..............Just test output........... write(6,1) + Name,Vmag,e_Vmag,o_Vmag,B_V,e_B_V,o_B_V,U_B,e_U_B,o_U_B,r,e_r, + o_r,g,e_g,o_g,v,e_v,o_v c .......End.of.Just test output........... end do close(1) C============================================================================= stop end