Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/491/889 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-18
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/491/889 CoRoT-Exo-3b observations (Deleuil+, 2008)
*================================================================================
*Transiting exoplanets from the CoRoT space mission.
*VI. CoRoT-Exo-3b: the first secure inhabitant of the brown-dwarf desert.
* Deleuil M., Deeg H.J., Alonso R., Bouchy F., Rouan D., Auvergne M.,
* Baglin A., Aigrain S., Almenara J.M., Barbieri M., Barge P., Bruntt H.,
* Borde P., Collier Cameron A., Csizmadia SZ., De La Reza R., Dvorak R.,
* Erikson A., Fridlund M., Gandolfi D., Gillon M., Guenther E., Guillot T.,
* Hatzes A., Hebrard G., Jorda L., Lammer H., Leger A., Llebaria A.,
* Loeillet B., Mayor M., Mazeh T., Moutou C., Ollivier M., Paetzold M.,
* Pont F., Queloz D., Rauer H., Schneider J., Shporer A., Wuchterl G.,
* Zucker S.
* <Astron. Astrophys., 491, 889-897 (2008)>
* =2008A&A...491..889D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Radial velocity measurements for CoRoT-Exo-3b
integer*4 nr__
parameter (nr__=35) ! Number of records
character*41 ar__ ! Full-size record
real*8 HJD (nr__) ! (d) Heliocentric Julian date
integer*4 ExpTime (nr__) ! (s) Exposition time
real*8 RV (nr__) ! (km/s) Radial velocity
real*4 e_RV (nr__) ! (km/s) rms uncertainty on RV
character*9 Spec (nr__) ! Spectrograph name
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table.dat' ! CoRoT data
integer*4 nr__1
parameter (nr__1=236999) ! Number of records
character*207 ar__1 ! Full-size record
character*10 Obs_date (nr__1) ! ("YYYY-MM-DD") Date of Observation
character*12 Obs_time (nr__1) ! ("h:m:s") Time of observation
real*4 JD (nr__1) ! (d) CoRoT Julian day (JD-2451545.0)
real*4 HJD_1 (nr__1) ! (d) Heliocentric CoRoT Julian date
integer*4 Status (nr__1) ! Status
real*4 FRed (nr__1) ! (e) Red flux
real*4 e_FRed (nr__1) ! (e) rms uncertainty on FRed
real*4 FGreen (nr__1) ! (e) Green flux
real*4 e_FGreen (nr__1) ! (e) rms uncertainty on FGreen
real*4 FBlue (nr__1) ! (e) Blue flux
real*4 e_FBlue (nr__1) ! (e) rms uncertainty on FBlue
real*4 BG (nr__1) ! (e/pix) Background
real*4 FRedc (nr__1) ! (e) Correction in red flux
real*4 FGreenc (nr__1) ! (e) Correction in green flux
real*4 FBluec (nr__1) ! (e) Correction in blue flux
C=============================================================================
C Loading file 'table3.dat' ! Radial velocity measurements for CoRoT-Exo-3b
C Format for file interpretation
1 format(F12.4,1X,I4,1X,F7.3,1X,F5.3,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,35
read(1,'(A41)')ar__
read(ar__,1)HJD(i__),ExpTime(i__),RV(i__),e_RV(i__),Spec(i__)
c ..............Just test output...........
write(6,1)HJD(i__),ExpTime(i__),RV(i__),e_RV(i__),Spec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table.dat' ! CoRoT data
C Format for file interpretation
2 format(
+ A10,1X,A12,2X,E18.13,2X,E18.13,2X,I3,1X,E12.7,2X,E12.7,2X,
+ E12.7,2X,E12.7,2X,E12.7,2X,E12.7,2X,E12.7,2X,E12.7,2X,E12.7,
+ 2X,E12.7)
C Effective file loading
open(unit=1,status='old',file=
+'table.dat')
write(6,*) '....Loading file: table.dat'
do i__=1,236999
read(1,'(A207)')ar__1
read(ar__1,2)
+ Obs_date(i__),Obs_time(i__),JD(i__),HJD_1(i__),Status(i__),
+ FRed(i__),e_FRed(i__),FGreen(i__),e_FGreen(i__),FBlue(i__),
+ e_FBlue(i__),BG(i__),FRedc(i__),FGreenc(i__),FBluec(i__)
c ..............Just test output...........
write(6,2)
+ Obs_date(i__),Obs_time(i__),JD(i__),HJD_1(i__),Status(i__),
+ FRed(i__),e_FRed(i__),FGreen(i__),e_FGreen(i__),FBlue(i__),
+ e_FBlue(i__),BG(i__),FRedc(i__),FGreenc(i__),FBluec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end