Conversion of standardized ReadMe file for
file /./ftp/cats/J/A+AS/122/399 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe C============================================================================= C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-26 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+AS/122/399 K and evolutionary corrections (Poggianti, 1997) *================================================================================ *K and evolutionary corrections from UV to IR * Poggianti B.M. * <Astron. Astrophys. Suppl. Ser. 122, 399 (1997)> * =1997A&AS..122..399P (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'sed.dat' ! *Flux for different SED models (tables 3-29) integer*4 nr__ parameter (nr__=294) ! Number of records character*230 ar__ ! Full-size record integer*4 Lam (nr__) ! (0.1nm) Wavelength real*8 logF03 (nr__) ! Flux for model SED: Elliptical of age 15 Gyr real*8 logF04 (nr__) ! Flux for model SED: Sa of age 15 Gyr real*8 logF05 (nr__) ! Flux for model SED: Sa of age 15 Gyr real*8 logF06 (nr__) ! Flux for model SED: E of age 13.2 Gyr (z=0.1) real*8 logF07 (nr__) ! Flux for model SED: E of age 10.6 Gyr (z=0.3) real*8 logF08 (nr__) ! Flux for model SED: E of age 8.7 Gyr (z=0.5) real*8 logF09 (nr__) ! Flux for model SED: E of age 7.4 Gyr (z=0.7) real*8 logF10 (nr__) ! Flux for model SED: E of age 5.9 Gyr (z=1.0) real*8 logF11 (nr__) ! Flux for model SED: E of age 4.3 Gyr (z=1.5) real*8 logF12 (nr__) ! Flux for model SED: E of age 3.4 Gyr (z=2.0) real*8 logF13 (nr__) ! Flux for model SED: E of age 2.2 Gyr (z=3.0) real*8 logF14 (nr__) ! Flux for model SED: Sa of age 13.2 Gyr real*8 logF15 (nr__) ! Flux for model SED: Sa of age 10.6 Gyr real*8 logF16 (nr__) ! Flux for model SED: Sa of age 8.7 Gyr real*8 logF17 (nr__) ! Flux for model SED: Sa of age 7.4 Gyr real*8 logF18 (nr__) ! Flux for model SED: Sa of age 5.9 Gyr real*8 logF19 (nr__) ! Flux for model SED: Sa of age 4.3 Gyr real*8 logF20 (nr__) ! Flux for model SED: Sa of age 3.4 Gyr real*8 logF21 (nr__) ! Flux for model SED: Sa of age 2.2 Gyr real*8 logF22 (nr__) ! Flux for model SED: Sc of age 13.2 Gyr real*8 logF23 (nr__) ! Flux for model SED: Sc of age 10.6 Gyr real*8 logF24 (nr__) ! Flux for model SED: Sc of age 8.7 Gyr real*8 logF25 (nr__) ! Flux for model SED: Sc of age 7.4 Gyr real*8 logF26 (nr__) ! Flux for model SED: Sc of age 5.9 Gyr real*8 logF27 (nr__) ! Flux for model SED: Sc of age 4.3 Gyr real*8 logF28 (nr__) ! Flux for model SED: Sc of age 3.4 Gyr real*8 logF29 (nr__) ! Flux for model SED: Sc of age 2.2 Gyr c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'kcorrv.dat' ! K corrections in the V band from this paper (table 30) and from Pence (1976ApJ...203...39P) integer*4 nr__1 parameter (nr__1=36) ! Number of records character*40 ar__1 ! Full-size record real*4 z (nr__1) ! Redshift real*4 E (nr__1) ! (mag) K correction for E (1Gyr) model real*4 E_S0 (nr__1) ! (mag) ? K correction for E/S0 Pence observations real*4 Sa (nr__1) ! (mag) K correction for Sa model real*4 Sab (nr__1) ! (mag) ? K correction for Sab Pence observations real*4 Sc (nr__1) ! (mag) K correction for Sc model real*4 Sbc (nr__1) ! (mag) ? K correction for Sbc Pence observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'kcorr.dat' ! *K corrections in the different filters (tables 31-24, 42, 45-47) integer*4 nr__2 parameter (nr__2=602) ! Number of records character*34 ar__2 ! Full-size record real*4 z_1 (nr__2) ! Redshift character*2 Filt (nr__2) ! [UBVRIJHKgricjfn ] Filter real*4 E_1 (nr__2) ! (mag) Correction in band Filt for E (1Gyr) model real*4 E2 (nr__2) ! (mag) ?Correction in band Filt for E2 (1.4Gyr) model real*4 Sa_1 (nr__2) ! (mag) ?Correction in band Filt for Sa model real*4 Sc_1 (nr__2) ! (mag) Correction in band Filt for Sc model c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'ecorr.dat' ! *Evolutionary corrections (tables 35-38, 43, 48-50) integer*4 nr__3 parameter (nr__3=602) ! Number of records character*34 ar__3 ! Full-size record real*4 z_2 (nr__3) ! Redshift character*2 Filt_1 (nr__3) ! [UBVRIJHKgricjfn ] Filter real*4 E_2 (nr__3) ! (mag) Correction in band Filt for E (1Gyr) model real*4 E2_1 (nr__3) ! (mag) ?Correction in band Filt for E2 (1.4Gyr) model real*4 Sa_2 (nr__3) ! (mag) ?Correction in band Filt for Sa model real*4 Sc_2 (nr__3) ! (mag) Correction in band Filt for Sc model c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'filters.dat' ! Filter response functions (tables 39-41, 44, 51) integer*4 nr__4 parameter (nr__4=515) ! Number of records character*15 ar__4 ! Full-size record character*2 Filt_2 (nr__4) ! [UB12VRIHJKgricjfn ] Filter integer*4 Lambda (nr__4) ! (0.1nm) Wavelength real*4 Resp (nr__4) ! Response C============================================================================= C Loading file 'sed.dat' ! *Flux for different SED models (tables 3-29) C Format for file interpretation 1 format( + I5,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X, + F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4, + 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X, + F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4) C Effective file loading open(unit=1,status='old',file= +'sed.dat') write(6,*) '....Loading file: sed.dat' do i__=1,294 read(1,'(A230)')ar__ read(ar__,1) + Lam(i__),logF03(i__),logF04(i__),logF05(i__),logF06(i__), + logF07(i__),logF08(i__),logF09(i__),logF10(i__),logF11(i__), + logF12(i__),logF13(i__),logF14(i__),logF15(i__),logF16(i__), + logF17(i__),logF18(i__),logF19(i__),logF20(i__),logF21(i__), + logF22(i__),logF23(i__),logF24(i__),logF25(i__),logF26(i__), + logF27(i__),logF28(i__),logF29(i__) c ..............Just test output........... write(6,1) + Lam(i__),logF03(i__),logF04(i__),logF05(i__),logF06(i__), + logF07(i__),logF08(i__),logF09(i__),logF10(i__),logF11(i__), + logF12(i__),logF13(i__),logF14(i__),logF15(i__),logF16(i__), + logF17(i__),logF18(i__),logF19(i__),logF20(i__),logF21(i__), + logF22(i__),logF23(i__),logF24(i__),logF25(i__),logF26(i__), + logF27(i__),logF28(i__),logF29(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'kcorrv.dat' ! K corrections in the V band from this paper * (table 30) and from Pence (1976ApJ...203...39P) C Format for file interpretation 2 format(F4.2,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= +'kcorrv.dat') write(6,*) '....Loading file: kcorrv.dat' do i__=1,36 read(1,'(A40)')ar__1 read(ar__1,2) + z(i__),E(i__),E_S0(i__),Sa(i__),Sab(i__),Sc(i__),Sbc(i__) if(ar__1(12:16) .EQ. '') E_S0(i__) = rNULL__ if(ar__1(24:28) .EQ. '') Sab(i__) = rNULL__ if(ar__1(36:40) .EQ. '') Sbc(i__) = rNULL__ c ..............Just test output........... write(6,2) + z(i__),E(i__),E_S0(i__),Sa(i__),Sab(i__),Sc(i__),Sbc(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'kcorr.dat' ! *K corrections in the different filters * (tables 31-24, 42, 45-47) C Format for file interpretation 3 format(F4.2,1X,A2,F6.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'kcorr.dat') write(6,*) '....Loading file: kcorr.dat' do i__=1,602 read(1,'(A34)')ar__2 read(ar__2,3) + z_1(i__),Filt(i__),E_1(i__),E2(i__),Sa_1(i__),Sc_1(i__) if(ar__2(15:20) .EQ. '') E2(i__) = rNULL__ if(ar__2(22:27) .EQ. '') Sa_1(i__) = rNULL__ c ..............Just test output........... write(6,3) + z_1(i__),Filt(i__),E_1(i__),E2(i__),Sa_1(i__),Sc_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'ecorr.dat' ! *Evolutionary corrections (tables 35-38, 43, 48-50) C Format for file interpretation 4 format(F4.2,1X,A2,F6.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'ecorr.dat') write(6,*) '....Loading file: ecorr.dat' do i__=1,602 read(1,'(A34)')ar__3 read(ar__3,4) + z_2(i__),Filt_1(i__),E_2(i__),E2_1(i__),Sa_2(i__),Sc_2(i__) if(ar__3(15:20) .EQ. '') E2_1(i__) = rNULL__ if(ar__3(22:27) .EQ. '') Sa_2(i__) = rNULL__ c ..............Just test output........... write(6,4) + z_2(i__),Filt_1(i__),E_2(i__),E2_1(i__),Sa_2(i__),Sc_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'filters.dat' ! Filter response functions (tables 39-41, 44, 51) C Format for file interpretation 5 format(A2,1X,I5,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'filters.dat') write(6,*) '....Loading file: filters.dat' do i__=1,515 read(1,'(A15)')ar__4 read(ar__4,5)Filt_2(i__),Lambda(i__),Resp(i__) c ..............Just test output........... write(6,5)Filt_2(i__),Lambda(i__),Resp(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end