Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A1 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 2026-May-15
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/A+A/598/A1 [U]LIRGs - on the trail of AGN's types (Malek+, 2017)
*================================================================================
*[Ultra] luminous infrared galaxies selected at 90{mu}m in the AKARI deep field:
*a study of AGN types contributing to their infrared emission.
* Malek K., Bankowicz M., Pollo A., Takeuchi T.T., Buat V., Burgarella D.,
* Goto T., Malkan M.
* <Astron. Astrophys. 598, A1 (2017)>
* =2017A&A...598A...1M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Catalog of 39 [U]LIRGs from AKARI ADF-S survey,
coordinates, redshifts, photometric measurements
integer*4 nr__
parameter (nr__=39) ! Number of records
character*324 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 ADFS ! ADF-S identification number
real*8 RAdeg ! (deg) ADF-S source right ascension (J2000.0)
real*8 DEdeg ! (deg) ADF-S source declination (J2000.0)
real*8 z ! Redshift of the counterpart, when available
character*1 r_z ! [a-f] References for redshifts (1)
real*8 SFUV ! (mJy) ?=- Flux density at GALEX FUV (0.23um) band
real*8 e_SFUV ! (mJy) ?=- rms uncertainty on GALEX FUV (0.23um) band
real*4 SNUV ! (mJy) ?=- Flux density at GALEX NUV (0.79um) band
real*8 e_SNUV ! (mJy) ?=- rms uncertainty on GALEX (0.79um) NUV band
real*4 SDI ! (mJy) ?=- Flux density at DENIS I (1.25um) band
real*4 e_SDI ! (mJy) ?=- rms uncertainty on DENIS I (1.25um) band
real*4 S2J ! (mJy) ?=- Flux density at 2MASS J (1.24um) band
real*8 e_S2J ! (mJy) ?=- rms uncertainty on 2MASS J (1.24um) band
real*4 SDJ ! (mJy) ?=- Flux density at DENIS J (1.65um) band
real*4 e_SDJ ! (mJy) ?=- rms uncertainty on DENIS J (1.65um) band
real*4 S2H ! (mJy) ?=- Flux density at 2MASS H (2.17um) band
real*8 e_S2H ! (mJy) ?=- rms uncertainty on 2MASS H (2.17um) band
real*4 S2Ks ! (mJy) ?=- Flux density at 2MASS Ks (2.16um) band
real*8 e_S2Ks ! (mJy) ?=- rms uncertainty on 2MASS Ks (2.16um) band
real*4 SDKs ! (mJy) ?=- Flux density at DENIS Ks (2.16um) band
real*4 e_SDKs ! (mJy) ?=- rms uncertainty on DENIS Ks (2.16um) band
real*4 SW1 ! (mJy) ?=- Flux density at WISE W1 (3.38um) band
real*8 e_SW1 ! (mJy) ?=- rms uncertainty on WISE W1 (3.38um) band
real*4 SW2 ! (mJy) ?=- Flux density at WISE W2 (4.62um) band
real*8 e_SW2 ! (mJy) ?=- rms uncertainty on WISE W2 (4.62um) band
real*4 SW3 ! (mJy) ?=- Flux density at WISE W3 (12.81um) band
real*4 e_SW3 ! (mJy) ?=- rms uncertainty on WISE W3 (12.81um) band
real*4 SMIPS1 ! (mJy) ?=- Flux density at Spitzer MIPS1 (23.84um) band
real*4 e_SMIPS1 ! (mJy) ?=- rms uncertainty on Spitzer MIPS1 (23.84um)
* band
real*4 SN60 ! (mJy) ?=- Flux density at AKARI N60 (66.69um) band
real*4 e_SN60 ! (mJy) ?=- rms uncertainty on AKARI N60 (66.69um) band
real*4 SMIPS2 ! (mJy) ?=- Flux density at Spitzer MIPS2 (72.55um) band
real*4 e_SMIPS2 ! (mJy) ?=- rms uncertainty on Spitzer MIPS2 (72.55um)
* band
real*4 SWIDE_S ! (mJy) ?=- Flux density at AKARI WIDE-S (89.14um) band
real*4 e_SWIDE_S ! (mJy) ?=- rms uncertainty on AKARI WISE-S (89.14um)
* band
real*4 SWIDE_L ! (mJy) ?=- Flux density at AKARI WIDE-L (150um) band
real*4 e_SWIDE_L ! (mJy) ?=- rms uncertainty on AKARI WIDE-L (150um) band
real*4 SN160 ! (mJy) ?=- Flux density at AKARI N160 (163.10um) band
real*4 e_SN160 ! (mJy) ?=- rms uncertainty on AKARI N160
* (163.10um) band
real*4 S250 ! (mJy) ?=- Flux density at Herschel SPIRE 250
* (251.50um) band
real*4 e_S250 ! (mJy) ?=- rms uncertainty on Herschel SPIRE 250
* (251.50um) band
real*4 S350 ! (mJy) ?=- Flux density at Herschel SPIRE 350
* (352.80um) band
real*4 e_S350 ! (mJy) ?=- rms uncertainty on Herschel SPIRE 350
* (352.80um) band
real*4 S500 ! (mJy) ?=- Flux density at Herschel SPIRE 500
* (510.60um) band
real*4 e_S500 ! (mJy) ?=- rms uncertainty on Herschel SPIRE 500
* (510.60um) band
character*30 Name ! Name of the nearest optical counterpart
*Note (1): References as follows:
* a = Fisher K.B., Huchra J.P., Strauss M.A. et al., 1995ApJS..100...69F,
* Cat. VII/185
* b = Malek K., Pollo A., Takeuchi T.T. et al. 2014A&A...562A..15M,
* Cat. J/A+A/562/A15
* c = Jones D.H, Read M.A., Saunders W. et al. 2009MNRAS.399..683J,
* Cat. VII/259
* d = Sedgwick C., Serjeant S., Pearson C. et al. 2011MNRAS.416.1862S
* e = Thomas H.-C., Beuermann K., Reinsch K. et al., 1998A&A...335..467T,
* Cat. J/A+A/335/467
* f = Wisotzki L., Christlieb N., Bade N. et al., 2000A&A...358...77W,
* Cat. J/A+A/358/77
C=============================================================================
C Loading file 'tablea1.dat' ! Catalog of 39 [U]LIRGs from AKARI ADF-S survey,
* coordinates, redshifts, photometric measurements
C Format for file interpretation
1 format(
+ I3,1X,F8.5,1X,F9.5,1X,F8.6,1X,A1,1X,F7.5,1X,F8.6,1X,F6.4,1X,
+ F8.6,1X,F5.3,1X,F6.4,1X,F5.3,1X,F7.4,1X,F5.3,1X,F6.4,1X,F5.3,
+ 1X,F7.4,1X,F5.3,1X,F7.4,1X,F4.2,1X,F5.3,1X,F5.3,1X,F7.5,1X,
+ F5.3,1X,F7.5,1X,F5.2,1X,F6.4,1X,F5.2,1X,F6.4,1X,F6.1,1X,F4.1,
+ 1X,F5.1,1X,F4.2,1X,F6.1,1X,F5.2,1X,F5.1,1X,F4.1,1X,F6.1,1X,
+ F5.1,1X,F5.1,1X,F4.2,1X,F5.1,1X,F5.2,1X,F5.2,1X,F4.2,1X,A30)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,39
read(1,'(A324)')ar__
read(ar__,1)
+ ADFS,RAdeg,DEdeg,z,r_z,SFUV,e_SFUV,SNUV,e_SNUV,SDI,e_SDI,S2J,
+ e_S2J,SDJ,e_SDJ,S2H,e_S2H,S2Ks,e_S2Ks,SDKs,e_SDKs,SW1,e_SW1,
+ SW2,e_SW2,SW3,e_SW3,SMIPS1,e_SMIPS1,SN60,e_SN60,SMIPS2,
+ e_SMIPS2,SWIDE_S,e_SWIDE_S,SWIDE_L,e_SWIDE_L,SN160,e_SN160,
+ S250,e_S250,S350,e_S350,S500,e_S500,Name
if (idig(ar__(35:41)).EQ.0) SFUV = rNULL__
if (idig(ar__(43:50)).EQ.0) e_SFUV = rNULL__
if (idig(ar__(52:57)).EQ.0) SNUV = rNULL__
if (idig(ar__(59:66)).EQ.0) e_SNUV = rNULL__
if (idig(ar__(68:72)).EQ.0) SDI = rNULL__
if (idig(ar__(74:79)).EQ.0) e_SDI = rNULL__
if (idig(ar__(81:85)).EQ.0) S2J = rNULL__
if (idig(ar__(87:93)).EQ.0) e_S2J = rNULL__
if (idig(ar__(95:99)).EQ.0) SDJ = rNULL__
if (idig(ar__(101:106)).EQ.0) e_SDJ = rNULL__
if (idig(ar__(108:112)).EQ.0) S2H = rNULL__
if (idig(ar__(114:120)).EQ.0) e_S2H = rNULL__
if (idig(ar__(122:126)).EQ.0) S2Ks = rNULL__
if (idig(ar__(128:134)).EQ.0) e_S2Ks = rNULL__
if (idig(ar__(136:139)).EQ.0) SDKs = rNULL__
if (idig(ar__(141:145)).EQ.0) e_SDKs = rNULL__
if (idig(ar__(147:151)).EQ.0) SW1 = rNULL__
if (idig(ar__(153:159)).EQ.0) e_SW1 = rNULL__
if (idig(ar__(161:165)).EQ.0) SW2 = rNULL__
if (idig(ar__(167:173)).EQ.0) e_SW2 = rNULL__
if (idig(ar__(175:179)).EQ.0) SW3 = rNULL__
if (idig(ar__(181:186)).EQ.0) e_SW3 = rNULL__
if (idig(ar__(188:192)).EQ.0) SMIPS1 = rNULL__
if (idig(ar__(194:199)).EQ.0) e_SMIPS1 = rNULL__
if (idig(ar__(201:206)).EQ.0) SN60 = rNULL__
if (idig(ar__(208:211)).EQ.0) e_SN60 = rNULL__
if (idig(ar__(213:217)).EQ.0) SMIPS2 = rNULL__
if (idig(ar__(219:222)).EQ.0) e_SMIPS2 = rNULL__
if (idig(ar__(224:229)).EQ.0) SWIDE_S = rNULL__
if (idig(ar__(231:235)).EQ.0) e_SWIDE_S = rNULL__
if (idig(ar__(237:241)).EQ.0) SWIDE_L = rNULL__
if (idig(ar__(243:246)).EQ.0) e_SWIDE_L = rNULL__
if (idig(ar__(248:253)).EQ.0) SN160 = rNULL__
if (idig(ar__(255:259)).EQ.0) e_SN160 = rNULL__
if (idig(ar__(261:265)).EQ.0) S250 = rNULL__
if (idig(ar__(267:270)).EQ.0) e_S250 = rNULL__
if (idig(ar__(272:276)).EQ.0) S350 = rNULL__
if (idig(ar__(278:282)).EQ.0) e_S350 = rNULL__
if (idig(ar__(284:288)).EQ.0) S500 = rNULL__
if (idig(ar__(290:293)).EQ.0) e_S500 = rNULL__
c ..............Just test output...........
write(6,1)
+ ADFS,RAdeg,DEdeg,z,r_z,SFUV,e_SFUV,SNUV,e_SNUV,SDI,e_SDI,S2J,
+ e_S2J,SDJ,e_SDJ,S2H,e_S2H,S2Ks,e_S2Ks,SDKs,e_SDKs,SW1,e_SW1,
+ SW2,e_SW2,SW3,e_SW3,SMIPS1,e_SMIPS1,SN60,e_SN60,SMIPS2,
+ e_SMIPS2,SWIDE_S,e_SWIDE_S,SWIDE_L,e_SWIDE_L,SN160,e_SN160,
+ S250,e_S250,S350,e_S350,S500,e_S500,Name
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end