Conversion of standardized ReadMe file for
file /./ftp/cats/VI/112 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-16
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. VI/112 Optical Imaging of 57 spiral galaxies (Knapen+ 2004)
*================================================================================
*Structure and star formation in disc galaxies.
*I. Sample selection and near-infrared imaging.
*II. Optical Imaging of 57 spiral galaxies.
* Knapen J.H., de Jong R.S., Stedman S., Bramich D.M., Folkes S.L.,
* Bradley T.R.
* <Mon. Not. R. Astron. Soc. 344, 527 (2003)>
* <Astron. Astrophys. 426, 1135 (2004) >
* =2003MNRAS.344..527K
* =2004A&A...426.1135K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table.dat' ! Global parameters of the galaxies
integer*4 nr__
parameter (nr__=57) ! Number of records
character*131 ar__ ! Full-size record
character*5 NGC ! NGC galaxy identification number
character*6 MType ! Morphological type (1)
real*4 D25 ! (arcmin) Apparent major isophotal diameter (1)
integer*4 ArmClass ! Spiral arm class (2)
integer*4 i ! (deg) Inclination (1)
integer*4 PA ! (deg) ? Position angle of disk major axis (1)
real*4 BMAG ! (mag) Total absolute B-magnitude (1)
integer*4 RV ! (km/s) Mean heliocentric radial velocity (1)
real*4 Dist ! (Mpc) Distance (3)
integer*4 scale ! (pc/arcsec) Image scale
integer*4 Bexp ! (min) B-band exposure time
integer*4 Rexp ! (min) ? R-band exposure time
integer*4 Iexp ! (min) ? I-band exposure time
integer*4 Ksexp ! (min) ? Ks-band exposure time
integer*4 Haexp ! (min) H-alpha exposure time
real*4 BSeeing ! (arcsec) B-band seeing
real*4 RSeeing ! (arcsec) ? R-band seeing
real*4 ISeeing ! (arcsec) ? I-band seeing
real*4 KsSeeing ! (arcsec) ? Ks-band seeing
real*4 HaSeeing ! (arcsec) H-alpha seeing
character*7 HaFilt ! Filter used for H-alpha imaging
character*15 HacsFilt ! Filter used for continuum imaging
real*4 HaScale ! ? Scale factor used to subtract the
* continuum from H-alpha.
real*4 KsSize ! (arcmin) Size of Ks-band image
character*9 Size ! (arcmin) Size of optical images
*Note (1): From de Vaucouleurs et al., RC3 (1991, Cat. <VII/155>)
*Note (2): From Elmegreen & Elmegreen (1987ApJ...314....3E)
*Note (3): From Tully, NGC (1988, Cat. <VII/118>)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'images.dat' ! Image filenames
integer*4 nr__1
parameter (nr__1=57) ! Number of records
character*198 ar__1 ! Full-size record
character*5 NGC_1 ! NGC galaxy identification number
character*23 B ! B image
character*23 Ha ! H{alpha} image
character*23 HaCont ! H{alpha} image for the 6470/115 continuum filter
character*23 Hacs ! H{alpha} image, continuum subtracted
character*23 I_1 ! I-band image
character*23 K ! K-band image
character*23 R ! R-band image
character*23 V ! V-band image
C=============================================================================
C Loading file 'table.dat' ! Global parameters of the galaxies
C Format for file interpretation
1 format(
+ A5,1X,A6,1X,F4.1,1X,I2,1X,I2,1X,I3,1X,F6.2,1X,I4,1X,F4.1,1X,
+ I3,1X,I2,1X,I2,1X,I2,1X,I2,1X,I3,1X,F3.1,1X,F3.1,1X,F3.1,1X,
+ F4.2,1X,F3.1,1X,A7,1X,A15,1X,F5.3,1X,F4.1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table.dat')
write(6,*) '....Loading file: table.dat'
do i__=1,57
read(1,'(A131)')ar__
read(ar__,1)
+ NGC,MType,D25,ArmClass,i,PA,BMAG,RV,Dist,scale,Bexp,Rexp,Iexp,
+ Ksexp,Haexp,BSeeing,RSeeing,ISeeing,KsSeeing,HaSeeing,HaFilt,
+ HacsFilt,HaScale,KsSize,Size
if(ar__(25:27) .EQ. '') PA = iNULL__
if(ar__(53:54) .EQ. '') Rexp = iNULL__
if(ar__(56:57) .EQ. '') Iexp = iNULL__
if(ar__(59:60) .EQ. '') Ksexp = iNULL__
if(ar__(70:72) .EQ. '') RSeeing = rNULL__
if(ar__(74:76) .EQ. '') ISeeing = rNULL__
if(ar__(78:81) .EQ. '') KsSeeing = rNULL__
if(ar__(111:115) .EQ. '') HaScale = rNULL__
c ..............Just test output...........
write(6,1)
+ NGC,MType,D25,ArmClass,i,PA,BMAG,RV,Dist,scale,Bexp,Rexp,Iexp,
+ Ksexp,Haexp,BSeeing,RSeeing,ISeeing,KsSeeing,HaSeeing,HaFilt,
+ HacsFilt,HaScale,KsSize,Size
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'images.dat' ! Image filenames
C Format for file interpretation
2 format(
+ A5,2X,A23,1X,A23,1X,A23,1X,A23,1X,A23,1X,A23,1X,A23,1X,A23)
C Effective file loading
open(unit=1,status='old',file=
+'images.dat')
write(6,*) '....Loading file: images.dat'
do i__=1,57
read(1,'(A198)')ar__1
read(ar__1,2)NGC_1,B,Ha,HaCont,Hacs,I_1,K,R,V
c ..............Just test output...........
write(6,2)NGC_1,B,Ha,HaCont,Hacs,I_1,K,R,V
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end