Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/530/A120 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/530/A120 Mid-infrared diameter of W Hya (Zhao-Geisler+, 2011)
*================================================================================
*The mid-infrared diameter of W Hydrae.
* Zhao-Geisler R., Quirrenbach A., Koehler R., Lopez B., Leinert C.
* <Astron. Astrophys. 530, A120 (2011)>
* =2011A&A...530A.120Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observation log
integer*4 nr__
parameter (nr__=83) ! Number of records
character*46 ar__ ! Full-size record
character*10 Date (nr__) ! ("YYYY-DD-MM") Observation date
character*2 AT (nr__) ! AT station (1)
character*5 Disp (nr__) ! Dispersive element (grism or prism)
real*4 B (nr__) ! (m) Projected baseline length
real*4 PA (nr__) ! (deg) [-13/131] Position angle of the projected
* baseline on the sky
real*4 Phase (nr__) ! Phase
character*4 QF (nr__) ! Quality flag (2)
integer*4 Seq (nr__) ! ? Sequential number for visibility used in
* data.dat file
*Note (1): AT stations as follows:
* A = E0-G0
* B = G0-H0
* B* = A0-D0
* C = E0-H0
* D = D0-H0
* E = D0-G1
* F = H0-G1
*Note (2): Quality flag showing if that observation is used for the model
* fitting (used) or not (n.u.), see Sect. 3.1 for reasons that a value
* had not been used.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data.dat' ! Calibrated visibilities of W Hya
integer*4 nr__1
parameter (nr__1=71) ! Number of records
character*1133 ar__1 ! Full-size record
real*8 lambda (nr__1) ! (um) Wavelength
real*8 V1 (nr__1) ! Calibrated visibility # 1 (2007-04-12)
real*8 V2 (nr__1) ! Calibrated visibility # 2 (2007-04-13)
real*8 V3 (nr__1) ! Calibrated visibility # 3 (2007-04-17)
real*8 V4 (nr__1) ! Calibrated visibility # 4 (2007-04-22)
real*8 V5 (nr__1) ! Calibrated visibility # 5 (2007-04-22)
real*8 V6 (nr__1) ! Calibrated visibility # 6 (2007-04-22)
real*8 V7 (nr__1) ! Calibrated visibility # 7 (2007-04-22)
real*8 V8 (nr__1) ! Calibrated visibility # 8 (2007-04-25)
real*8 V9 (nr__1) ! Calibrated visibility # 9 (2007-06-18)
real*8 V10 (nr__1) ! Calibrated visibility # 10 (2007-06-20)
real*8 V11 (nr__1) ! Calibrated visibility # 11 (2007-06-20)
real*8 V12 (nr__1) ! Calibrated visibility # 12 (2007-07-02)
real*8 V13 (nr__1) ! Calibrated visibility # 13 (2007-07-04)
real*8 V14 (nr__1) ! Calibrated visibility # 14 (2007-07-04)
real*8 V15 (nr__1) ! Calibrated visibility # 15 (2008-01-10)
real*8 V16 (nr__1) ! Calibrated visibility # 16 (2008-02-20)
real*8 V17 (nr__1) ! Calibrated visibility # 17 (2008-02-20)
real*8 V18 (nr__1) ! Calibrated visibility # 18 (2008-02-22)
real*8 V19 (nr__1) ! Calibrated visibility # 19 (2008-02-22)
real*8 V20 (nr__1) ! Calibrated visibility # 20 (2008-03-02)
real*8 V21 (nr__1) ! Calibrated visibility # 21 (2008-03-02)
real*8 V22 (nr__1) ! Calibrated visibility # 22 (2008-03-03)
real*8 V23 (nr__1) ! Calibrated visibility # 23 (2008-03-06)
real*8 V24 (nr__1) ! Calibrated visibility # 24 (2008-03-11)
real*8 V25 (nr__1) ! Calibrated visibility # 25 (2008-03-11)
real*8 V26 (nr__1) ! Calibrated visibility # 26 (2008-03-12)
real*8 V27 (nr__1) ! Calibrated visibility # 27 (2008-03-13)
real*8 V28 (nr__1) ! Calibrated visibility # 28 (2008-03-13)
real*8 V29 (nr__1) ! Calibrated visibility # 29 (2008-03-13)
real*8 V30 (nr__1) ! Calibrated visibility # 30 (2008-03-14)
real*8 V31 (nr__1) ! Calibrated visibility # 31 (2008-03-14)
real*8 V32 (nr__1) ! Calibrated visibility # 32 (2008-03-25)
real*8 V33 (nr__1) ! Calibrated visibility # 33 (2008-03-25)
real*8 V34 (nr__1) ! Calibrated visibility # 34 (2008-03-25)
real*8 V35 (nr__1) ! Calibrated visibility # 35 (2008-04-01)
real*8 V36 (nr__1) ! Calibrated visibility # 36 (2008-04-02)
real*8 V37 (nr__1) ! Calibrated visibility # 37 (2008-04-02)
real*8 V38 (nr__1) ! Calibrated visibility # 38 (2008-04-03)
real*8 V39 (nr__1) ! Calibrated visibility # 39 (2008-04-28)
real*8 V40 (nr__1) ! Calibrated visibility # 40 (2008-04-28)
real*8 V41 (nr__1) ! Calibrated visibility # 41 (2008-05-25)
real*8 V42 (nr__1) ! Calibrated visibility # 42 (2008-05-30)
real*8 V43 (nr__1) ! Calibrated visibility # 43 (2008-07-03)
real*8 V44 (nr__1) ! Calibrated visibility # 44 (2008-07-03)
real*8 V45 (nr__1) ! Calibrated visibility # 45 (2008-07-06)
real*8 V46 (nr__1) ! Calibrated visibility # 46 (2009-01-16)
real*8 V47 (nr__1) ! Calibrated visibility # 47 (2009-01-16)
real*8 V48 (nr__1) ! Calibrated visibility # 48 (2009-01-20)
real*8 V49 (nr__1) ! Calibrated visibility # 49 (2009-01-21)
real*8 V50 (nr__1) ! Calibrated visibility # 50 (2009-01-21)
real*8 V51 (nr__1) ! Calibrated visibility # 51 (2009-01-22)
real*8 V52 (nr__1) ! Calibrated visibility # 52 (2009-01-22)
real*8 V53 (nr__1) ! Calibrated visibility # 53 (2009-01-22)
real*8 V54 (nr__1) ! Calibrated visibility # 54 (2009-01-22)
real*8 V55 (nr__1) ! Calibrated visibility # 55 (2009-01-25)
real*8 V56 (nr__1) ! Calibrated visibility # 56 (2009-01-25)
real*8 V57 (nr__1) ! Calibrated visibility # 57 (2009-01-25)
real*8 V58 (nr__1) ! Calibrated visibility # 58 (2009-01-25)
real*8 V59 (nr__1) ! Calibrated visibility # 59 (2009-01-27)
real*8 V60 (nr__1) ! Calibrated visibility # 60 (2009-01-27)
real*8 V61 (nr__1) ! Calibrated visibility # 61 (2009-02-16)
real*8 V62 (nr__1) ! Calibrated visibility # 62 (2009-02-16)
real*8 V63 (nr__1) ! Calibrated visibility # 63 (2009-03-16)
real*8 V64 (nr__1) ! Calibrated visibility # 64 (2009-04-20)
real*8 V65 (nr__1) ! Calibrated visibility # 65 (2009-04-23)
real*8 V66 (nr__1) ! Calibrated visibility # 66 (2009-04-23)
real*8 V67 (nr__1) ! Calibrated visibility # 67 (2009-04-24)
real*8 V68 (nr__1) ! Calibrated visibility # 68 (2009-05-02)
real*8 V69 (nr__1) ! Calibrated visibility # 69 (2009-05-03)
real*8 V70 (nr__1) ! Calibrated visibility # 70 (2009-05-03)
real*8 V71 (nr__1) ! Calibrated visibility # 71 (2009-05-03)
real*8 V72 (nr__1) ! Calibrated visibility # 72 (2009-06-04)
real*8 V73 (nr__1) ! Calibrated visibility # 73 (2009-06-04)
real*8 V74 (nr__1) ! Calibrated visibility # 74 (2009-06-04)
real*8 V75 (nr__1) ! Calibrated visibility # 75 (2009-08-15)
C=============================================================================
C Loading file 'table1.dat' ! Observation log
C Format for file interpretation
1 format(A10,1X,A2,1X,A5,2X,F5.2,1X,F6.2,1X,F4.2,1X,A4,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,83
read(1,'(A46)')ar__
read(ar__,1)
+ Date(i__),AT(i__),Disp(i__),B(i__),PA(i__),Phase(i__),QF(i__),
+ Seq(i__)
if(ar__(45:46) .EQ. '') Seq(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Date(i__),AT(i__),Disp(i__),B(i__),PA(i__),Phase(i__),QF(i__),
+ Seq(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data.dat' ! Calibrated visibilities of W Hya
C Format for file interpretation
2 format(
+ F10.7,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F14.10,1X,F12.8)
C Effective file loading
open(unit=1,status='old',file=
+'data.dat')
write(6,*) '....Loading file: data.dat'
do i__=1,71
read(1,'(A1133)')ar__1
read(ar__1,2)
+ lambda(i__),V1(i__),V2(i__),V3(i__),V4(i__),V5(i__),V6(i__),
+ V7(i__),V8(i__),V9(i__),V10(i__),V11(i__),V12(i__),V13(i__),
+ V14(i__),V15(i__),V16(i__),V17(i__),V18(i__),V19(i__),
+ V20(i__),V21(i__),V22(i__),V23(i__),V24(i__),V25(i__),
+ V26(i__),V27(i__),V28(i__),V29(i__),V30(i__),V31(i__),
+ V32(i__),V33(i__),V34(i__),V35(i__),V36(i__),V37(i__),
+ V38(i__),V39(i__),V40(i__),V41(i__),V42(i__),V43(i__),
+ V44(i__),V45(i__),V46(i__),V47(i__),V48(i__),V49(i__),
+ V50(i__),V51(i__),V52(i__),V53(i__),V54(i__),V55(i__),
+ V56(i__),V57(i__),V58(i__),V59(i__),V60(i__),V61(i__),
+ V62(i__),V63(i__),V64(i__),V65(i__),V66(i__),V67(i__),
+ V68(i__),V69(i__),V70(i__),V71(i__),V72(i__),V73(i__),
+ V74(i__),V75(i__)
c ..............Just test output...........
write(6,2)
+ lambda(i__),V1(i__),V2(i__),V3(i__),V4(i__),V5(i__),V6(i__),
+ V7(i__),V8(i__),V9(i__),V10(i__),V11(i__),V12(i__),V13(i__),
+ V14(i__),V15(i__),V16(i__),V17(i__),V18(i__),V19(i__),
+ V20(i__),V21(i__),V22(i__),V23(i__),V24(i__),V25(i__),
+ V26(i__),V27(i__),V28(i__),V29(i__),V30(i__),V31(i__),
+ V32(i__),V33(i__),V34(i__),V35(i__),V36(i__),V37(i__),
+ V38(i__),V39(i__),V40(i__),V41(i__),V42(i__),V43(i__),
+ V44(i__),V45(i__),V46(i__),V47(i__),V48(i__),V49(i__),
+ V50(i__),V51(i__),V52(i__),V53(i__),V54(i__),V55(i__),
+ V56(i__),V57(i__),V58(i__),V59(i__),V60(i__),V61(i__),
+ V62(i__),V63(i__),V64(i__),V65(i__),V66(i__),V67(i__),
+ V68(i__),V69(i__),V70(i__),V71(i__),V72(i__),V73(i__),
+ V74(i__),V75(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end