Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/100/583 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.5, on 2013-Jun-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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+AS/100/583 IR and Optical Photometry of galaxies (Boisson+ 1993)
*================================================================================
*Infrared and optical photometry of galaxies in four clusters and
*of a sample of early-type galaxies.
* Boisson C., Durret F., Balkowski C., Proust D.
* <Astron. Astrophys. Suppl. Ser. 100, 583 (1993)>
* =1993A&AS..100..583B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Virgo
integer*4 nr__
parameter (nr__=74) ! Number of records
character*60 ar__ ! Full-size record
character*16 NAME ! Galaxy name
integer*4 TYPE ! ? Galaxy type
character*1 REMARK ! '*' flag
character*8 DATE ! Observation date
real*4 APER ! (arcsec) Aperture in arcsec
real*8 AD ! ? log(A/D0)
real*4 J ! (mag) ? J magnitude (1.24mum)
character*1 u_J ! Uncertainty flag (:) on J
real*4 H ! (mag) H magnitude (1.63mum)
character*1 u_H ! Uncertainty flag (:) on H
real*4 K ! (mag) ? K magnitude (2.19mum)
character*1 u_K ! Uncertainty flag (:) on K
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! ABCG 539
integer*4 nr__1
parameter (nr__1=25) ! Number of records
character*60 ar__1 ! Full-size record
character*16 NAME_1 ! Galaxy name
integer*4 TYPE_1 ! ? Galaxy type
character*1 REMARK_1 ! '*' flag
character*8 DATE_1 ! Observation date
real*4 APER_1 ! (arcsec) Aperture in arcsec
real*8 AD_1 ! ? log(A/D0)
real*4 J_1 ! (mag) ? J magnitude (1.24mum)
character*1 u_J_1 ! Uncertainty flag (:) on J
real*4 H_1 ! (mag) H magnitude (1.63mum)
character*1 u_H_1 ! Uncertainty flag (:) on H
real*4 K_1 ! (mag) ? K magnitude (2.19mum)
character*1 u_K_1 ! Uncertainty flag (:) on K
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Hydra
integer*4 nr__2
parameter (nr__2=51) ! Number of records
character*60 ar__2 ! Full-size record
character*16 NAME_2 ! Galaxy name
integer*4 TYPE_2 ! ? Galaxy type
character*1 REMARK_2 ! '*' flag
character*8 DATE_2 ! Observation date
real*4 APER_2 ! (arcsec) Aperture in arcsec
real*8 AD_2 ! ? log(A/D0)
real*4 J_2 ! (mag) ? J magnitude (1.24mum)
character*1 u_J_2 ! Uncertainty flag (:) on J
real*4 H_2 ! (mag) H magnitude (1.63mum)
character*1 u_H_2 ! Uncertainty flag (:) on H
real*4 K_2 ! (mag) ? K magnitude (2.19mum)
character*1 u_K_2 ! Uncertainty flag (:) on K
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5' ! Hydra
integer*4 nr__3
parameter (nr__3=169) ! Number of records
character*66 ar__3 ! Full-size record
character*16 NAME_3 ! Galaxy name
integer*4 TYPE_3 ! ? Galaxy type
character*1 REMARK_3 ! '*' flag
character*8 DATE_3 ! Observation date
real*4 APER_3 ! (arcsec) Aperture in arcsec
real*8 AD_3 ! ? log(A/D0)
real*4 B ! (mag) ? B magnitude
character*1 u_B ! Uncertainty flag (:) on B
real*4 V ! (mag) V magnitude
character*1 u_V ! Uncertainty flag (:) on V
real*4 R ! (mag) ? R magnitude
character*1 u_R ! Uncertainty flag (:) on R
real*4 I ! (mag) ? I magnitude
character*1 u_I ! Uncertainty flag (:) on I
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6' ! South. extension of Per supercluster
integer*4 nr__4
parameter (nr__4=12) ! Number of records
character*60 ar__4 ! Full-size record
character*16 NAME_4 ! Galaxy name
integer*4 TYPE_4 ! ? Galaxy type
character*1 REMARK_4 ! '*' flag
character*8 DATE_4 ! Observation date
real*4 APER_4 ! (arcsec) Aperture in arcsec
real*8 AD_4 ! ? log(A/D0)
real*4 J_3 ! (mag) ? J magnitude (1.24mum)
character*1 u_J_3 ! Uncertainty flag (:) on J
real*4 H_3 ! (mag) H magnitude (1.63mum)
character*1 u_H_3 ! Uncertainty flag (:) on H
real*4 K_3 ! (mag) ? K magnitude (2.19mum)
character*1 u_K_3 ! Uncertainty flag (:) on K
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7' ! South. extension of Per supercluster
integer*4 nr__5
parameter (nr__5=109) ! Number of records
character*66 ar__5 ! Full-size record
character*16 NAME_5 ! Galaxy name
integer*4 TYPE_5 ! ? Galaxy type
character*1 REMARK_5 ! '*' flag
character*8 DATE_5 ! Observation date
real*4 APER_5 ! (arcsec) Aperture in arcsec
real*8 AD_5 ! ? log(A/D0)
real*4 B_1 ! (mag) ? B magnitude
character*1 u_B_1 ! Uncertainty flag (:) on B
real*4 V_1 ! (mag) V magnitude
character*1 u_V_1 ! Uncertainty flag (:) on V
real*4 R_1 ! (mag) ? R magnitude
character*1 u_R_1 ! Uncertainty flag (:) on R
real*4 I_1 ! (mag) ? I magnitude
character*1 u_I_1 ! Uncertainty flag (:) on I
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8' ! Early-type galaxies
integer*4 nr__6
parameter (nr__6=19) ! Number of records
character*66 ar__6 ! Full-size record
character*16 NAME_6 ! Galaxy name
character*4 TYPE_6 ! ? Galaxy morphological type
character*1 REMARK_6 ! '*' flag
character*8 DATE_6 ! Observation date
real*4 APER_6 ! (arcsec) Aperture in arcsec
real*8 AD_6 ! ? log(A/D0)
real*4 J_4 ! (mag) J magnitude (1.24mum)
character*1 u_J_4 ! Uncertainty flag (:) on J
real*4 H_4 ! (mag) H magnitude (1.63mum)
character*1 u_H_4 ! Uncertainty flag (:) on H
real*4 K_4 ! (mag) K magnitude (2.19mum)
character*1 u_K_4 ! Uncertainty flag (:) on K
real*4 Lp ! (mag) ? L' magnitude (3.78mum)
character*1 u_Lp ! Uncertainty flag (:) on L'
C=============================================================================
C Loading file 'table2' ! Virgo
C Format for file interpretation
1 format(A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table2', status='old')
write(6,*) '....Loading file: table2'
do i__=1,74
read(1,'(A60)')ar__
read(ar__,1)NAME,TYPE,REMARK,DATE,APER,AD,J,u_J,H,u_H,K,u_K
if(ar__(17:20) .EQ. '') TYPE = iNULL__
if(ar__(35:41) .EQ. '') AD = rNULL__
if(ar__(43:47) .EQ. '') J = rNULL__
if(ar__(55:59) .EQ. '') K = rNULL__
c ..............Just test output...........
write(6,1)NAME,TYPE,REMARK,DATE,APER,AD,J,u_J,H,u_H,K,u_K
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! ABCG 539
C Format for file interpretation
2 format(A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table3', status='old')
write(6,*) '....Loading file: table3'
do i__=1,25
read(1,'(A60)')ar__1
read(ar__1,2)
+ NAME_1,TYPE_1,REMARK_1,DATE_1,APER_1,AD_1,J_1,u_J_1,H_1,u_H_1,
+ K_1,u_K_1
if(ar__1(17:20) .EQ. '') TYPE_1 = iNULL__
if(ar__1(35:41) .EQ. '') AD_1 = rNULL__
if(ar__1(43:47) .EQ. '') J_1 = rNULL__
if(ar__1(55:59) .EQ. '') K_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ NAME_1,TYPE_1,REMARK_1,DATE_1,APER_1,AD_1,J_1,u_J_1,H_1,u_H_1,
+ K_1,u_K_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Hydra
C Format for file interpretation
3 format(A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table4', status='old')
write(6,*) '....Loading file: table4'
do i__=1,51
read(1,'(A60)')ar__2
read(ar__2,3)
+ NAME_2,TYPE_2,REMARK_2,DATE_2,APER_2,AD_2,J_2,u_J_2,H_2,u_H_2,
+ K_2,u_K_2
if(ar__2(17:20) .EQ. '') TYPE_2 = iNULL__
if(ar__2(35:41) .EQ. '') AD_2 = rNULL__
if(ar__2(43:47) .EQ. '') J_2 = rNULL__
if(ar__2(55:59) .EQ. '') K_2 = rNULL__
c ..............Just test output...........
write(6,3)
+ NAME_2,TYPE_2,REMARK_2,DATE_2,APER_2,AD_2,J_2,u_J_2,H_2,u_H_2,
+ K_2,u_K_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5' ! Hydra
C Format for file interpretation
4 format(
+ A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table5', status='old')
write(6,*) '....Loading file: table5'
do i__=1,169
read(1,'(A66)')ar__3
read(ar__3,4)
+ NAME_3,TYPE_3,REMARK_3,DATE_3,APER_3,AD_3,B,u_B,V,u_V,R,u_R,I,
+ u_I
if(ar__3(17:20) .EQ. '') TYPE_3 = iNULL__
if(ar__3(35:41) .EQ. '') AD_3 = rNULL__
if(ar__3(43:47) .EQ. '') B = rNULL__
if(ar__3(55:59) .EQ. '') R = rNULL__
if(ar__3(61:65) .EQ. '') I = rNULL__
c ..............Just test output...........
write(6,4)
+ NAME_3,TYPE_3,REMARK_3,DATE_3,APER_3,AD_3,B,u_B,V,u_V,R,u_R,I,
+ u_I
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6' ! South. extension of Per supercluster
C Format for file interpretation
5 format(A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table6', status='old')
write(6,*) '....Loading file: table6'
do i__=1,12
read(1,'(A60)')ar__4
read(ar__4,5)
+ NAME_4,TYPE_4,REMARK_4,DATE_4,APER_4,AD_4,J_3,u_J_3,H_3,u_H_3,
+ K_3,u_K_3
if(ar__4(17:20) .EQ. '') TYPE_4 = iNULL__
if(ar__4(35:41) .EQ. '') AD_4 = rNULL__
if(ar__4(43:47) .EQ. '') J_3 = rNULL__
if(ar__4(55:59) .EQ. '') K_3 = rNULL__
c ..............Just test output...........
write(6,5)
+ NAME_4,TYPE_4,REMARK_4,DATE_4,APER_4,AD_4,J_3,u_J_3,H_3,u_H_3,
+ K_3,u_K_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7' ! South. extension of Per supercluster
C Format for file interpretation
6 format(
+ A16,I4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table7', status='old')
write(6,*) '....Loading file: table7'
do i__=1,109
read(1,'(A66)')ar__5
read(ar__5,6)
+ NAME_5,TYPE_5,REMARK_5,DATE_5,APER_5,AD_5,B_1,u_B_1,V_1,u_V_1,
+ R_1,u_R_1,I_1,u_I_1
if(ar__5(17:20) .EQ. '') TYPE_5 = iNULL__
if(ar__5(35:41) .EQ. '') AD_5 = rNULL__
if(ar__5(43:47) .EQ. '') B_1 = rNULL__
if(ar__5(55:59) .EQ. '') R_1 = rNULL__
if(ar__5(61:65) .EQ. '') I_1 = rNULL__
c ..............Just test output...........
write(6,6)
+ NAME_5,TYPE_5,REMARK_5,DATE_5,APER_5,AD_5,B_1,u_B_1,V_1,u_V_1,
+ R_1,u_R_1,I_1,u_I_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8' ! Early-type galaxies
C Format for file interpretation
7 format(
+ A16,A4,A1,A8,F5.1,F7.3,1X,F5.2,A1,F5.2,A1,F5.2,A1,F5.2,A1)
C Effective file loading
open(unit=1,file='table8', status='old')
write(6,*) '....Loading file: table8'
do i__=1,19
read(1,'(A66)')ar__6
read(ar__6,7)
+ NAME_6,TYPE_6,REMARK_6,DATE_6,APER_6,AD_6,J_4,u_J_4,H_4,u_H_4,
+ K_4,u_K_4,Lp,u_Lp
if(ar__6(35:41) .EQ. '') AD_6 = rNULL__
if(ar__6(61:65) .EQ. '') Lp = rNULL__
c ..............Just test output...........
write(6,7)
+ NAME_6,TYPE_6,REMARK_6,DATE_6,APER_6,AD_6,J_4,u_J_4,H_4,u_H_4,
+ K_4,u_K_4,Lp,u_Lp
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end