Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A1 into FORTRAN code for loading all data files into arrays.
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 (nr__) ! ADF-S identification number
real*8 RAdeg (nr__) ! (deg) ADF-S source right ascension (J2000.0)
real*8 DEdeg (nr__) ! (deg) ADF-S source declination (J2000.0)
real*8 z (nr__) ! Redshift of the counterpart, when available
character*1 r_z (nr__) ! [a-f] References for redshifts (1)
real*8 SFUV (nr__) ! (mJy) ?=- Flux density at GALEX FUV (0.23um) band
real*8 e_SFUV (nr__) ! (mJy) ?=- rms uncertainty on GALEX FUV (0.23um) band
real*4 SNUV (nr__) ! (mJy) ?=- Flux density at GALEX NUV (0.79um) band
real*8 e_SNUV (nr__) ! (mJy) ?=- rms uncertainty on GALEX (0.79um) NUV band
real*4 SDI (nr__) ! (mJy) ?=- Flux density at DENIS I (1.25um) band
real*4 e_SDI (nr__) ! (mJy) ?=- rms uncertainty on DENIS I (1.25um) band
real*4 S2J (nr__) ! (mJy) ?=- Flux density at 2MASS J (1.24um) band
real*8 e_S2J (nr__) ! (mJy) ?=- rms uncertainty on 2MASS J (1.24um) band
real*4 SDJ (nr__) ! (mJy) ?=- Flux density at DENIS J (1.65um) band
real*4 e_SDJ (nr__) ! (mJy) ?=- rms uncertainty on DENIS J (1.65um) band
real*4 S2H (nr__) ! (mJy) ?=- Flux density at 2MASS H (2.17um) band
real*8 e_S2H (nr__) ! (mJy) ?=- rms uncertainty on 2MASS H (2.17um) band
real*4 S2Ks (nr__) ! (mJy) ?=- Flux density at 2MASS Ks (2.16um) band
real*8 e_S2Ks (nr__) ! (mJy) ?=- rms uncertainty on 2MASS Ks (2.16um) band
real*4 SDKs (nr__) ! (mJy) ?=- Flux density at DENIS Ks (2.16um) band
real*4 e_SDKs (nr__) ! (mJy) ?=- rms uncertainty on DENIS Ks (2.16um) band
real*4 SW1 (nr__) ! (mJy) ?=- Flux density at WISE W1 (3.38um) band
real*8 e_SW1 (nr__) ! (mJy) ?=- rms uncertainty on WISE W1 (3.38um) band
real*4 SW2 (nr__) ! (mJy) ?=- Flux density at WISE W2 (4.62um) band
real*8 e_SW2 (nr__) ! (mJy) ?=- rms uncertainty on WISE W2 (4.62um) band
real*4 SW3 (nr__) ! (mJy) ?=- Flux density at WISE W3 (12.81um) band
real*4 e_SW3 (nr__) ! (mJy) ?=- rms uncertainty on WISE W3 (12.81um) band
real*4 SMIPS1 (nr__) ! (mJy) ?=- Flux density at Spitzer MIPS1 (23.84um) band
real*4 e_SMIPS1 (nr__) ! (mJy) ?=- rms uncertainty on Spitzer MIPS1 (23.84um)
* band
real*4 SN60 (nr__) ! (mJy) ?=- Flux density at AKARI N60 (66.69um) band
real*4 e_SN60 (nr__) ! (mJy) ?=- rms uncertainty on AKARI N60 (66.69um) band
real*4 SMIPS2 (nr__) ! (mJy) ?=- Flux density at Spitzer MIPS2 (72.55um) band
real*4 e_SMIPS2 (nr__) ! (mJy) ?=- rms uncertainty on Spitzer MIPS2 (72.55um)
* band
real*4 SWIDE_S (nr__) ! (mJy) ?=- Flux density at AKARI WIDE-S (89.14um) band
real*4 e_SWIDE_S (nr__) ! (mJy) ?=- rms uncertainty on AKARI WISE-S (89.14um)
* band
real*4 SWIDE_L (nr__) ! (mJy) ?=- Flux density at AKARI WIDE-L (150um) band
real*4 e_SWIDE_L (nr__) ! (mJy) ?=- rms uncertainty on AKARI WIDE-L (150um) band
real*4 SN160 (nr__) ! (mJy) ?=- Flux density at AKARI N160 (163.10um) band
real*4 e_SN160 (nr__) ! (mJy) ?=- rms uncertainty on AKARI N160
* (163.10um) band
real*4 S250 (nr__) ! (mJy) ?=- Flux density at Herschel SPIRE 250
* (251.50um) band
real*4 e_S250 (nr__) ! (mJy) ?=- rms uncertainty on Herschel SPIRE 250
* (251.50um) band
real*4 S350 (nr__) ! (mJy) ?=- Flux density at Herschel SPIRE 350
* (352.80um) band
real*4 e_S350 (nr__) ! (mJy) ?=- rms uncertainty on Herschel SPIRE 350
* (352.80um) band
real*4 S500 (nr__) ! (mJy) ?=- Flux density at Herschel SPIRE 500
* (510.60um) band
real*4 e_S500 (nr__) ! (mJy) ?=- rms uncertainty on Herschel SPIRE 500
* (510.60um) band
character*30 Name (nr__) ! 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(i__),RAdeg(i__),DEdeg(i__),z(i__),r_z(i__),SFUV(i__),
+ e_SFUV(i__),SNUV(i__),e_SNUV(i__),SDI(i__),e_SDI(i__),
+ S2J(i__),e_S2J(i__),SDJ(i__),e_SDJ(i__),S2H(i__),e_S2H(i__),
+ S2Ks(i__),e_S2Ks(i__),SDKs(i__),e_SDKs(i__),SW1(i__),
+ e_SW1(i__),SW2(i__),e_SW2(i__),SW3(i__),e_SW3(i__),
+ SMIPS1(i__),e_SMIPS1(i__),SN60(i__),e_SN60(i__),SMIPS2(i__),
+ e_SMIPS2(i__),SWIDE_S(i__),e_SWIDE_S(i__),SWIDE_L(i__),
+ e_SWIDE_L(i__),SN160(i__),e_SN160(i__),S250(i__),e_S250(i__),
+ S350(i__),e_S350(i__),S500(i__),e_S500(i__),Name(i__)
if (idig(ar__(35:41)).EQ.0) SFUV(i__) = rNULL__
if (idig(ar__(43:50)).EQ.0) e_SFUV(i__) = rNULL__
if (idig(ar__(52:57)).EQ.0) SNUV(i__) = rNULL__
if (idig(ar__(59:66)).EQ.0) e_SNUV(i__) = rNULL__
if (idig(ar__(68:72)).EQ.0) SDI(i__) = rNULL__
if (idig(ar__(74:79)).EQ.0) e_SDI(i__) = rNULL__
if (idig(ar__(81:85)).EQ.0) S2J(i__) = rNULL__
if (idig(ar__(87:93)).EQ.0) e_S2J(i__) = rNULL__
if (idig(ar__(95:99)).EQ.0) SDJ(i__) = rNULL__
if (idig(ar__(101:106)).EQ.0) e_SDJ(i__) = rNULL__
if (idig(ar__(108:112)).EQ.0) S2H(i__) = rNULL__
if (idig(ar__(114:120)).EQ.0) e_S2H(i__) = rNULL__
if (idig(ar__(122:126)).EQ.0) S2Ks(i__) = rNULL__
if (idig(ar__(128:134)).EQ.0) e_S2Ks(i__) = rNULL__
if (idig(ar__(136:139)).EQ.0) SDKs(i__) = rNULL__
if (idig(ar__(141:145)).EQ.0) e_SDKs(i__) = rNULL__
if (idig(ar__(147:151)).EQ.0) SW1(i__) = rNULL__
if (idig(ar__(153:159)).EQ.0) e_SW1(i__) = rNULL__
if (idig(ar__(161:165)).EQ.0) SW2(i__) = rNULL__
if (idig(ar__(167:173)).EQ.0) e_SW2(i__) = rNULL__
if (idig(ar__(175:179)).EQ.0) SW3(i__) = rNULL__
if (idig(ar__(181:186)).EQ.0) e_SW3(i__) = rNULL__
if (idig(ar__(188:192)).EQ.0) SMIPS1(i__) = rNULL__
if (idig(ar__(194:199)).EQ.0) e_SMIPS1(i__) = rNULL__
if (idig(ar__(201:206)).EQ.0) SN60(i__) = rNULL__
if (idig(ar__(208:211)).EQ.0) e_SN60(i__) = rNULL__
if (idig(ar__(213:217)).EQ.0) SMIPS2(i__) = rNULL__
if (idig(ar__(219:222)).EQ.0) e_SMIPS2(i__) = rNULL__
if (idig(ar__(224:229)).EQ.0) SWIDE_S(i__) = rNULL__
if (idig(ar__(231:235)).EQ.0) e_SWIDE_S(i__) = rNULL__
if (idig(ar__(237:241)).EQ.0) SWIDE_L(i__) = rNULL__
if (idig(ar__(243:246)).EQ.0) e_SWIDE_L(i__) = rNULL__
if (idig(ar__(248:253)).EQ.0) SN160(i__) = rNULL__
if (idig(ar__(255:259)).EQ.0) e_SN160(i__) = rNULL__
if (idig(ar__(261:265)).EQ.0) S250(i__) = rNULL__
if (idig(ar__(267:270)).EQ.0) e_S250(i__) = rNULL__
if (idig(ar__(272:276)).EQ.0) S350(i__) = rNULL__
if (idig(ar__(278:282)).EQ.0) e_S350(i__) = rNULL__
if (idig(ar__(284:288)).EQ.0) S500(i__) = rNULL__
if (idig(ar__(290:293)).EQ.0) e_S500(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ADFS(i__),RAdeg(i__),DEdeg(i__),z(i__),r_z(i__),SFUV(i__),
+ e_SFUV(i__),SNUV(i__),e_SNUV(i__),SDI(i__),e_SDI(i__),
+ S2J(i__),e_S2J(i__),SDJ(i__),e_SDJ(i__),S2H(i__),e_S2H(i__),
+ S2Ks(i__),e_S2Ks(i__),SDKs(i__),e_SDKs(i__),SW1(i__),
+ e_SW1(i__),SW2(i__),e_SW2(i__),SW3(i__),e_SW3(i__),
+ SMIPS1(i__),e_SMIPS1(i__),SN60(i__),e_SN60(i__),SMIPS2(i__),
+ e_SMIPS2(i__),SWIDE_S(i__),e_SWIDE_S(i__),SWIDE_L(i__),
+ e_SWIDE_L(i__),SN160(i__),e_SN160(i__),S250(i__),e_S250(i__),
+ S350(i__),e_S350(i__),S500(i__),e_S500(i__),Name(i__)
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