Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/615/A45 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-Mar-29 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/615/A45 NIR K-corrections (Stanishev+, 2018) *================================================================================ *Type Ia supernova Hubble diagram with near-infrared and optical observations. * Stanishev V., Goobar A., Amanullah R., Bassett B., Fantaye Y.T., * Garnavich P., Hlozek R., Nordin J., Okouma P.M., Ostman L., Sako M., * Scalzo R., Smith M. * <Astron. Astrophys. 615, A45 (2018)> * =2018A&A...615A..45S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hmko-2m.dat' ! NIR H-H K-corrections from MKO to 2MASS photometric systems integer*4 nr__ parameter (nr__=57) ! Number of records character*232 ar__ ! Full-size record integer*4 Phase (nr__) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1 (nr__) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2 (nr__) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3 (nr__) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4 (nr__) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5 (nr__) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6 (nr__) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7 (nr__) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8 (nr__) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9 (nr__) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10 (nr__) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11 (nr__) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12 (nr__) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13 (nr__) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14 (nr__) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15 (nr__) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16 (nr__) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17 (nr__) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18 (nr__) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19 (nr__) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20 (nr__) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21 (nr__) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22 (nr__) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23 (nr__) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hmko-csp.dat' ! NIR H-H K-corrections from MKO to CSP photometric systems integer*4 nr__1 parameter (nr__1=57) ! Number of records character*232 ar__1 ! Full-size record integer*4 Phase_1 (nr__1) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1_1 (nr__1) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2_1 (nr__1) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3_1 (nr__1) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4_1 (nr__1) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5_1 (nr__1) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6_1 (nr__1) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7_1 (nr__1) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8_1 (nr__1) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9_1 (nr__1) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10_1 (nr__1) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11_1 (nr__1) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12_1 (nr__1) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13_1 (nr__1) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14_1 (nr__1) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15_1 (nr__1) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16_1 (nr__1) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17_1 (nr__1) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18_1 (nr__1) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19_1 (nr__1) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20_1 (nr__1) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21_1 (nr__1) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22_1 (nr__1) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23_1 (nr__1) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hmko-mko.dat' ! NIR H-H K-corrections from MKO to MKO photometric systems integer*4 nr__2 parameter (nr__2=57) ! Number of records character*232 ar__2 ! Full-size record integer*4 Phase_2 (nr__2) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1_2 (nr__2) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2_2 (nr__2) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3_2 (nr__2) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4_2 (nr__2) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5_2 (nr__2) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6_2 (nr__2) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7_2 (nr__2) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8_2 (nr__2) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9_2 (nr__2) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10_2 (nr__2) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11_2 (nr__2) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12_2 (nr__2) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13_2 (nr__2) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14_2 (nr__2) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15_2 (nr__2) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16_2 (nr__2) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17_2 (nr__2) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18_2 (nr__2) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19_2 (nr__2) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20_2 (nr__2) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21_2 (nr__2) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22_2 (nr__2) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23_2 (nr__2) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'jmko-2m.dat' ! NIR J-J K-corrections from MKO to 2MASS photometric systems integer*4 nr__3 parameter (nr__3=57) ! Number of records character*232 ar__3 ! Full-size record integer*4 Phase_3 (nr__3) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1_3 (nr__3) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2_3 (nr__3) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3_3 (nr__3) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4_3 (nr__3) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5_3 (nr__3) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6_3 (nr__3) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7_3 (nr__3) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8_3 (nr__3) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9_3 (nr__3) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10_3 (nr__3) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11_3 (nr__3) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12_3 (nr__3) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13_3 (nr__3) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14_3 (nr__3) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15_3 (nr__3) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16_3 (nr__3) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17_3 (nr__3) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18_3 (nr__3) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19_3 (nr__3) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20_3 (nr__3) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21_3 (nr__3) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22_3 (nr__3) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23_3 (nr__3) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'jmko-csp.dat' ! NIR J-J K-corrections from MKO to CSP photometric systems integer*4 nr__4 parameter (nr__4=57) ! Number of records character*232 ar__4 ! Full-size record integer*4 Phase_4 (nr__4) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1_4 (nr__4) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2_4 (nr__4) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3_4 (nr__4) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4_4 (nr__4) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5_4 (nr__4) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6_4 (nr__4) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7_4 (nr__4) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8_4 (nr__4) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9_4 (nr__4) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10_4 (nr__4) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11_4 (nr__4) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12_4 (nr__4) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13_4 (nr__4) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14_4 (nr__4) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15_4 (nr__4) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16_4 (nr__4) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17_4 (nr__4) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18_4 (nr__4) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19_4 (nr__4) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20_4 (nr__4) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21_4 (nr__4) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22_4 (nr__4) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23_4 (nr__4) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'jmko-mko.dat' ! NIR J-J K-corrections from MKO to MKO photometric systems integer*4 nr__5 parameter (nr__5=57) ! Number of records character*232 ar__5 ! Full-size record integer*4 Phase_5 (nr__5) ! (d) [-16/40] Supernova phase * from -16 day to +40 day real*4 Kcor1_5 (nr__5) ! (mag) K-correction for z=0.003 (1) real*4 Kcor2_5 (nr__5) ! (mag) K-correction for z=0.005 (1) real*4 Kcor3_5 (nr__5) ! (mag) K-correction for z=0.007 (1) real*4 Kcor4_5 (nr__5) ! (mag) K-correction for z=0.010 (1) real*4 Kcor5_5 (nr__5) ! (mag) K-correction for z=0.015 (1) real*4 Kcor6_5 (nr__5) ! (mag) K-correction for z=0.020 (1) real*4 Kcor7_5 (nr__5) ! (mag) K-correction for z=0.025 (1) real*4 Kcor8_5 (nr__5) ! (mag) K-correction for z=0.030 (1) real*4 Kcor9_5 (nr__5) ! (mag) K-correction for z=0.035 (1) real*4 Kcor10_5 (nr__5) ! (mag) K-correction for z=0.040 (1) real*4 Kcor11_5 (nr__5) ! (mag) K-correction for z=0.045 (1) real*4 Kcor12_5 (nr__5) ! (mag) K-correction for z=0.050 (1) real*4 Kcor13_5 (nr__5) ! (mag) K-correction for z=0.055 (1) real*4 Kcor14_5 (nr__5) ! (mag) K-correction for z=0.060 (1) real*4 Kcor15_5 (nr__5) ! (mag) ? K-correction for z=0.070 (1) real*4 Kcor16_5 (nr__5) ! (mag) ? K-correction for z=0.080 (1) real*4 Kcor17_5 (nr__5) ! (mag) ? K-correction for z=0.090 (1) real*4 Kcor18_5 (nr__5) ! (mag) ? K-correction for z=0.100 (1) real*4 Kcor19_5 (nr__5) ! (mag) ? K-correction for z=0.110 (1) real*4 Kcor20_5 (nr__5) ! (mag) ? K-correction for z=0.120 (1) real*4 Kcor21_5 (nr__5) ! (mag) ? K-correction for z=0.130 (1) real*4 Kcor22_5 (nr__5) ! (mag) ? K-correction for z=0.140 (1) real*4 Kcor23_5 (nr__5) ! (mag) ? K-correction for z=0.171 (1) *Note (1): Typical error on Kcorrection in kcorerr.dat file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'kcorerr.dat' ! K-correction errors integer*4 nr__6 parameter (nr__6=6) ! Number of records character*150 ar__6 ! Full-size record character*12 Table (nr__6) ! Table name real*4 eKcor0_003 (nr__6) ! (mag) K-correction error for z=0.003 real*4 eKcor0_005 (nr__6) ! (mag) K-correction error for z=0.005 real*4 eKcor0_007 (nr__6) ! (mag) K-correction error for z=0.007 real*4 eKcor0_010 (nr__6) ! (mag) K-correction error for z=0.010 real*4 eKcor0_015 (nr__6) ! (mag) K-correction error for z=0.015 real*4 eKcor0_020 (nr__6) ! (mag) K-correction error for z=0.020 real*4 eKcor0_025 (nr__6) ! (mag) K-correction error for z=0.025 real*4 eKcor0_030 (nr__6) ! (mag) K-correction error for z=0.030 real*4 eKcor0_035 (nr__6) ! (mag) K-correction error for z=0.035 real*4 eKcor0_040 (nr__6) ! (mag) K-correction error for z=0.040 real*4 eKcor0_045 (nr__6) ! (mag) K-correction error for z=0.045 real*4 eKcor0_050 (nr__6) ! (mag) K-correction error for z=0.050 real*4 eKcor0_055 (nr__6) ! (mag) K-correction error for z=0.055 real*4 eKcor0_060 (nr__6) ! (mag) ? K-correction error for z=0.060 real*4 eKcor0_070 (nr__6) ! (mag) ? K-correction error for z=0.070 real*4 eKcor0_080 (nr__6) ! (mag) ? K-correction error for z=0.080 real*4 eKcor0_090 (nr__6) ! (mag) ? K-correction error for z=0.090 real*4 eKcor0_100 (nr__6) ! (mag) ? K-correction error for z=0.100 real*4 eKcor0_110 (nr__6) ! (mag) ? K-correction error for z=0.110 real*4 eKcor0_120 (nr__6) ! (mag) ? K-correction error for z=0.120 real*4 eKcor0_130 (nr__6) ! (mag) ? K-correction error for z=0.130 real*4 eKcor0_140 (nr__6) ! (mag) ? K-correction error for z=0.140 real*4 eKcor0_171 (nr__6) ! (mag) ? K-correction error for z=0.171 C============================================================================= C Loading file 'hmko-2m.dat' ! NIR H-H K-corrections from MKO to 2MASS * photometric systems C Format for file interpretation 1 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'hmko-2m.dat') write(6,*) '....Loading file: hmko-2m.dat' do i__=1,57 read(1,'(A232)')ar__ read(ar__,1) + Phase(i__),Kcor1(i__),Kcor2(i__),Kcor3(i__),Kcor4(i__), + Kcor5(i__),Kcor6(i__),Kcor7(i__),Kcor8(i__),Kcor9(i__), + Kcor10(i__),Kcor11(i__),Kcor12(i__),Kcor13(i__),Kcor14(i__), + Kcor15(i__),Kcor16(i__),Kcor17(i__),Kcor18(i__),Kcor19(i__), + Kcor20(i__),Kcor21(i__),Kcor22(i__),Kcor23(i__) if(ar__(147:152) .EQ. '') Kcor15(i__) = rNULL__ if(ar__(157:162) .EQ. '') Kcor16(i__) = rNULL__ if(ar__(167:172) .EQ. '') Kcor17(i__) = rNULL__ if(ar__(177:182) .EQ. '') Kcor18(i__) = rNULL__ if(ar__(187:192) .EQ. '') Kcor19(i__) = rNULL__ if(ar__(197:202) .EQ. '') Kcor20(i__) = rNULL__ if(ar__(207:212) .EQ. '') Kcor21(i__) = rNULL__ if(ar__(217:222) .EQ. '') Kcor22(i__) = rNULL__ if(ar__(227:232) .EQ. '') Kcor23(i__) = rNULL__ c ..............Just test output........... write(6,1) + Phase(i__),Kcor1(i__),Kcor2(i__),Kcor3(i__),Kcor4(i__), + Kcor5(i__),Kcor6(i__),Kcor7(i__),Kcor8(i__),Kcor9(i__), + Kcor10(i__),Kcor11(i__),Kcor12(i__),Kcor13(i__),Kcor14(i__), + Kcor15(i__),Kcor16(i__),Kcor17(i__),Kcor18(i__),Kcor19(i__), + Kcor20(i__),Kcor21(i__),Kcor22(i__),Kcor23(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'hmko-csp.dat' ! NIR H-H K-corrections from MKO to CSP * photometric systems C Format for file interpretation 2 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'hmko-csp.dat') write(6,*) '....Loading file: hmko-csp.dat' do i__=1,57 read(1,'(A232)')ar__1 read(ar__1,2) + Phase_1(i__),Kcor1_1(i__),Kcor2_1(i__),Kcor3_1(i__), + Kcor4_1(i__),Kcor5_1(i__),Kcor6_1(i__),Kcor7_1(i__), + Kcor8_1(i__),Kcor9_1(i__),Kcor10_1(i__),Kcor11_1(i__), + Kcor12_1(i__),Kcor13_1(i__),Kcor14_1(i__),Kcor15_1(i__), + Kcor16_1(i__),Kcor17_1(i__),Kcor18_1(i__),Kcor19_1(i__), + Kcor20_1(i__),Kcor21_1(i__),Kcor22_1(i__),Kcor23_1(i__) if(ar__1(147:152) .EQ. '') Kcor15_1(i__) = rNULL__ if(ar__1(157:162) .EQ. '') Kcor16_1(i__) = rNULL__ if(ar__1(167:172) .EQ. '') Kcor17_1(i__) = rNULL__ if(ar__1(177:182) .EQ. '') Kcor18_1(i__) = rNULL__ if(ar__1(187:192) .EQ. '') Kcor19_1(i__) = rNULL__ if(ar__1(197:202) .EQ. '') Kcor20_1(i__) = rNULL__ if(ar__1(207:212) .EQ. '') Kcor21_1(i__) = rNULL__ if(ar__1(217:222) .EQ. '') Kcor22_1(i__) = rNULL__ if(ar__1(227:232) .EQ. '') Kcor23_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + Phase_1(i__),Kcor1_1(i__),Kcor2_1(i__),Kcor3_1(i__), + Kcor4_1(i__),Kcor5_1(i__),Kcor6_1(i__),Kcor7_1(i__), + Kcor8_1(i__),Kcor9_1(i__),Kcor10_1(i__),Kcor11_1(i__), + Kcor12_1(i__),Kcor13_1(i__),Kcor14_1(i__),Kcor15_1(i__), + Kcor16_1(i__),Kcor17_1(i__),Kcor18_1(i__),Kcor19_1(i__), + Kcor20_1(i__),Kcor21_1(i__),Kcor22_1(i__),Kcor23_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'hmko-mko.dat' ! NIR H-H K-corrections from MKO to MKO * photometric systems C Format for file interpretation 3 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'hmko-mko.dat') write(6,*) '....Loading file: hmko-mko.dat' do i__=1,57 read(1,'(A232)')ar__2 read(ar__2,3) + Phase_2(i__),Kcor1_2(i__),Kcor2_2(i__),Kcor3_2(i__), + Kcor4_2(i__),Kcor5_2(i__),Kcor6_2(i__),Kcor7_2(i__), + Kcor8_2(i__),Kcor9_2(i__),Kcor10_2(i__),Kcor11_2(i__), + Kcor12_2(i__),Kcor13_2(i__),Kcor14_2(i__),Kcor15_2(i__), + Kcor16_2(i__),Kcor17_2(i__),Kcor18_2(i__),Kcor19_2(i__), + Kcor20_2(i__),Kcor21_2(i__),Kcor22_2(i__),Kcor23_2(i__) if(ar__2(147:152) .EQ. '') Kcor15_2(i__) = rNULL__ if(ar__2(157:162) .EQ. '') Kcor16_2(i__) = rNULL__ if(ar__2(167:172) .EQ. '') Kcor17_2(i__) = rNULL__ if(ar__2(177:182) .EQ. '') Kcor18_2(i__) = rNULL__ if(ar__2(187:192) .EQ. '') Kcor19_2(i__) = rNULL__ if(ar__2(197:202) .EQ. '') Kcor20_2(i__) = rNULL__ if(ar__2(207:212) .EQ. '') Kcor21_2(i__) = rNULL__ if(ar__2(217:222) .EQ. '') Kcor22_2(i__) = rNULL__ if(ar__2(227:232) .EQ. '') Kcor23_2(i__) = rNULL__ c ..............Just test output........... write(6,3) + Phase_2(i__),Kcor1_2(i__),Kcor2_2(i__),Kcor3_2(i__), + Kcor4_2(i__),Kcor5_2(i__),Kcor6_2(i__),Kcor7_2(i__), + Kcor8_2(i__),Kcor9_2(i__),Kcor10_2(i__),Kcor11_2(i__), + Kcor12_2(i__),Kcor13_2(i__),Kcor14_2(i__),Kcor15_2(i__), + Kcor16_2(i__),Kcor17_2(i__),Kcor18_2(i__),Kcor19_2(i__), + Kcor20_2(i__),Kcor21_2(i__),Kcor22_2(i__),Kcor23_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'jmko-2m.dat' ! NIR J-J K-corrections from MKO to 2MASS * photometric systems C Format for file interpretation 4 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'jmko-2m.dat') write(6,*) '....Loading file: jmko-2m.dat' do i__=1,57 read(1,'(A232)')ar__3 read(ar__3,4) + Phase_3(i__),Kcor1_3(i__),Kcor2_3(i__),Kcor3_3(i__), + Kcor4_3(i__),Kcor5_3(i__),Kcor6_3(i__),Kcor7_3(i__), + Kcor8_3(i__),Kcor9_3(i__),Kcor10_3(i__),Kcor11_3(i__), + Kcor12_3(i__),Kcor13_3(i__),Kcor14_3(i__),Kcor15_3(i__), + Kcor16_3(i__),Kcor17_3(i__),Kcor18_3(i__),Kcor19_3(i__), + Kcor20_3(i__),Kcor21_3(i__),Kcor22_3(i__),Kcor23_3(i__) if(ar__3(147:152) .EQ. '') Kcor15_3(i__) = rNULL__ if(ar__3(157:162) .EQ. '') Kcor16_3(i__) = rNULL__ if(ar__3(167:172) .EQ. '') Kcor17_3(i__) = rNULL__ if(ar__3(177:182) .EQ. '') Kcor18_3(i__) = rNULL__ if(ar__3(187:192) .EQ. '') Kcor19_3(i__) = rNULL__ if(ar__3(197:202) .EQ. '') Kcor20_3(i__) = rNULL__ if(ar__3(207:212) .EQ. '') Kcor21_3(i__) = rNULL__ if(ar__3(217:222) .EQ. '') Kcor22_3(i__) = rNULL__ if(ar__3(227:232) .EQ. '') Kcor23_3(i__) = rNULL__ c ..............Just test output........... write(6,4) + Phase_3(i__),Kcor1_3(i__),Kcor2_3(i__),Kcor3_3(i__), + Kcor4_3(i__),Kcor5_3(i__),Kcor6_3(i__),Kcor7_3(i__), + Kcor8_3(i__),Kcor9_3(i__),Kcor10_3(i__),Kcor11_3(i__), + Kcor12_3(i__),Kcor13_3(i__),Kcor14_3(i__),Kcor15_3(i__), + Kcor16_3(i__),Kcor17_3(i__),Kcor18_3(i__),Kcor19_3(i__), + Kcor20_3(i__),Kcor21_3(i__),Kcor22_3(i__),Kcor23_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'jmko-csp.dat' ! NIR J-J K-corrections from MKO to CSP * photometric systems C Format for file interpretation 5 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'jmko-csp.dat') write(6,*) '....Loading file: jmko-csp.dat' do i__=1,57 read(1,'(A232)')ar__4 read(ar__4,5) + Phase_4(i__),Kcor1_4(i__),Kcor2_4(i__),Kcor3_4(i__), + Kcor4_4(i__),Kcor5_4(i__),Kcor6_4(i__),Kcor7_4(i__), + Kcor8_4(i__),Kcor9_4(i__),Kcor10_4(i__),Kcor11_4(i__), + Kcor12_4(i__),Kcor13_4(i__),Kcor14_4(i__),Kcor15_4(i__), + Kcor16_4(i__),Kcor17_4(i__),Kcor18_4(i__),Kcor19_4(i__), + Kcor20_4(i__),Kcor21_4(i__),Kcor22_4(i__),Kcor23_4(i__) if(ar__4(147:152) .EQ. '') Kcor15_4(i__) = rNULL__ if(ar__4(157:162) .EQ. '') Kcor16_4(i__) = rNULL__ if(ar__4(167:172) .EQ. '') Kcor17_4(i__) = rNULL__ if(ar__4(177:182) .EQ. '') Kcor18_4(i__) = rNULL__ if(ar__4(187:192) .EQ. '') Kcor19_4(i__) = rNULL__ if(ar__4(197:202) .EQ. '') Kcor20_4(i__) = rNULL__ if(ar__4(207:212) .EQ. '') Kcor21_4(i__) = rNULL__ if(ar__4(217:222) .EQ. '') Kcor22_4(i__) = rNULL__ if(ar__4(227:232) .EQ. '') Kcor23_4(i__) = rNULL__ c ..............Just test output........... write(6,5) + Phase_4(i__),Kcor1_4(i__),Kcor2_4(i__),Kcor3_4(i__), + Kcor4_4(i__),Kcor5_4(i__),Kcor6_4(i__),Kcor7_4(i__), + Kcor8_4(i__),Kcor9_4(i__),Kcor10_4(i__),Kcor11_4(i__), + Kcor12_4(i__),Kcor13_4(i__),Kcor14_4(i__),Kcor15_4(i__), + Kcor16_4(i__),Kcor17_4(i__),Kcor18_4(i__),Kcor19_4(i__), + Kcor20_4(i__),Kcor21_4(i__),Kcor22_4(i__),Kcor23_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'jmko-mko.dat' ! NIR J-J K-corrections from MKO to MKO * photometric systems C Format for file interpretation 6 format( + I3,3X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3, + 4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X, + F6.3) C Effective file loading open(unit=1,status='old',file= +'jmko-mko.dat') write(6,*) '....Loading file: jmko-mko.dat' do i__=1,57 read(1,'(A232)')ar__5 read(ar__5,6) + Phase_5(i__),Kcor1_5(i__),Kcor2_5(i__),Kcor3_5(i__), + Kcor4_5(i__),Kcor5_5(i__),Kcor6_5(i__),Kcor7_5(i__), + Kcor8_5(i__),Kcor9_5(i__),Kcor10_5(i__),Kcor11_5(i__), + Kcor12_5(i__),Kcor13_5(i__),Kcor14_5(i__),Kcor15_5(i__), + Kcor16_5(i__),Kcor17_5(i__),Kcor18_5(i__),Kcor19_5(i__), + Kcor20_5(i__),Kcor21_5(i__),Kcor22_5(i__),Kcor23_5(i__) if(ar__5(147:152) .EQ. '') Kcor15_5(i__) = rNULL__ if(ar__5(157:162) .EQ. '') Kcor16_5(i__) = rNULL__ if(ar__5(167:172) .EQ. '') Kcor17_5(i__) = rNULL__ if(ar__5(177:182) .EQ. '') Kcor18_5(i__) = rNULL__ if(ar__5(187:192) .EQ. '') Kcor19_5(i__) = rNULL__ if(ar__5(197:202) .EQ. '') Kcor20_5(i__) = rNULL__ if(ar__5(207:212) .EQ. '') Kcor21_5(i__) = rNULL__ if(ar__5(217:222) .EQ. '') Kcor22_5(i__) = rNULL__ if(ar__5(227:232) .EQ. '') Kcor23_5(i__) = rNULL__ c ..............Just test output........... write(6,6) + Phase_5(i__),Kcor1_5(i__),Kcor2_5(i__),Kcor3_5(i__), + Kcor4_5(i__),Kcor5_5(i__),Kcor6_5(i__),Kcor7_5(i__), + Kcor8_5(i__),Kcor9_5(i__),Kcor10_5(i__),Kcor11_5(i__), + Kcor12_5(i__),Kcor13_5(i__),Kcor14_5(i__),Kcor15_5(i__), + Kcor16_5(i__),Kcor17_5(i__),Kcor18_5(i__),Kcor19_5(i__), + Kcor20_5(i__),Kcor21_5(i__),Kcor22_5(i__),Kcor23_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'kcorerr.dat' ! K-correction errors C Format for file interpretation 7 format( + A12,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3, + 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X, + F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3, + 1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'kcorerr.dat') write(6,*) '....Loading file: kcorerr.dat' do i__=1,6 read(1,'(A150)')ar__6 read(ar__6,7) + Table(i__),eKcor0_003(i__),eKcor0_005(i__),eKcor0_007(i__), + eKcor0_010(i__),eKcor0_015(i__),eKcor0_020(i__), + eKcor0_025(i__),eKcor0_030(i__),eKcor0_035(i__), + eKcor0_040(i__),eKcor0_045(i__),eKcor0_050(i__), + eKcor0_055(i__),eKcor0_060(i__),eKcor0_070(i__), + eKcor0_080(i__),eKcor0_090(i__),eKcor0_100(i__), + eKcor0_110(i__),eKcor0_120(i__),eKcor0_130(i__), + eKcor0_140(i__),eKcor0_171(i__) if(ar__6(92:96) .EQ. '') eKcor0_060(i__) = rNULL__ if(ar__6(98:102) .EQ. '') eKcor0_070(i__) = rNULL__ if(ar__6(104:108) .EQ. '') eKcor0_080(i__) = rNULL__ if(ar__6(110:114) .EQ. '') eKcor0_090(i__) = rNULL__ if(ar__6(116:120) .EQ. '') eKcor0_100(i__) = rNULL__ if(ar__6(122:126) .EQ. '') eKcor0_110(i__) = rNULL__ if(ar__6(128:132) .EQ. '') eKcor0_120(i__) = rNULL__ if(ar__6(134:138) .EQ. '') eKcor0_130(i__) = rNULL__ if(ar__6(140:144) .EQ. '') eKcor0_140(i__) = rNULL__ if(ar__6(146:150) .EQ. '') eKcor0_171(i__) = rNULL__ c ..............Just test output........... write(6,7) + Table(i__),eKcor0_003(i__),eKcor0_005(i__),eKcor0_007(i__), + eKcor0_010(i__),eKcor0_015(i__),eKcor0_020(i__), + eKcor0_025(i__),eKcor0_030(i__),eKcor0_035(i__), + eKcor0_040(i__),eKcor0_045(i__),eKcor0_050(i__), + eKcor0_055(i__),eKcor0_060(i__),eKcor0_070(i__), + eKcor0_080(i__),eKcor0_090(i__),eKcor0_100(i__), + eKcor0_110(i__),eKcor0_120(i__),eKcor0_130(i__), + eKcor0_140(i__),eKcor0_171(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end