Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/117/2757 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-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/AJ/117/2757 Surface photometry of NGC 5907 (Zheng+, 1999)
*================================================================================
*Deep intermediate-band surface photometry of NGC 5907
* Zheng Z., Shang Z., Su H., Burstein D., Chen J., Deng Z., Byun Y.-I.,
* Chen R., Chen W.-P., Deng L., Fan X., Fang Li-Z., Hester J.J., Jiang Z.,
* Li Y., Lin W., Sun W.-H., Tsay W.-S., Windhorst R.A., Wu H., Xia X.,
* Xu W., Xue S., Yan H., Zheng Z., Zhou X., Zhu J., Zou Z., Lu P.
* <Astron. J. 117, 2757 (1999)>
* =1999AJ....117.2757Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Perpendicular surface brightness profiles of
NGC 5907 in the 6660 and 8020 {AA} images
integer*4 nr__
parameter (nr__=485) ! Number of records
character*51 ar__ ! Full-size record
character*2 SlitPos ! Slit position shown in Figures 6a,b
real*4 SDist ! (kpc) Slit distance from NGC 5907 center (1)
real*8 AngD ! (arcsec) Angular distance from slit center
* (+ = northeast, - = southwest)
character*1 f_AngD ! [ab] Flag on AngD (2)
real*4 Dist ! (kpc) Galactic plane distance (1)
real*4 SB6600 ! (mag/arcsec2) ? Surface brightness at 6600 {AA}
real*4 e_SB6600 ! (mag/arcsec2) ? Uncertainty in SB6600
real*4 SB8020 ! (mag/arcsec2) ? Surface brightness at 8020 {AA}
real*4 e_SB8020 ! (mag/arcsec2) ? Uncertainty in SB8020
*Note (1): Assuming distance of 11 Mpc and H_o_ = 65 km/s/Mpc
*Note (2):
* a = Data affected by foreground star contamination and a possible
* line-of-sight warp
* b = Data affected by the ring
C=============================================================================
C Loading file 'table5.dat' ! Perpendicular surface brightness profiles of
* NGC 5907 in the 6660 and 8020 {AA} images
C Format for file interpretation
1 format(
+ A2,1X,F5.1,4X,F7.2,1X,A1,2X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,485
read(1,'(A51)')ar__
read(ar__,1)
+ SlitPos,SDist,AngD,f_AngD,Dist,SB6600,e_SB6600,SB8020,e_SB8020
if(ar__(31:35) .EQ. '') SB6600 = rNULL__
if(ar__(37:40) .EQ. '') e_SB6600 = rNULL__
if(ar__(42:46) .EQ. '') SB8020 = rNULL__
if(ar__(48:51) .EQ. '') e_SB8020 = rNULL__
c ..............Just test output...........
write(6,1)
+ SlitPos,SDist,AngD,f_AngD,Dist,SB6600,e_SB6600,SB8020,e_SB8020
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end