Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/169/30 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-Aug-14
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/AJ/169/30 Spectra of AF Lep b using SPHERE & GRAVITY from VLT (Balmer+, 2025)
*================================================================================
*VLTI/GRAVITY observations of AF Lep b: Preference for circular orbits, cloudy
*atmospheres, and a moderately enhanced metallicity.
* Balmer W.O., Franson K., Chomez A., Pueyo L., Stolker T., Lacour S.,
* Nowak M., Nasedkin E., Bonse M.J., Thorngren D., Palma-Bifani P.,
* Molliere P., Wang J.J., Zhang Z., Chavez A., Kammerer J., Blunt S.,
* Bowler B.P., Bonnefoy M., Brandner W., Charnay B., Chauvin G., Henning T.,
* Lagrange A.-M., Pourre N., Rickman E., De Rosa R., Vigan A.,
* Winterhalder T.
* <Astron. J., 169, 30 (2025)>
* =2025AJ....169...30B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fig2a.dat' ! SPHERE spectrum of AF Lep b (Data behing Figure 2)
integer*4 nr__
parameter (nr__=33) ! Number of records
character*685 ar__ ! Full-size record
real*4 Lambda (nr__) ! (um) Wavelength
real*4 Flux (nr__) ! (10+3W/m2/nm) 1D flux
real*4 Cov1 (nr__) ! (10+6W2/m4/nm2) Covariance 1
real*4 Cov2 (nr__) ! (10+6W2/m4/nm2) Covariance 2
real*4 Cov3 (nr__) ! (10+6W2/m4/nm2) Covariance 3
real*4 Cov4 (nr__) ! (10+6W2/m4/nm2) Covariance 4
real*4 Cov5 (nr__) ! (10+6W2/m4/nm2) Covariance 5
real*4 Cov6 (nr__) ! (10+6W2/m4/nm2) Covariance 6
real*4 Cov7 (nr__) ! (10+6W2/m4/nm2) Covariance 7
real*4 Cov8 (nr__) ! (10+6W2/m4/nm2) Covariance 8
real*4 Cov9 (nr__) ! (10+6W2/m4/nm2) Covariance 9
real*4 Cov10 (nr__) ! (10+6W2/m4/nm2) Covariance 10
real*4 Cov11 (nr__) ! (10+6W2/m4/nm2) Covariance 11
real*4 Cov12 (nr__) ! (10+6W2/m4/nm2) Covariance 12
real*4 Cov13 (nr__) ! (10+6W2/m4/nm2) Covariance 13
real*4 Cov14 (nr__) ! (10+6W2/m4/nm2) Covariance 14
real*4 Cov15 (nr__) ! (10+6W2/m4/nm2) Covariance 15
real*4 Cov16 (nr__) ! (10+6W2/m4/nm2) Covariance 16
real*4 Cov17 (nr__) ! (10+6W2/m4/nm2) Covariance 17
real*4 Cov18 (nr__) ! (10+6W2/m4/nm2) Covariance 18
real*4 Cov19 (nr__) ! (10+6W2/m4/nm2) Covariance 19
real*4 Cov20 (nr__) ! (10+6W2/m4/nm2) Covariance 20
real*4 Cov21 (nr__) ! (10+6W2/m4/nm2) Covariance 21
real*4 Cov22 (nr__) ! (10+6W2/m4/nm2) Covariance 22
real*4 Cov23 (nr__) ! (10+6W2/m4/nm2) Covariance 23
real*4 Cov24 (nr__) ! (10+6W2/m4/nm2) Covariance 24
real*4 Cov25 (nr__) ! (10+6W2/m4/nm2) Covariance 25
real*4 Cov26 (nr__) ! (10+6W2/m4/nm2) Covariance 26
real*4 Cov27 (nr__) ! (10+6W2/m4/nm2) Covariance 27
real*4 Cov28 (nr__) ! (10+6W2/m4/nm2) Covariance 28
real*4 Cov29 (nr__) ! (10+6W2/m4/nm2) Covariance 29
real*4 Cov30 (nr__) ! (10+6W2/m4/nm2) Covariance 30
real*4 Cov31 (nr__) ! (10+6W2/m4/nm2) Covariance 31
real*4 Cov32 (nr__) ! (10+6W2/m4/nm2) Covariance 32
real*4 Cov33 (nr__) ! (10+6W2/m4/nm2) Covariance 33
real*4 Contrast (nr__) ! 1D contrast
real*4 Ccov1 (nr__) ! Contrast covariance 1
real*4 Ccov2 (nr__) ! Contrast covariance 2
real*4 Ccov3 (nr__) ! Contrast covariance 3
real*4 Ccov4 (nr__) ! Contrast covariance 4
real*4 Ccov5 (nr__) ! Contrast covariance 5
real*4 Ccov6 (nr__) ! Contrast covariance 6
real*4 Ccov7 (nr__) ! Contrast covariance 7
real*4 Ccov8 (nr__) ! Contrast covariance 8
real*4 Ccov9 (nr__) ! Contrast covariance 9
real*4 Ccov10 (nr__) ! Contrast covariance 10
real*4 Ccov11 (nr__) ! Contrast covariance 11
real*4 Ccov12 (nr__) ! Contrast covariance 12
real*4 Ccov13 (nr__) ! Contrast covariance 13
real*4 Ccov14 (nr__) ! Contrast covariance 14
real*4 Ccov15 (nr__) ! Contrast covariance 15
real*4 Ccov16 (nr__) ! Contrast covariance 16
real*4 Ccov17 (nr__) ! Contrast covariance 17
real*4 Ccov18 (nr__) ! Contrast covariance 18
real*4 Ccov19 (nr__) ! Contrast covariance 19
real*4 Ccov20 (nr__) ! Contrast covariance 20
real*4 Ccov21 (nr__) ! Contrast covariance 21
real*4 Ccov22 (nr__) ! Contrast covariance 22
real*4 Ccov23 (nr__) ! Contrast covariance 23
real*4 Ccov24 (nr__) ! Contrast covariance 24
real*4 Ccov25 (nr__) ! Contrast covariance 25
real*4 Ccov26 (nr__) ! Contrast covariance 26
real*4 Ccov27 (nr__) ! Contrast covariance 27
real*4 Ccov28 (nr__) ! Contrast covariance 28
real*4 Ccov29 (nr__) ! Contrast covariance 29
real*4 Ccov30 (nr__) ! Contrast covariance 30
real*4 Ccov31 (nr__) ! Contrast covariance 31
real*4 Ccov32 (nr__) ! Contrast covariance 32
real*4 Ccov33 (nr__) ! Contrast covariance 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fig2b.dat' ! GRAVITY spectrum of AF Lep b (Data behind Figure 2)
integer*4 nr__1
parameter (nr__1=233) ! Number of records
character*5153 ar__1 ! Full-size record
real*4 Lambda_1 (nr__1) ! (um) Wavelength
real*4 Flux_1 (nr__1) ! (10+3W/m2/nm) 1D flux
real*4 Cov1_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 1
real*4 Cov2_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 2
real*4 Cov3_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 3
real*4 Cov4_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 4
real*4 Cov5_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 5
real*4 Cov6_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 6
real*4 Cov7_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 7
real*4 Cov8_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 8
real*4 Cov9_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 9
real*4 Cov10_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 10
real*4 Cov11_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 11
real*4 Cov12_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 12
real*4 Cov13_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 13
real*4 Cov14_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 14
real*4 Cov15_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 15
real*4 Cov16_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 16
real*4 Cov17_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 17
real*4 Cov18_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 18
real*4 Cov19_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 19
real*4 Cov20_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 20
real*4 Cov21_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 21
real*4 Cov22_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 22
real*4 Cov23_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 23
real*4 Cov24_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 24
real*4 Cov25_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 25
real*4 Cov26_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 26
real*4 Cov27_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 27
real*4 Cov28_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 28
real*4 Cov29_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 29
real*4 Cov30_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 30
real*4 Cov31_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 31
real*4 Cov32_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 32
real*4 Cov33_1 (nr__1) ! (10+6W2/m4/nm2) Covariance 33
real*4 Cov34 (nr__1) ! (10+6W2/m4/nm2) Covariance 34
real*4 Cov35 (nr__1) ! (10+6W2/m4/nm2) Covariance 35
real*4 Cov36 (nr__1) ! (10+6W2/m4/nm2) Covariance 36
real*4 Cov37 (nr__1) ! (10+6W2/m4/nm2) Covariance 37
real*4 Cov38 (nr__1) ! (10+6W2/m4/nm2) Covariance 38
real*4 Cov39 (nr__1) ! (10+6W2/m4/nm2) Covariance 39
real*4 Cov40 (nr__1) ! (10+6W2/m4/nm2) Covariance 40
real*4 Cov41 (nr__1) ! (10+6W2/m4/nm2) Covariance 41
real*4 Cov42 (nr__1) ! (10+6W2/m4/nm2) Covariance 42
real*4 Cov43 (nr__1) ! (10+6W2/m4/nm2) Covariance 43
real*4 Cov44 (nr__1) ! (10+6W2/m4/nm2) Covariance 44
real*4 Cov45 (nr__1) ! (10+6W2/m4/nm2) Covariance 45
real*4 Cov46 (nr__1) ! (10+6W2/m4/nm2) Covariance 46
real*4 Cov47 (nr__1) ! (10+6W2/m4/nm2) Covariance 47
real*4 Cov48 (nr__1) ! (10+6W2/m4/nm2) Covariance 48
real*4 Cov49 (nr__1) ! (10+6W2/m4/nm2) Covariance 49
real*4 Cov50 (nr__1) ! (10+6W2/m4/nm2) Covariance 50
real*4 Cov51 (nr__1) ! (10+6W2/m4/nm2) Covariance 51
real*4 Cov52 (nr__1) ! (10+6W2/m4/nm2) Covariance 52
real*4 Cov53 (nr__1) ! (10+6W2/m4/nm2) Covariance 53
real*4 Cov54 (nr__1) ! (10+6W2/m4/nm2) Covariance 54
real*4 Cov55 (nr__1) ! (10+6W2/m4/nm2) Covariance 55
real*4 Cov56 (nr__1) ! (10+6W2/m4/nm2) Covariance 56
real*4 Cov57 (nr__1) ! (10+6W2/m4/nm2) Covariance 57
real*4 Cov58 (nr__1) ! (10+6W2/m4/nm2) Covariance 58
real*4 Cov59 (nr__1) ! (10+6W2/m4/nm2) Covariance 59
real*4 Cov60 (nr__1) ! (10+6W2/m4/nm2) Covariance 60
real*4 Cov61 (nr__1) ! (10+6W2/m4/nm2) Covariance 61
real*4 Cov62 (nr__1) ! (10+6W2/m4/nm2) Covariance 62
real*4 Cov63 (nr__1) ! (10+6W2/m4/nm2) Covariance 63
real*4 Cov64 (nr__1) ! (10+6W2/m4/nm2) Covariance 64
real*4 Cov65 (nr__1) ! (10+6W2/m4/nm2) Covariance 65
real*4 Cov66 (nr__1) ! (10+6W2/m4/nm2) Covariance 66
real*4 Cov67 (nr__1) ! (10+6W2/m4/nm2) Covariance 67
real*4 Cov68 (nr__1) ! (10+6W2/m4/nm2) Covariance 68
real*4 Cov69 (nr__1) ! (10+6W2/m4/nm2) Covariance 69
real*4 Cov70 (nr__1) ! (10+6W2/m4/nm2) Covariance 70
real*4 Cov71 (nr__1) ! (10+6W2/m4/nm2) Covariance 71
real*4 Cov72 (nr__1) ! (10+6W2/m4/nm2) Covariance 72
real*4 Cov73 (nr__1) ! (10+6W2/m4/nm2) Covariance 73
real*4 Cov74 (nr__1) ! (10+6W2/m4/nm2) Covariance 74
real*4 Cov75 (nr__1) ! (10+6W2/m4/nm2) Covariance 75
real*4 Cov76 (nr__1) ! (10+6W2/m4/nm2) Covariance 76
real*4 Cov77 (nr__1) ! (10+6W2/m4/nm2) Covariance 77
real*4 Cov78 (nr__1) ! (10+6W2/m4/nm2) Covariance 78
real*4 Cov79 (nr__1) ! (10+6W2/m4/nm2) Covariance 79
real*4 Cov80 (nr__1) ! (10+6W2/m4/nm2) Covariance 80
real*4 Cov81 (nr__1) ! (10+6W2/m4/nm2) Covariance 81
real*4 Cov82 (nr__1) ! (10+6W2/m4/nm2) Covariance 82
real*4 Cov83 (nr__1) ! (10+6W2/m4/nm2) Covariance 83
real*4 Cov84 (nr__1) ! (10+6W2/m4/nm2) Covariance 84
real*4 Cov85 (nr__1) ! (10+6W2/m4/nm2) Covariance 85
real*4 Cov86 (nr__1) ! (10+6W2/m4/nm2) Covariance 86
real*4 Cov87 (nr__1) ! (10+6W2/m4/nm2) Covariance 87
real*4 Cov88 (nr__1) ! (10+6W2/m4/nm2) Covariance 88
real*4 Cov89 (nr__1) ! (10+6W2/m4/nm2) Covariance 89
real*4 Cov90 (nr__1) ! (10+6W2/m4/nm2) Covariance 90
real*4 Cov91 (nr__1) ! (10+6W2/m4/nm2) Covariance 91
real*4 Cov92 (nr__1) ! (10+6W2/m4/nm2) Covariance 92
real*4 Cov93 (nr__1) ! (10+6W2/m4/nm2) Covariance 93
real*4 Cov94 (nr__1) ! (10+6W2/m4/nm2) Covariance 94
real*4 Cov95 (nr__1) ! (10+6W2/m4/nm2) Covariance 95
real*4 Cov96 (nr__1) ! (10+6W2/m4/nm2) Covariance 96
real*4 Cov97 (nr__1) ! (10+6W2/m4/nm2) Covariance 97
real*4 Cov98 (nr__1) ! (10+6W2/m4/nm2) Covariance 98
real*4 Cov99 (nr__1) ! (10+6W2/m4/nm2) Covariance 99
real*4 Cov100 (nr__1) ! (10+6W2/m4/nm2) Covariance 100
real*4 Cov101 (nr__1) ! (10+6W2/m4/nm2) Covariance 101
real*4 Cov102 (nr__1) ! (10+6W2/m4/nm2) Covariance 102
real*4 Cov103 (nr__1) ! (10+6W2/m4/nm2) Covariance 103
real*4 Cov104 (nr__1) ! (10+6W2/m4/nm2) Covariance 104
real*4 Cov105 (nr__1) ! (10+6W2/m4/nm2) Covariance 105
real*4 Cov106 (nr__1) ! (10+6W2/m4/nm2) Covariance 106
real*4 Cov107 (nr__1) ! (10+6W2/m4/nm2) Covariance 107
real*4 Cov108 (nr__1) ! (10+6W2/m4/nm2) Covariance 108
real*4 Cov109 (nr__1) ! (10+6W2/m4/nm2) Covariance 109
real*4 Cov110 (nr__1) ! (10+6W2/m4/nm2) Covariance 110
real*4 Cov111 (nr__1) ! (10+6W2/m4/nm2) Covariance 111
real*4 Cov112 (nr__1) ! (10+6W2/m4/nm2) Covariance 112
real*4 Cov113 (nr__1) ! (10+6W2/m4/nm2) Covariance 113
real*4 Cov114 (nr__1) ! (10+6W2/m4/nm2) Covariance 114
real*4 Cov115 (nr__1) ! (10+6W2/m4/nm2) Covariance 115
real*4 Cov116 (nr__1) ! (10+6W2/m4/nm2) Covariance 116
real*4 Cov117 (nr__1) ! (10+6W2/m4/nm2) Covariance 117
real*4 Cov118 (nr__1) ! (10+6W2/m4/nm2) Covariance 118
real*4 Cov119 (nr__1) ! (10+6W2/m4/nm2) Covariance 119
real*4 Cov120 (nr__1) ! (10+6W2/m4/nm2) Covariance 120
real*4 Cov121 (nr__1) ! (10+6W2/m4/nm2) Covariance 121
real*4 Cov122 (nr__1) ! (10+6W2/m4/nm2) Covariance 122
real*4 Cov123 (nr__1) ! (10+6W2/m4/nm2) Covariance 123
real*4 Cov124 (nr__1) ! (10+6W2/m4/nm2) Covariance 124
real*4 Cov125 (nr__1) ! (10+6W2/m4/nm2) Covariance 125
real*4 Cov126 (nr__1) ! (10+6W2/m4/nm2) Covariance 126
real*4 Cov127 (nr__1) ! (10+6W2/m4/nm2) Covariance 127
real*4 Cov128 (nr__1) ! (10+6W2/m4/nm2) Covariance 128
real*4 Cov129 (nr__1) ! (10+6W2/m4/nm2) Covariance 129
real*4 Cov130 (nr__1) ! (10+6W2/m4/nm2) Covariance 130
real*4 Cov131 (nr__1) ! (10+6W2/m4/nm2) Covariance 131
real*4 Cov132 (nr__1) ! (10+6W2/m4/nm2) Covariance 132
real*4 Cov133 (nr__1) ! (10+6W2/m4/nm2) Covariance 133
real*4 Cov134 (nr__1) ! (10+6W2/m4/nm2) Covariance 134
real*4 Cov135 (nr__1) ! (10+6W2/m4/nm2) Covariance 135
real*4 Cov136 (nr__1) ! (10+6W2/m4/nm2) Covariance 136
real*4 Cov137 (nr__1) ! (10+6W2/m4/nm2) Covariance 137
real*4 Cov138 (nr__1) ! (10+6W2/m4/nm2) Covariance 138
real*4 Cov139 (nr__1) ! (10+6W2/m4/nm2) Covariance 139
real*4 Cov140 (nr__1) ! (10+6W2/m4/nm2) Covariance 140
real*4 Cov141 (nr__1) ! (10+6W2/m4/nm2) Covariance 141
real*4 Cov142 (nr__1) ! (10+6W2/m4/nm2) Covariance 142
real*4 Cov143 (nr__1) ! (10+6W2/m4/nm2) Covariance 143
real*4 Cov144 (nr__1) ! (10+6W2/m4/nm2) Covariance 144
real*4 Cov145 (nr__1) ! (10+6W2/m4/nm2) Covariance 145
real*4 Cov146 (nr__1) ! (10+6W2/m4/nm2) Covariance 146
real*4 Cov147 (nr__1) ! (10+6W2/m4/nm2) Covariance 147
real*4 Cov148 (nr__1) ! (10+6W2/m4/nm2) Covariance 148
real*4 Cov149 (nr__1) ! (10+6W2/m4/nm2) Covariance 149
real*4 Cov150 (nr__1) ! (10+6W2/m4/nm2) Covariance 150
real*4 Cov151 (nr__1) ! (10+6W2/m4/nm2) Covariance 151
real*4 Cov152 (nr__1) ! (10+6W2/m4/nm2) Covariance 152
real*4 Cov153 (nr__1) ! (10+6W2/m4/nm2) Covariance 153
real*4 Cov154 (nr__1) ! (10+6W2/m4/nm2) Covariance 154
real*4 Cov155 (nr__1) ! (10+6W2/m4/nm2) Covariance 155
real*4 Cov156 (nr__1) ! (10+6W2/m4/nm2) Covariance 156
real*4 Cov157 (nr__1) ! (10+6W2/m4/nm2) Covariance 157
real*4 Cov158 (nr__1) ! (10+6W2/m4/nm2) Covariance 158
real*4 Cov159 (nr__1) ! (10+6W2/m4/nm2) Covariance 159
real*4 Cov160 (nr__1) ! (10+6W2/m4/nm2) Covariance 160
real*4 Cov161 (nr__1) ! (10+6W2/m4/nm2) Covariance 161
real*4 Cov162 (nr__1) ! (10+6W2/m4/nm2) Covariance 162
real*4 Cov163 (nr__1) ! (10+6W2/m4/nm2) Covariance 163
real*4 Cov164 (nr__1) ! (10+6W2/m4/nm2) Covariance 164
real*4 Cov165 (nr__1) ! (10+6W2/m4/nm2) Covariance 165
real*4 Cov166 (nr__1) ! (10+6W2/m4/nm2) Covariance 166
real*4 Cov167 (nr__1) ! (10+6W2/m4/nm2) Covariance 167
real*4 Cov168 (nr__1) ! (10+6W2/m4/nm2) Covariance 168
real*4 Cov169 (nr__1) ! (10+6W2/m4/nm2) Covariance 169
real*4 Cov170 (nr__1) ! (10+6W2/m4/nm2) Covariance 170
real*4 Cov171 (nr__1) ! (10+6W2/m4/nm2) Covariance 171
real*4 Cov172 (nr__1) ! (10+6W2/m4/nm2) Covariance 172
real*4 Cov173 (nr__1) ! (10+6W2/m4/nm2) Covariance 173
real*4 Cov174 (nr__1) ! (10+6W2/m4/nm2) Covariance 174
real*4 Cov175 (nr__1) ! (10+6W2/m4/nm2) Covariance 175
real*4 Cov176 (nr__1) ! (10+6W2/m4/nm2) Covariance 176
real*4 Cov177 (nr__1) ! (10+6W2/m4/nm2) Covariance 177
real*4 Cov178 (nr__1) ! (10+6W2/m4/nm2) Covariance 178
real*4 Cov179 (nr__1) ! (10+6W2/m4/nm2) Covariance 179
real*4 Cov180 (nr__1) ! (10+6W2/m4/nm2) Covariance 180
real*4 Cov181 (nr__1) ! (10+6W2/m4/nm2) Covariance 181
real*4 Cov182 (nr__1) ! (10+6W2/m4/nm2) Covariance 182
real*4 Cov183 (nr__1) ! (10+6W2/m4/nm2) Covariance 183
real*4 Cov184 (nr__1) ! (10+6W2/m4/nm2) Covariance 184
real*4 Cov185 (nr__1) ! (10+6W2/m4/nm2) Covariance 185
real*4 Cov186 (nr__1) ! (10+6W2/m4/nm2) Covariance 186
real*4 Cov187 (nr__1) ! (10+6W2/m4/nm2) Covariance 187
real*4 Cov188 (nr__1) ! (10+6W2/m4/nm2) Covariance 188
real*4 Cov189 (nr__1) ! (10+6W2/m4/nm2) Covariance 189
real*4 Cov190 (nr__1) ! (10+6W2/m4/nm2) Covariance 190
real*4 Cov191 (nr__1) ! (10+6W2/m4/nm2) Covariance 191
real*4 Cov192 (nr__1) ! (10+6W2/m4/nm2) Covariance 192
real*4 Cov193 (nr__1) ! (10+6W2/m4/nm2) Covariance 193
real*4 Cov194 (nr__1) ! (10+6W2/m4/nm2) Covariance 194
real*4 Cov195 (nr__1) ! (10+6W2/m4/nm2) Covariance 195
real*4 Cov196 (nr__1) ! (10+6W2/m4/nm2) Covariance 196
real*4 Cov197 (nr__1) ! (10+6W2/m4/nm2) Covariance 197
real*4 Cov198 (nr__1) ! (10+6W2/m4/nm2) Covariance 198
real*4 Cov299 (nr__1) ! (10+6W2/m4/nm2) Covariance 299
real*4 Cov200 (nr__1) ! (10+6W2/m4/nm2) Covariance 200
real*4 Cov201 (nr__1) ! (10+6W2/m4/nm2) Covariance 201
real*4 Cov202 (nr__1) ! (10+6W2/m4/nm2) Covariance 202
real*4 Cov203 (nr__1) ! (10+6W2/m4/nm2) Covariance 203
real*4 Cov204 (nr__1) ! (10+6W2/m4/nm2) Covariance 204
real*4 Cov205 (nr__1) ! (10+6W2/m4/nm2) Covariance 205
real*4 Cov206 (nr__1) ! (10+6W2/m4/nm2) Covariance 206
real*4 Cov207 (nr__1) ! (10+6W2/m4/nm2) Covariance 207
real*4 Cov208 (nr__1) ! (10+6W2/m4/nm2) Covariance 208
real*4 Cov209 (nr__1) ! (10+6W2/m4/nm2) Covariance 209
real*4 Cov210 (nr__1) ! (10+6W2/m4/nm2) Covariance 210
real*4 Cov211 (nr__1) ! (10+6W2/m4/nm2) Covariance 211
real*4 Cov212 (nr__1) ! (10+6W2/m4/nm2) Covariance 212
real*4 Cov213 (nr__1) ! (10+6W2/m4/nm2) Covariance 213
real*4 Cov214 (nr__1) ! (10+6W2/m4/nm2) Covariance 214
real*4 Cov215 (nr__1) ! (10+6W2/m4/nm2) Covariance 215
real*4 Cov216 (nr__1) ! (10+6W2/m4/nm2) Covariance 216
real*4 Cov217 (nr__1) ! (10+6W2/m4/nm2) Covariance 217
real*4 Cov218 (nr__1) ! (10+6W2/m4/nm2) Covariance 218
real*4 Cov219 (nr__1) ! (10+6W2/m4/nm2) Covariance 219
real*4 Cov220 (nr__1) ! (10+6W2/m4/nm2) Covariance 220
real*4 Cov221 (nr__1) ! (10+6W2/m4/nm2) Covariance 221
real*4 Cov222 (nr__1) ! (10+6W2/m4/nm2) Covariance 222
real*4 Cov223 (nr__1) ! (10+6W2/m4/nm2) Covariance 223
real*4 Cov224 (nr__1) ! (10+6W2/m4/nm2) Covariance 224
real*4 Cov225 (nr__1) ! (10+6W2/m4/nm2) Covariance 225
real*4 Cov226 (nr__1) ! (10+6W2/m4/nm2) Covariance 226
real*4 Cov227 (nr__1) ! (10+6W2/m4/nm2) Covariance 227
real*4 Cov228 (nr__1) ! (10+6W2/m4/nm2) Covariance 228
real*4 Cov229 (nr__1) ! (10+6W2/m4/nm2) Covariance 229
real*4 Cov230 (nr__1) ! (10+6W2/m4/nm2) Covariance 230
real*4 Cov231 (nr__1) ! (10+6W2/m4/nm2) Covariance 231
real*4 Cov232 (nr__1) ! (10+6W2/m4/nm2) Covariance 232
real*4 Cov233 (nr__1) ! (10+6W2/m4/nm2) Covariance 233
real*4 Contrast_1 (nr__1) ! 1D contrast
real*4 Ccov1_1 (nr__1) ! Contrast covariance 1
real*4 Ccov2_1 (nr__1) ! Contrast covariance 2
real*4 Ccov3_1 (nr__1) ! Contrast covariance 3
real*4 Ccov4_1 (nr__1) ! Contrast covariance 4
real*4 Ccov5_1 (nr__1) ! Contrast covariance 5
real*4 Ccov6_1 (nr__1) ! Contrast covariance 6
real*4 Ccov7_1 (nr__1) ! Contrast covariance 7
real*4 Ccov8_1 (nr__1) ! Contrast covariance 8
real*4 Ccov9_1 (nr__1) ! Contrast covariance 9
real*4 Ccov10_1 (nr__1) ! Contrast covariance 10
real*4 Ccov11_1 (nr__1) ! Contrast covariance 11
real*4 Ccov12_1 (nr__1) ! Contrast covariance 12
real*4 Ccov13_1 (nr__1) ! Contrast covariance 13
real*4 Ccov14_1 (nr__1) ! Contrast covariance 14
real*4 Ccov15_1 (nr__1) ! Contrast covariance 15
real*4 Ccov16_1 (nr__1) ! Contrast covariance 16
real*4 Ccov17_1 (nr__1) ! Contrast covariance 17
real*4 Ccov18_1 (nr__1) ! Contrast covariance 18
real*4 Ccov19_1 (nr__1) ! Contrast covariance 19
real*4 Ccov20_1 (nr__1) ! Contrast covariance 20
real*4 Ccov21_1 (nr__1) ! Contrast covariance 21
real*4 Ccov22_1 (nr__1) ! Contrast covariance 22
real*4 Ccov23_1 (nr__1) ! Contrast covariance 23
real*4 Ccov24_1 (nr__1) ! Contrast covariance 24
real*4 Ccov25_1 (nr__1) ! Contrast covariance 25
real*4 Ccov26_1 (nr__1) ! Contrast covariance 26
real*4 Ccov27_1 (nr__1) ! Contrast covariance 27
real*4 Ccov28_1 (nr__1) ! Contrast covariance 28
real*4 Ccov29_1 (nr__1) ! Contrast covariance 29
real*4 Ccov30_1 (nr__1) ! Contrast covariance 30
real*4 Ccov31_1 (nr__1) ! Contrast covariance 31
real*4 Ccov32_1 (nr__1) ! Contrast covariance 32
real*4 Ccov33_1 (nr__1) ! Contrast covariance 33
real*4 Ccov34 (nr__1) ! Contrast covariance 34
real*4 Ccov35 (nr__1) ! Contrast covariance 35
real*4 Ccov36 (nr__1) ! Contrast covariance 36
real*4 Ccov37 (nr__1) ! Contrast covariance 37
real*4 Ccov38 (nr__1) ! Contrast covariance 38
real*4 Ccov39 (nr__1) ! Contrast covariance 39
real*4 Ccov40 (nr__1) ! Contrast covariance 40
real*4 Ccov41 (nr__1) ! Contrast covariance 41
real*4 Ccov42 (nr__1) ! Contrast covariance 42
real*4 Ccov43 (nr__1) ! Contrast covariance 43
real*4 Ccov44 (nr__1) ! Contrast covariance 44
real*4 Ccov45 (nr__1) ! Contrast covariance 45
real*4 Ccov46 (nr__1) ! Contrast covariance 46
real*4 Ccov47 (nr__1) ! Contrast covariance 47
real*4 Ccov48 (nr__1) ! Contrast covariance 48
real*4 Ccov49 (nr__1) ! Contrast covariance 49
real*4 Ccov50 (nr__1) ! Contrast covariance 50
real*4 Ccov51 (nr__1) ! Contrast covariance 51
real*4 Ccov52 (nr__1) ! Contrast covariance 52
real*4 Ccov53 (nr__1) ! Contrast covariance 53
real*4 Ccov54 (nr__1) ! Contrast covariance 54
real*4 Ccov55 (nr__1) ! Contrast covariance 55
real*4 Ccov56 (nr__1) ! Contrast covariance 56
real*4 Ccov57 (nr__1) ! Contrast covariance 57
real*4 Ccov58 (nr__1) ! Contrast covariance 58
real*4 Ccov59 (nr__1) ! Contrast covariance 59
real*4 Ccov60 (nr__1) ! Contrast covariance 60
real*4 Ccov61 (nr__1) ! Contrast covariance 61
real*4 Ccov62 (nr__1) ! Contrast covariance 62
real*4 Ccov63 (nr__1) ! Contrast covariance 63
real*4 Ccov64 (nr__1) ! Contrast covariance 64
real*4 Ccov65 (nr__1) ! Contrast covariance 65
real*4 Ccov66 (nr__1) ! Contrast covariance 66
real*4 Ccov67 (nr__1) ! Contrast covariance 67
real*4 Ccov68 (nr__1) ! Contrast covariance 68
real*4 Ccov69 (nr__1) ! Contrast covariance 69
real*4 Ccov70 (nr__1) ! Contrast covariance 70
real*4 Ccov71 (nr__1) ! Contrast covariance 71
real*4 Ccov72 (nr__1) ! Contrast covariance 72
real*4 Ccov73 (nr__1) ! Contrast covariance 73
real*4 Ccov74 (nr__1) ! Contrast covariance 74
real*4 Ccov75 (nr__1) ! Contrast covariance 75
real*4 Ccov76 (nr__1) ! Contrast covariance 76
real*4 Ccov77 (nr__1) ! Contrast covariance 77
real*4 Ccov78 (nr__1) ! Contrast covariance 78
real*4 Ccov79 (nr__1) ! Contrast covariance 79
real*4 Ccov80 (nr__1) ! Contrast covariance 80
real*4 Ccov81 (nr__1) ! Contrast covariance 81
real*4 Ccov82 (nr__1) ! Contrast covariance 82
real*4 Ccov83 (nr__1) ! Contrast covariance 83
real*4 Ccov84 (nr__1) ! Contrast covariance 84
real*4 Ccov85 (nr__1) ! Contrast covariance 85
real*4 Ccov86 (nr__1) ! Contrast covariance 86
real*4 Ccov87 (nr__1) ! Contrast covariance 87
real*4 Ccov88 (nr__1) ! Contrast covariance 88
real*4 Ccov89 (nr__1) ! Contrast covariance 89
real*4 Ccov90 (nr__1) ! Contrast covariance 90
real*4 Ccov91 (nr__1) ! Contrast covariance 91
real*4 Ccov92 (nr__1) ! Contrast covariance 92
real*4 Ccov93 (nr__1) ! Contrast covariance 93
real*4 Ccov94 (nr__1) ! Contrast covariance 94
real*4 Ccov95 (nr__1) ! Contrast covariance 95
real*4 Ccov96 (nr__1) ! Contrast covariance 96
real*4 Ccov97 (nr__1) ! Contrast covariance 97
real*4 Ccov98 (nr__1) ! Contrast covariance 98
real*4 Ccov99 (nr__1) ! Contrast covariance 99
real*4 Ccov100 (nr__1) ! Contrast covariance 100
real*4 Ccov101 (nr__1) ! Contrast covariance 101
real*4 Ccov102 (nr__1) ! Contrast covariance 102
real*4 Ccov103 (nr__1) ! Contrast covariance 103
real*4 Ccov104 (nr__1) ! Contrast covariance 104
real*4 Ccov105 (nr__1) ! Contrast covariance 105
real*4 Ccov106 (nr__1) ! Contrast covariance 106
real*4 Ccov107 (nr__1) ! Contrast covariance 107
real*4 Ccov108 (nr__1) ! Contrast covariance 108
real*4 Ccov109 (nr__1) ! Contrast covariance 109
real*4 Ccov110 (nr__1) ! Contrast covariance 110
real*4 Ccov111 (nr__1) ! Contrast covariance 111
real*4 Ccov112 (nr__1) ! Contrast covariance 112
real*4 Ccov113 (nr__1) ! Contrast covariance 113
real*4 Ccov114 (nr__1) ! Contrast covariance 114
real*4 Ccov115 (nr__1) ! Contrast covariance 115
real*4 Ccov116 (nr__1) ! Contrast covariance 116
real*4 Ccov117 (nr__1) ! Contrast covariance 117
real*4 Ccov118 (nr__1) ! Contrast covariance 118
real*4 Ccov119 (nr__1) ! Contrast covariance 119
real*4 Ccov120 (nr__1) ! Contrast covariance 120
real*4 Ccov121 (nr__1) ! Contrast covariance 121
real*4 Ccov122 (nr__1) ! Contrast covariance 122
real*4 Ccov123 (nr__1) ! Contrast covariance 123
real*4 Ccov124 (nr__1) ! Contrast covariance 124
real*4 Ccov125 (nr__1) ! Contrast covariance 125
real*4 Ccov126 (nr__1) ! Contrast covariance 126
real*4 Ccov127 (nr__1) ! Contrast covariance 127
real*4 Ccov128 (nr__1) ! Contrast covariance 128
real*4 Ccov129 (nr__1) ! Contrast covariance 129
real*4 Ccov130 (nr__1) ! Contrast covariance 130
real*4 Ccov131 (nr__1) ! Contrast covariance 131
real*4 Ccov132 (nr__1) ! Contrast covariance 132
real*4 Ccov133 (nr__1) ! Contrast covariance 133
real*4 Ccov134 (nr__1) ! Contrast covariance 134
real*4 Ccov135 (nr__1) ! Contrast covariance 135
real*4 Ccov136 (nr__1) ! Contrast covariance 136
real*4 Ccov137 (nr__1) ! Contrast covariance 137
real*4 Ccov138 (nr__1) ! Contrast covariance 138
real*4 Ccov139 (nr__1) ! Contrast covariance 139
real*4 Ccov140 (nr__1) ! Contrast covariance 140
real*4 Ccov141 (nr__1) ! Contrast covariance 141
real*4 Ccov142 (nr__1) ! Contrast covariance 142
real*4 Ccov143 (nr__1) ! Contrast covariance 143
real*4 Ccov144 (nr__1) ! Contrast covariance 144
real*4 Ccov145 (nr__1) ! Contrast covariance 145
real*4 Ccov146 (nr__1) ! Contrast covariance 146
real*4 Ccov147 (nr__1) ! Contrast covariance 147
real*4 Ccov148 (nr__1) ! Contrast covariance 148
real*4 Ccov149 (nr__1) ! Contrast covariance 149
real*4 Ccov150 (nr__1) ! Contrast covariance 150
real*4 Ccov151 (nr__1) ! Contrast covariance 151
real*4 Ccov152 (nr__1) ! Contrast covariance 152
real*4 Ccov153 (nr__1) ! Contrast covariance 153
real*4 Ccov154 (nr__1) ! Contrast covariance 154
real*4 Ccov155 (nr__1) ! Contrast covariance 155
real*4 Ccov156 (nr__1) ! Contrast covariance 156
real*4 Ccov157 (nr__1) ! Contrast covariance 157
real*4 Ccov158 (nr__1) ! Contrast covariance 158
real*4 Ccov159 (nr__1) ! Contrast covariance 159
real*4 Ccov160 (nr__1) ! Contrast covariance 160
real*4 Ccov161 (nr__1) ! Contrast covariance 161
real*4 Ccov162 (nr__1) ! Contrast covariance 162
real*4 Ccov163 (nr__1) ! Contrast covariance 163
real*4 Ccov164 (nr__1) ! Contrast covariance 164
real*4 Ccov165 (nr__1) ! Contrast covariance 165
real*4 Ccov166 (nr__1) ! Contrast covariance 166
real*4 Ccov167 (nr__1) ! Contrast covariance 167
real*4 Ccov168 (nr__1) ! Contrast covariance 168
real*4 Ccov169 (nr__1) ! Contrast covariance 169
real*4 Ccov170 (nr__1) ! Contrast covariance 170
real*4 Ccov171 (nr__1) ! Contrast covariance 171
real*4 Ccov172 (nr__1) ! Contrast covariance 172
real*4 Ccov173 (nr__1) ! Contrast covariance 173
real*4 Ccov174 (nr__1) ! Contrast covariance 174
real*4 Ccov175 (nr__1) ! Contrast covariance 175
real*4 Ccov176 (nr__1) ! Contrast covariance 176
real*4 Ccov177 (nr__1) ! Contrast covariance 177
real*4 Ccov178 (nr__1) ! Contrast covariance 178
real*4 Ccov179 (nr__1) ! Contrast covariance 179
real*4 Ccov180 (nr__1) ! Contrast covariance 180
real*4 Ccov181 (nr__1) ! Contrast covariance 181
real*4 Ccov182 (nr__1) ! Contrast covariance 182
real*4 Ccov183 (nr__1) ! Contrast covariance 183
real*4 Ccov184 (nr__1) ! Contrast covariance 184
real*4 Ccov185 (nr__1) ! Contrast covariance 185
real*4 Ccov186 (nr__1) ! Contrast covariance 186
real*4 Ccov187 (nr__1) ! Contrast covariance 187
real*4 Ccov188 (nr__1) ! Contrast covariance 188
real*4 Ccov189 (nr__1) ! Contrast covariance 189
real*4 Ccov190 (nr__1) ! Contrast covariance 190
real*4 Ccov191 (nr__1) ! Contrast covariance 191
real*4 Ccov192 (nr__1) ! Contrast covariance 192
real*4 Ccov193 (nr__1) ! Contrast covariance 193
real*4 Ccov194 (nr__1) ! Contrast covariance 194
real*4 Ccov195 (nr__1) ! Contrast covariance 195
real*4 Ccov196 (nr__1) ! Contrast covariance 196
real*4 Ccov197 (nr__1) ! Contrast covariance 197
real*4 Ccov198 (nr__1) ! Contrast covariance 198
real*4 Ccov299 (nr__1) ! Contrast covariance 299
real*4 Ccov200 (nr__1) ! Contrast covariance 200
real*4 Ccov201 (nr__1) ! Contrast covariance 201
real*4 Ccov202 (nr__1) ! Contrast covariance 202
real*4 Ccov203 (nr__1) ! Contrast covariance 203
real*4 Ccov204 (nr__1) ! Contrast covariance 204
real*4 Ccov205 (nr__1) ! Contrast covariance 205
real*4 Ccov206 (nr__1) ! Contrast covariance 206
real*4 Ccov207 (nr__1) ! Contrast covariance 207
real*4 Ccov208 (nr__1) ! Contrast covariance 208
real*4 Ccov209 (nr__1) ! Contrast covariance 209
real*4 Ccov210 (nr__1) ! Contrast covariance 210
real*4 Ccov211 (nr__1) ! Contrast covariance 211
real*4 Ccov212 (nr__1) ! Contrast covariance 212
real*4 Ccov213 (nr__1) ! Contrast covariance 213
real*4 Ccov214 (nr__1) ! Contrast covariance 214
real*4 Ccov215 (nr__1) ! Contrast covariance 215
real*4 Ccov216 (nr__1) ! Contrast covariance 216
real*4 Ccov217 (nr__1) ! Contrast covariance 217
real*4 Ccov218 (nr__1) ! Contrast covariance 218
real*4 Ccov219 (nr__1) ! Contrast covariance 219
real*4 Ccov220 (nr__1) ! Contrast covariance 220
real*4 Ccov221 (nr__1) ! Contrast covariance 221
real*4 Ccov222 (nr__1) ! Contrast covariance 222
real*4 Ccov223 (nr__1) ! Contrast covariance 223
real*4 Ccov224 (nr__1) ! Contrast covariance 224
real*4 Ccov225 (nr__1) ! Contrast covariance 225
real*4 Ccov226 (nr__1) ! Contrast covariance 226
real*4 Ccov227 (nr__1) ! Contrast covariance 227
real*4 Ccov228 (nr__1) ! Contrast covariance 228
real*4 Ccov229 (nr__1) ! Contrast covariance 229
real*4 Ccov230 (nr__1) ! Contrast covariance 230
real*4 Ccov231 (nr__1) ! Contrast covariance 231
real*4 Ccov232 (nr__1) ! Contrast covariance 232
real*4 Ccov233 (nr__1) ! Contrast covariance 233
C=============================================================================
C Loading file 'fig2a.dat' ! SPHERE spectrum of AF Lep b (Data behing Figure 2)
C Format for file interpretation
1 format(
+ F5.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'fig2a.dat')
write(6,*) '....Loading file: fig2a.dat'
do i__=1,33
read(1,'(A685)')ar__
read(ar__,1)
+ Lambda(i__),Flux(i__),Cov1(i__),Cov2(i__),Cov3(i__),Cov4(i__),
+ Cov5(i__),Cov6(i__),Cov7(i__),Cov8(i__),Cov9(i__),Cov10(i__),
+ Cov11(i__),Cov12(i__),Cov13(i__),Cov14(i__),Cov15(i__),
+ Cov16(i__),Cov17(i__),Cov18(i__),Cov19(i__),Cov20(i__),
+ Cov21(i__),Cov22(i__),Cov23(i__),Cov24(i__),Cov25(i__),
+ Cov26(i__),Cov27(i__),Cov28(i__),Cov29(i__),Cov30(i__),
+ Cov31(i__),Cov32(i__),Cov33(i__),Contrast(i__),Ccov1(i__),
+ Ccov2(i__),Ccov3(i__),Ccov4(i__),Ccov5(i__),Ccov6(i__),
+ Ccov7(i__),Ccov8(i__),Ccov9(i__),Ccov10(i__),Ccov11(i__),
+ Ccov12(i__),Ccov13(i__),Ccov14(i__),Ccov15(i__),Ccov16(i__),
+ Ccov17(i__),Ccov18(i__),Ccov19(i__),Ccov20(i__),Ccov21(i__),
+ Ccov22(i__),Ccov23(i__),Ccov24(i__),Ccov25(i__),Ccov26(i__),
+ Ccov27(i__),Ccov28(i__),Ccov29(i__),Ccov30(i__),Ccov31(i__),
+ Ccov32(i__),Ccov33(i__)
c ..............Just test output...........
write(6,1)
+ Lambda(i__),Flux(i__),Cov1(i__),Cov2(i__),Cov3(i__),Cov4(i__),
+ Cov5(i__),Cov6(i__),Cov7(i__),Cov8(i__),Cov9(i__),Cov10(i__),
+ Cov11(i__),Cov12(i__),Cov13(i__),Cov14(i__),Cov15(i__),
+ Cov16(i__),Cov17(i__),Cov18(i__),Cov19(i__),Cov20(i__),
+ Cov21(i__),Cov22(i__),Cov23(i__),Cov24(i__),Cov25(i__),
+ Cov26(i__),Cov27(i__),Cov28(i__),Cov29(i__),Cov30(i__),
+ Cov31(i__),Cov32(i__),Cov33(i__),Contrast(i__),Ccov1(i__),
+ Ccov2(i__),Ccov3(i__),Ccov4(i__),Ccov5(i__),Ccov6(i__),
+ Ccov7(i__),Ccov8(i__),Ccov9(i__),Ccov10(i__),Ccov11(i__),
+ Ccov12(i__),Ccov13(i__),Ccov14(i__),Ccov15(i__),Ccov16(i__),
+ Ccov17(i__),Ccov18(i__),Ccov19(i__),Ccov20(i__),Ccov21(i__),
+ Ccov22(i__),Ccov23(i__),Ccov24(i__),Ccov25(i__),Ccov26(i__),
+ Ccov27(i__),Ccov28(i__),Ccov29(i__),Ccov30(i__),Ccov31(i__),
+ Ccov32(i__),Ccov33(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'fig2b.dat' ! GRAVITY spectrum of AF Lep b (Data behind Figure 2)
C Format for file interpretation
2 format(
+ F5.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,
+ 1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,
+ E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3)
C Effective file loading
open(unit=1,status='old',file=
+'fig2b.dat')
write(6,*) '....Loading file: fig2b.dat'
do i__=1,233
read(1,'(A5153)')ar__1
read(ar__1,2)
+ Lambda_1(i__),Flux_1(i__),Cov1_1(i__),Cov2_1(i__),Cov3_1(i__),
+ Cov4_1(i__),Cov5_1(i__),Cov6_1(i__),Cov7_1(i__),Cov8_1(i__),
+ Cov9_1(i__),Cov10_1(i__),Cov11_1(i__),Cov12_1(i__),
+ Cov13_1(i__),Cov14_1(i__),Cov15_1(i__),Cov16_1(i__),
+ Cov17_1(i__),Cov18_1(i__),Cov19_1(i__),Cov20_1(i__),
+ Cov21_1(i__),Cov22_1(i__),Cov23_1(i__),Cov24_1(i__),
+ Cov25_1(i__),Cov26_1(i__),Cov27_1(i__),Cov28_1(i__),
+ Cov29_1(i__),Cov30_1(i__),Cov31_1(i__),Cov32_1(i__),
+ Cov33_1(i__),Cov34(i__),Cov35(i__),Cov36(i__),Cov37(i__),
+ Cov38(i__),Cov39(i__),Cov40(i__),Cov41(i__),Cov42(i__),
+ Cov43(i__),Cov44(i__),Cov45(i__),Cov46(i__),Cov47(i__),
+ Cov48(i__),Cov49(i__),Cov50(i__),Cov51(i__),Cov52(i__),
+ Cov53(i__),Cov54(i__),Cov55(i__),Cov56(i__),Cov57(i__),
+ Cov58(i__),Cov59(i__),Cov60(i__),Cov61(i__),Cov62(i__),
+ Cov63(i__),Cov64(i__),Cov65(i__),Cov66(i__),Cov67(i__),
+ Cov68(i__),Cov69(i__),Cov70(i__),Cov71(i__),Cov72(i__),
+ Cov73(i__),Cov74(i__),Cov75(i__),Cov76(i__),Cov77(i__),
+ Cov78(i__),Cov79(i__),Cov80(i__),Cov81(i__),Cov82(i__),
+ Cov83(i__),Cov84(i__),Cov85(i__),Cov86(i__),Cov87(i__),
+ Cov88(i__),Cov89(i__),Cov90(i__),Cov91(i__),Cov92(i__),
+ Cov93(i__),Cov94(i__),Cov95(i__),Cov96(i__),Cov97(i__),
+ Cov98(i__),Cov99(i__),Cov100(i__),Cov101(i__),Cov102(i__),
+ Cov103(i__),Cov104(i__),Cov105(i__),Cov106(i__),Cov107(i__),
+ Cov108(i__),Cov109(i__),Cov110(i__),Cov111(i__),Cov112(i__),
+ Cov113(i__),Cov114(i__),Cov115(i__),Cov116(i__),Cov117(i__),
+ Cov118(i__),Cov119(i__),Cov120(i__),Cov121(i__),Cov122(i__),
+ Cov123(i__),Cov124(i__),Cov125(i__),Cov126(i__),Cov127(i__),
+ Cov128(i__),Cov129(i__),Cov130(i__),Cov131(i__),Cov132(i__),
+ Cov133(i__),Cov134(i__),Cov135(i__),Cov136(i__),Cov137(i__),
+ Cov138(i__),Cov139(i__),Cov140(i__),Cov141(i__),Cov142(i__),
+ Cov143(i__),Cov144(i__),Cov145(i__),Cov146(i__),Cov147(i__),
+ Cov148(i__),Cov149(i__),Cov150(i__),Cov151(i__),Cov152(i__),
+ Cov153(i__),Cov154(i__),Cov155(i__),Cov156(i__),Cov157(i__),
+ Cov158(i__),Cov159(i__),Cov160(i__),Cov161(i__),Cov162(i__),
+ Cov163(i__),Cov164(i__),Cov165(i__),Cov166(i__),Cov167(i__),
+ Cov168(i__),Cov169(i__),Cov170(i__),Cov171(i__),Cov172(i__),
+ Cov173(i__),Cov174(i__),Cov175(i__),Cov176(i__),Cov177(i__),
+ Cov178(i__),Cov179(i__),Cov180(i__),Cov181(i__),Cov182(i__),
+ Cov183(i__),Cov184(i__),Cov185(i__),Cov186(i__),Cov187(i__),
+ Cov188(i__),Cov189(i__),Cov190(i__),Cov191(i__),Cov192(i__),
+ Cov193(i__),Cov194(i__),Cov195(i__),Cov196(i__),Cov197(i__),
+ Cov198(i__),Cov299(i__),Cov200(i__),Cov201(i__),Cov202(i__),
+ Cov203(i__),Cov204(i__),Cov205(i__),Cov206(i__),Cov207(i__),
+ Cov208(i__),Cov209(i__),Cov210(i__),Cov211(i__),Cov212(i__),
+ Cov213(i__),Cov214(i__),Cov215(i__),Cov216(i__),Cov217(i__),
+ Cov218(i__),Cov219(i__),Cov220(i__),Cov221(i__),Cov222(i__),
+ Cov223(i__),Cov224(i__),Cov225(i__),Cov226(i__),Cov227(i__),
+ Cov228(i__),Cov229(i__),Cov230(i__),Cov231(i__),Cov232(i__),
+ Cov233(i__),Contrast_1(i__),Ccov1_1(i__),Ccov2_1(i__),
+ Ccov3_1(i__),Ccov4_1(i__),Ccov5_1(i__),Ccov6_1(i__),
+ Ccov7_1(i__),Ccov8_1(i__),Ccov9_1(i__),Ccov10_1(i__),
+ Ccov11_1(i__),Ccov12_1(i__),Ccov13_1(i__),Ccov14_1(i__),
+ Ccov15_1(i__),Ccov16_1(i__),Ccov17_1(i__),Ccov18_1(i__),
+ Ccov19_1(i__),Ccov20_1(i__),Ccov21_1(i__),Ccov22_1(i__),
+ Ccov23_1(i__),Ccov24_1(i__),Ccov25_1(i__),Ccov26_1(i__),
+ Ccov27_1(i__),Ccov28_1(i__),Ccov29_1(i__),Ccov30_1(i__),
+ Ccov31_1(i__),Ccov32_1(i__),Ccov33_1(i__),Ccov34(i__),
+ Ccov35(i__),Ccov36(i__),Ccov37(i__),Ccov38(i__),Ccov39(i__),
+ Ccov40(i__),Ccov41(i__),Ccov42(i__),Ccov43(i__),Ccov44(i__),
+ Ccov45(i__),Ccov46(i__),Ccov47(i__),Ccov48(i__),Ccov49(i__),
+ Ccov50(i__),Ccov51(i__),Ccov52(i__),Ccov53(i__),Ccov54(i__),
+ Ccov55(i__),Ccov56(i__),Ccov57(i__),Ccov58(i__),Ccov59(i__),
+ Ccov60(i__),Ccov61(i__),Ccov62(i__),Ccov63(i__),Ccov64(i__),
+ Ccov65(i__),Ccov66(i__),Ccov67(i__),Ccov68(i__),Ccov69(i__),
+ Ccov70(i__),Ccov71(i__),Ccov72(i__),Ccov73(i__),Ccov74(i__),
+ Ccov75(i__),Ccov76(i__),Ccov77(i__),Ccov78(i__),Ccov79(i__),
+ Ccov80(i__),Ccov81(i__),Ccov82(i__),Ccov83(i__),Ccov84(i__),
+ Ccov85(i__),Ccov86(i__),Ccov87(i__),Ccov88(i__),Ccov89(i__),
+ Ccov90(i__),Ccov91(i__),Ccov92(i__),Ccov93(i__),Ccov94(i__),
+ Ccov95(i__),Ccov96(i__),Ccov97(i__),Ccov98(i__),Ccov99(i__),
+ Ccov100(i__),Ccov101(i__),Ccov102(i__),Ccov103(i__),
+ Ccov104(i__),Ccov105(i__),Ccov106(i__),Ccov107(i__),
+ Ccov108(i__),Ccov109(i__),Ccov110(i__),Ccov111(i__),
+ Ccov112(i__),Ccov113(i__),Ccov114(i__),Ccov115(i__),
+ Ccov116(i__),Ccov117(i__),Ccov118(i__),Ccov119(i__),
+ Ccov120(i__),Ccov121(i__),Ccov122(i__),Ccov123(i__),
+ Ccov124(i__),Ccov125(i__),Ccov126(i__),Ccov127(i__),
+ Ccov128(i__),Ccov129(i__),Ccov130(i__),Ccov131(i__),
+ Ccov132(i__),Ccov133(i__),Ccov134(i__),Ccov135(i__),
+ Ccov136(i__),Ccov137(i__),Ccov138(i__),Ccov139(i__),
+ Ccov140(i__),Ccov141(i__),Ccov142(i__),Ccov143(i__),
+ Ccov144(i__),Ccov145(i__),Ccov146(i__),Ccov147(i__),
+ Ccov148(i__),Ccov149(i__),Ccov150(i__),Ccov151(i__),
+ Ccov152(i__),Ccov153(i__),Ccov154(i__),Ccov155(i__),
+ Ccov156(i__),Ccov157(i__),Ccov158(i__),Ccov159(i__),
+ Ccov160(i__),Ccov161(i__),Ccov162(i__),Ccov163(i__),
+ Ccov164(i__),Ccov165(i__),Ccov166(i__),Ccov167(i__),
+ Ccov168(i__),Ccov169(i__),Ccov170(i__),Ccov171(i__),
+ Ccov172(i__),Ccov173(i__),Ccov174(i__),Ccov175(i__),
+ Ccov176(i__),Ccov177(i__),Ccov178(i__),Ccov179(i__),
+ Ccov180(i__),Ccov181(i__),Ccov182(i__),Ccov183(i__),
+ Ccov184(i__),Ccov185(i__),Ccov186(i__),Ccov187(i__),
+ Ccov188(i__),Ccov189(i__),Ccov190(i__),Ccov191(i__),
+ Ccov192(i__),Ccov193(i__),Ccov194(i__),Ccov195(i__),
+ Ccov196(i__),Ccov197(i__),Ccov198(i__),Ccov299(i__),
+ Ccov200(i__),Ccov201(i__),Ccov202(i__),Ccov203(i__),
+ Ccov204(i__),Ccov205(i__),Ccov206(i__),Ccov207(i__),
+ Ccov208(i__),Ccov209(i__),Ccov210(i__),Ccov211(i__),
+ Ccov212(i__),Ccov213(i__),Ccov214(i__),Ccov215(i__),
+ Ccov216(i__),Ccov217(i__),Ccov218(i__),Ccov219(i__),
+ Ccov220(i__),Ccov221(i__),Ccov222(i__),Ccov223(i__),
+ Ccov224(i__),Ccov225(i__),Ccov226(i__),Ccov227(i__),
+ Ccov228(i__),Ccov229(i__),Ccov230(i__),Ccov231(i__),
+ Ccov232(i__),Ccov233(i__)
c ..............Just test output...........
write(6,2)
+ Lambda_1(i__),Flux_1(i__),Cov1_1(i__),Cov2_1(i__),Cov3_1(i__),
+ Cov4_1(i__),Cov5_1(i__),Cov6_1(i__),Cov7_1(i__),Cov8_1(i__),
+ Cov9_1(i__),Cov10_1(i__),Cov11_1(i__),Cov12_1(i__),
+ Cov13_1(i__),Cov14_1(i__),Cov15_1(i__),Cov16_1(i__),
+ Cov17_1(i__),Cov18_1(i__),Cov19_1(i__),Cov20_1(i__),
+ Cov21_1(i__),Cov22_1(i__),Cov23_1(i__),Cov24_1(i__),
+ Cov25_1(i__),Cov26_1(i__),Cov27_1(i__),Cov28_1(i__),
+ Cov29_1(i__),Cov30_1(i__),Cov31_1(i__),Cov32_1(i__),
+ Cov33_1(i__),Cov34(i__),Cov35(i__),Cov36(i__),Cov37(i__),
+ Cov38(i__),Cov39(i__),Cov40(i__),Cov41(i__),Cov42(i__),
+ Cov43(i__),Cov44(i__),Cov45(i__),Cov46(i__),Cov47(i__),
+ Cov48(i__),Cov49(i__),Cov50(i__),Cov51(i__),Cov52(i__),
+ Cov53(i__),Cov54(i__),Cov55(i__),Cov56(i__),Cov57(i__),
+ Cov58(i__),Cov59(i__),Cov60(i__),Cov61(i__),Cov62(i__),
+ Cov63(i__),Cov64(i__),Cov65(i__),Cov66(i__),Cov67(i__),
+ Cov68(i__),Cov69(i__),Cov70(i__),Cov71(i__),Cov72(i__),
+ Cov73(i__),Cov74(i__),Cov75(i__),Cov76(i__),Cov77(i__),
+ Cov78(i__),Cov79(i__),Cov80(i__),Cov81(i__),Cov82(i__),
+ Cov83(i__),Cov84(i__),Cov85(i__),Cov86(i__),Cov87(i__),
+ Cov88(i__),Cov89(i__),Cov90(i__),Cov91(i__),Cov92(i__),
+ Cov93(i__),Cov94(i__),Cov95(i__),Cov96(i__),Cov97(i__),
+ Cov98(i__),Cov99(i__),Cov100(i__),Cov101(i__),Cov102(i__),
+ Cov103(i__),Cov104(i__),Cov105(i__),Cov106(i__),Cov107(i__),
+ Cov108(i__),Cov109(i__),Cov110(i__),Cov111(i__),Cov112(i__),
+ Cov113(i__),Cov114(i__),Cov115(i__),Cov116(i__),Cov117(i__),
+ Cov118(i__),Cov119(i__),Cov120(i__),Cov121(i__),Cov122(i__),
+ Cov123(i__),Cov124(i__),Cov125(i__),Cov126(i__),Cov127(i__),
+ Cov128(i__),Cov129(i__),Cov130(i__),Cov131(i__),Cov132(i__),
+ Cov133(i__),Cov134(i__),Cov135(i__),Cov136(i__),Cov137(i__),
+ Cov138(i__),Cov139(i__),Cov140(i__),Cov141(i__),Cov142(i__),
+ Cov143(i__),Cov144(i__),Cov145(i__),Cov146(i__),Cov147(i__),
+ Cov148(i__),Cov149(i__),Cov150(i__),Cov151(i__),Cov152(i__),
+ Cov153(i__),Cov154(i__),Cov155(i__),Cov156(i__),Cov157(i__),
+ Cov158(i__),Cov159(i__),Cov160(i__),Cov161(i__),Cov162(i__),
+ Cov163(i__),Cov164(i__),Cov165(i__),Cov166(i__),Cov167(i__),
+ Cov168(i__),Cov169(i__),Cov170(i__),Cov171(i__),Cov172(i__),
+ Cov173(i__),Cov174(i__),Cov175(i__),Cov176(i__),Cov177(i__),
+ Cov178(i__),Cov179(i__),Cov180(i__),Cov181(i__),Cov182(i__),
+ Cov183(i__),Cov184(i__),Cov185(i__),Cov186(i__),Cov187(i__),
+ Cov188(i__),Cov189(i__),Cov190(i__),Cov191(i__),Cov192(i__),
+ Cov193(i__),Cov194(i__),Cov195(i__),Cov196(i__),Cov197(i__),
+ Cov198(i__),Cov299(i__),Cov200(i__),Cov201(i__),Cov202(i__),
+ Cov203(i__),Cov204(i__),Cov205(i__),Cov206(i__),Cov207(i__),
+ Cov208(i__),Cov209(i__),Cov210(i__),Cov211(i__),Cov212(i__),
+ Cov213(i__),Cov214(i__),Cov215(i__),Cov216(i__),Cov217(i__),
+ Cov218(i__),Cov219(i__),Cov220(i__),Cov221(i__),Cov222(i__),
+ Cov223(i__),Cov224(i__),Cov225(i__),Cov226(i__),Cov227(i__),
+ Cov228(i__),Cov229(i__),Cov230(i__),Cov231(i__),Cov232(i__),
+ Cov233(i__),Contrast_1(i__),Ccov1_1(i__),Ccov2_1(i__),
+ Ccov3_1(i__),Ccov4_1(i__),Ccov5_1(i__),Ccov6_1(i__),
+ Ccov7_1(i__),Ccov8_1(i__),Ccov9_1(i__),Ccov10_1(i__),
+ Ccov11_1(i__),Ccov12_1(i__),Ccov13_1(i__),Ccov14_1(i__),
+ Ccov15_1(i__),Ccov16_1(i__),Ccov17_1(i__),Ccov18_1(i__),
+ Ccov19_1(i__),Ccov20_1(i__),Ccov21_1(i__),Ccov22_1(i__),
+ Ccov23_1(i__),Ccov24_1(i__),Ccov25_1(i__),Ccov26_1(i__),
+ Ccov27_1(i__),Ccov28_1(i__),Ccov29_1(i__),Ccov30_1(i__),
+ Ccov31_1(i__),Ccov32_1(i__),Ccov33_1(i__),Ccov34(i__),
+ Ccov35(i__),Ccov36(i__),Ccov37(i__),Ccov38(i__),Ccov39(i__),
+ Ccov40(i__),Ccov41(i__),Ccov42(i__),Ccov43(i__),Ccov44(i__),
+ Ccov45(i__),Ccov46(i__),Ccov47(i__),Ccov48(i__),Ccov49(i__),
+ Ccov50(i__),Ccov51(i__),Ccov52(i__),Ccov53(i__),Ccov54(i__),
+ Ccov55(i__),Ccov56(i__),Ccov57(i__),Ccov58(i__),Ccov59(i__),
+ Ccov60(i__),Ccov61(i__),Ccov62(i__),Ccov63(i__),Ccov64(i__),
+ Ccov65(i__),Ccov66(i__),Ccov67(i__),Ccov68(i__),Ccov69(i__),
+ Ccov70(i__),Ccov71(i__),Ccov72(i__),Ccov73(i__),Ccov74(i__),
+ Ccov75(i__),Ccov76(i__),Ccov77(i__),Ccov78(i__),Ccov79(i__),
+ Ccov80(i__),Ccov81(i__),Ccov82(i__),Ccov83(i__),Ccov84(i__),
+ Ccov85(i__),Ccov86(i__),Ccov87(i__),Ccov88(i__),Ccov89(i__),
+ Ccov90(i__),Ccov91(i__),Ccov92(i__),Ccov93(i__),Ccov94(i__),
+ Ccov95(i__),Ccov96(i__),Ccov97(i__),Ccov98(i__),Ccov99(i__),
+ Ccov100(i__),Ccov101(i__),Ccov102(i__),Ccov103(i__),
+ Ccov104(i__),Ccov105(i__),Ccov106(i__),Ccov107(i__),
+ Ccov108(i__),Ccov109(i__),Ccov110(i__),Ccov111(i__),
+ Ccov112(i__),Ccov113(i__),Ccov114(i__),Ccov115(i__),
+ Ccov116(i__),Ccov117(i__),Ccov118(i__),Ccov119(i__),
+ Ccov120(i__),Ccov121(i__),Ccov122(i__),Ccov123(i__),
+ Ccov124(i__),Ccov125(i__),Ccov126(i__),Ccov127(i__),
+ Ccov128(i__),Ccov129(i__),Ccov130(i__),Ccov131(i__),
+ Ccov132(i__),Ccov133(i__),Ccov134(i__),Ccov135(i__),
+ Ccov136(i__),Ccov137(i__),Ccov138(i__),Ccov139(i__),
+ Ccov140(i__),Ccov141(i__),Ccov142(i__),Ccov143(i__),
+ Ccov144(i__),Ccov145(i__),Ccov146(i__),Ccov147(i__),
+ Ccov148(i__),Ccov149(i__),Ccov150(i__),Ccov151(i__),
+ Ccov152(i__),Ccov153(i__),Ccov154(i__),Ccov155(i__),
+ Ccov156(i__),Ccov157(i__),Ccov158(i__),Ccov159(i__),
+ Ccov160(i__),Ccov161(i__),Ccov162(i__),Ccov163(i__),
+ Ccov164(i__),Ccov165(i__),Ccov166(i__),Ccov167(i__),
+ Ccov168(i__),Ccov169(i__),Ccov170(i__),Ccov171(i__),
+ Ccov172(i__),Ccov173(i__),Ccov174(i__),Ccov175(i__),
+ Ccov176(i__),Ccov177(i__),Ccov178(i__),Ccov179(i__),
+ Ccov180(i__),Ccov181(i__),Ccov182(i__),Ccov183(i__),
+ Ccov184(i__),Ccov185(i__),Ccov186(i__),Ccov187(i__),
+ Ccov188(i__),Ccov189(i__),Ccov190(i__),Ccov191(i__),
+ Ccov192(i__),Ccov193(i__),Ccov194(i__),Ccov195(i__),
+ Ccov196(i__),Ccov197(i__),Ccov198(i__),Ccov299(i__),
+ Ccov200(i__),Ccov201(i__),Ccov202(i__),Ccov203(i__),
+ Ccov204(i__),Ccov205(i__),Ccov206(i__),Ccov207(i__),
+ Ccov208(i__),Ccov209(i__),Ccov210(i__),Ccov211(i__),
+ Ccov212(i__),Ccov213(i__),Ccov214(i__),Ccov215(i__),
+ Ccov216(i__),Ccov217(i__),Ccov218(i__),Ccov219(i__),
+ Ccov220(i__),Ccov221(i__),Ccov222(i__),Ccov223(i__),
+ Ccov224(i__),Ccov225(i__),Ccov226(i__),Ccov227(i__),
+ Ccov228(i__),Ccov229(i__),Ccov230(i__),Ccov231(i__),
+ Ccov232(i__),Ccov233(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end