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