Conversion of standardized ReadMe file for
catalog 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 2024-Apr-24
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. II/298 AKARI/FIS All-Sky Survey Point Source Catalogues (ISAS/JAXA, 2010)
*================================================================================
*AKARI/FIS All-Sky Survey Bright Source Catalogue Version 1.0
* Yamamura I., Makiuti S., Ikeda N., Fukuda Y., Oyabu S., Koga T., White G.J.
* <ISAS/JAXA (2010)>
* =2010yCat.2298....0Y
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fis.dat' ! AKARI/FIS All-Sky Survey Bright Source Catalogue
(Version 1.0)
integer*4 nr__
parameter (nr__=427071) ! Number of records
character*231 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 objID (nr__) ! [3000001/3427071] Object ID
character*14 objName (nr__) ! AKARI source name (HHMMSSs+DDMMSS) (2)
real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*4 errMaj (nr__) ! (arcsec) [6.00] Major axis of position error ellipse
real*4 errMin (nr__) ! (arcsec) [6.00] Minor axis of position error ellipse
real*4 errPA (nr__) ! (deg) [0.0] position angle of error ellipse
real*4 S65 (nr__) ! (Jy) ?=-999.9 Flux density in N60 (1)
real*4 S90 (nr__) ! (Jy) ?=-999.9 Flux density in WIDE-S (1)
real*4 S140 (nr__) ! (Jy) ?=-999.9 Flux density in WIDE-L (1)
real*4 S160 (nr__) ! (Jy) ?=-999.9 Flux density in N160 (1)
real*4 e_S65 (nr__) ! (Jy) ?=-99.9 uncertainty in N60
real*4 e_S90 (nr__) ! (Jy) ?=-99.9 uncertainty in WIDE-S
real*4 e_S140 (nr__) ! (Jy) ?=-99.9 uncertainty in WIDE-L
real*4 e_S160 (nr__) ! (Jy) ?=-99.9 uncertainty in N160
integer*4 q_S65 (nr__) ! [0,3] quality flag for N60 (3)
integer*4 q_S90 (nr__) ! [0,3] quality flag for WIDE-S (3)
integer*4 q_S140 (nr__) ! [0,3] quality flag for WIDE-L (3)
integer*4 q_S160 (nr__) ! [0,3] quality flag for N160 (3)
character*1 f_S65 (nr__) ! [0-9A-F] Bit flags for N60 (4)
character*1 f_S90 (nr__) ! [0-9A-F] Bit flags for WIDE-S (4)
character*1 f_S140 (nr__) ! [0-9A-F] Bit flags for WIDE-L (4)
character*1 f_S160 (nr__) ! [0-9A-F] Bit flags for N160 (4)
integer*4 Ns65 (nr__) ! Number of scans with source detection in N60
integer*4 Ns90 (nr__) ! Number of scans with source detection in WIDE-S
integer*4 Ns140 (nr__) ! Number of scans with source detection in WIDE-L
integer*4 Ns160 (nr__) ! Number of scans with source detection in N160
integer*4 Np65 (nr__) ! Number of possible detections in N60
integer*4 Np90 (nr__) ! Number of possible detections in WIDE-S
integer*4 Np140 (nr__) ! Number of possible detections in WIDE-L
integer*4 Np160 (nr__) ! Number of possible detections in N160
integer*4 M65 (nr__) ! [0,1]?=-1 month confirmation flag in N60 (5)
integer*4 M90 (nr__) ! [0,1]?=-1 month confirmation flag in WIDE-S (5)
integer*4 M140 (nr__) ! [0,1]?=-1 month confirmation flag in WIDE-L (5)
integer*4 M160 (nr__) ! [0,1]?=-1 month confirmation flag in N160 (5)
integer*4 Ndens (nr__) ! Number of sources within 5arcmin of source
*Note (1): the filter characteristics are:
* -----------------------------------------------------
* Filter: N60 WIDE-S WIDE-L N160
* -----------------------------------------------------
* Center(um): 65 90 140 160
* Range(um): 50-80 60-110 110-180 140-180
* Pixel("): 26.8 26.8 44.2 44.2
* -----------------------------------------------------
*Note (2):
* The sources should be referred in the literatures by their full name
* (AKARI-FIS-V1) followed by the letter 'J' and the objName, e.g.
* AKARI-FIS-V1 J0123498-025805
*Note (3): Four-level flux quality indicator:
* 3 = high quality (source confirmed and flux is reliable)
* 2 = source is confirmed but the flux is not reliable (see the flags)
* 1 = the source is not confirmed
* 0 = not observed
*Note (4): Bit flags of data quality in hexadecimal:
* 1 = CDS mode used (Correlated Double Sampling used to observe
* bright sky regions to avoid saturation, e.g. in the inner
* Galactic plane)
* 2 = flux too low
* 4 = (not used)
* 8 = possibly a 'side-lobe' detection
* Combined values are represented by the sum, e.g. 9 = 8 + 1 =
* a possible side-lobe detection in CDS mode.
*Note (5): The value is 1 when the source is observed in scans separated by
* more than one month. This value is independent from hour confirmation
* and can be 1 even if the source is not confirmed (q_=1); similarly a
* value of 0 does not mean that the source is unreliable.
C=============================================================================
C Loading file 'fis.dat' ! AKARI/FIS All-Sky Survey Bright Source Catalogue
* (Version 1.0)
C Format for file interpretation
1 format(
+ 1X,I9,1X,A14,1X,F9.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F5.1,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ I1,1X,I1,1X,I1,1X,I1,4X,A1,4X,A1,4X,A1,4X,A1,1X,I4,1X,I4,1X,
+ I4,1X,I4,1X,I4,1X,I4,1X,I4,1X,I4,1X,I2,1X,I2,1X,I2,1X,I2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'fis.dat')
write(6,*) '....Loading file: fis.dat'
do i__=1,427071
read(1,'(A231)')ar__
read(ar__,1)
+ objID(i__),objName(i__),RAdeg(i__),DEdeg(i__),errMaj(i__),
+ errMin(i__),errPA(i__),S65(i__),S90(i__),S140(i__),S160(i__),
+ e_S65(i__),e_S90(i__),e_S140(i__),e_S160(i__),q_S65(i__),
+ q_S90(i__),q_S140(i__),q_S160(i__),f_S65(i__),f_S90(i__),
+ f_S140(i__),f_S160(i__),Ns65(i__),Ns90(i__),Ns140(i__),
+ Ns160(i__),Np65(i__),Np90(i__),Np140(i__),Np160(i__),M65(i__),
+ M90(i__),M140(i__),M160(i__),Ndens(i__)
c ..............Just test output...........
write(6,1)
+ objID(i__),objName(i__),RAdeg(i__),DEdeg(i__),errMaj(i__),
+ errMin(i__),errPA(i__),S65(i__),S90(i__),S140(i__),S160(i__),
+ e_S65(i__),e_S90(i__),e_S140(i__),e_S160(i__),q_S65(i__),
+ q_S90(i__),q_S140(i__),q_S160(i__),f_S65(i__),f_S90(i__),
+ f_S140(i__),f_S160(i__),Ns65(i__),Ns90(i__),Ns140(i__),
+ Ns160(i__),Np65(i__),Np90(i__),Np140(i__),Np160(i__),M65(i__),
+ M90(i__),M140(i__),M160(i__),Ndens(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end