Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/305/551 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 2024-Apr-20 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/305/551 Chemical composition of the s-Cepheids (Andrievsky+, 1996) *================================================================================ *The chemical composition of the s-Cepheids. II * Andrievsky S.M., Kovtyukh V.V, Usenko I.A. * <Astron. Astrophys. 305, 551 (1996)> * =1996A&A...305..551A (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table10' ! Abundances for SU Cas. integer*4 nr__ parameter (nr__=25) ! Number of records character*40 ar__ ! Full-size record character*5 Element ! Element real*4 v_X_H_1 ! ([Sun]) Abundance of the element for phase=0.477 real*4 e__X_H_1 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1 ! Number of observations real*4 v_X_H_2 ! ([Sun]) Abundance of the element for phase=0.627 real*4 e__X_H_2 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2 ! Number of observations real*4 v_X_H_LL81 ! ([Sun]) []? Abundance of the element from * Luck and Lambert 1981 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table11' ! Abundances for EU Tau. integer*4 nr__1 parameter (nr__1=19) ! Number of records character*46 ar__1 ! Full-size record character*5 Element_1 ! Element real*4 v_X_H_1_1 ! ([Sun]) []? Abundance of the element for phase=0.297 real*4 e__X_H_1_1 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1_1 ! []? Number of observations real*4 v_X_H_2_1 ! ([Sun]) []? Abundance of the element for phase=0.323 real*4 e__X_H_2_1 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2_1 ! []? Number of observations real*4 v_X_H_3 ! ([Sun]) []? Abundance of the element for phase=0.758 real*4 e__X_H_3 ! ([Sun]) []? Error on abundance integer*4 o__X_H_3 ! []? Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table12' ! Abundances for DT Cyg. integer*4 nr__2 parameter (nr__2=35) ! Number of records character*54 ar__2 ! Full-size record character*5 Element_2 ! Element real*4 v_X_H_1_2 ! ([Sun]) []? Abundance of the element for phase=0.155 real*4 e__X_H_1_2 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1_2 ! []? Number of observations real*4 v_X_H_2_2 ! ([Sun]) []? Abundance of the element for phase=0.774 real*4 e__X_H_2_2 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2_2 ! []? Number of observations real*4 v_X_H_3_1 ! ([Sun]) []? Abundance of the element for phase=0.814 real*4 e__X_H_3_1 ! ([Sun]) []? Error on abundance integer*4 o__X_H_3_1 ! []? Number of observations real*4 v_X_H_LL81_1 ! ([Sun]) []? Abundance of the element from * Luck and Lambert 1981 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table13' ! Abundances for SZ Tau. integer*4 nr__3 parameter (nr__3=15) ! Number of records character*34 ar__3 ! Full-size record character*5 Element_3 ! Element real*4 v_X_H_1_3 ! ([Sun]) []? Abundance of the element for phase=0.119 real*4 e__X_H_1_3 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1_3 ! []? Number of observations real*4 v_X_H_2_3 ! ([Sun]) []? Abundance of the element for phase=0.501 real*4 e__X_H_2_3 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2_3 ! []? Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table14' ! Abundances for V 1334 Cyg. integer*4 nr__4 parameter (nr__4=26) ! Number of records character*20 ar__4 ! Full-size record character*5 Element_4 ! Element real*4 v_X_H_ ! ([Sun]) Abundance of the element real*4 e__X_H_ ! ([Sun]) []? Error on abundance integer*4 o__X_H_ ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table15' ! Abundances for FF Aql. integer*4 nr__5 parameter (nr__5=25) ! Number of records character*34 ar__5 ! Full-size record character*5 Element_5 ! Element real*4 v_X_H_1_4 ! ([Sun]) []? Abundance of the element for phase=0.780 real*4 e__X_H_1_4 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1_4 ! []? Number of observations real*4 v_X_H_2_4 ! ([Sun]) []? Abundance of the element for phase=0.864 real*4 e__X_H_2_4 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2_4 ! []? Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table16' ! Abundances for V1162 Aql. integer*4 nr__6 parameter (nr__6=25) ! Number of records character*20 ar__6 ! Full-size record character*5 Element_6 ! Element real*4 v_X_H__1 ! ([Sun]) Abundance of the element real*4 e__X_H__1 ! ([Sun]) []? Error on abundance integer*4 o__X_H__1 ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table17' ! Abundances for V440 Per. integer*4 nr__7 parameter (nr__7=28) ! Number of records character*67 ar__7 ! Full-size record character*5 Element_7 ! Element real*4 v_X_H_1_5 ! ([Sun]) []? Abundance of the element for phase=0.080 real*4 e__X_H_1_5 ! ([Sun]) []? Error on abundance integer*4 o__X_H_1_5 ! []? Number of observations real*4 v_X_H_2_5 ! ([Sun]) []? Abundance of the element for phase=0.218 real*4 e__X_H_2_5 ! ([Sun]) []? Error on abundance integer*4 o__X_H_2_5 ! []? Number of observations real*4 v_X_H_3_2 ! ([Sun]) []? Abundance of the element for phase=0.374 real*4 e__X_H_3_2 ! ([Sun]) []? Error on abundance integer*4 o__X_H_3_2 ! []? Number of observations real*4 v_X_H_4 ! ([Sun]) Abundance of the element for phase=0.385 real*4 e__X_H_4 ! ([Sun]) []? Error on abundance integer*4 o__X_H_4 ! Number of observations real*4 v_X_H_L82 ! ([Sun]) []? Abundance of the element from Luck 1982 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table18' ! Abundances for Y Oph. integer*4 nr__8 parameter (nr__8=26) ! Number of records character*20 ar__8 ! Full-size record character*5 Element_8 ! Element real*4 v_X_H__2 ! ([Sun]) Abundance of the element real*4 e__X_H__2 ! ([Sun]) []? Error on abundance integer*4 o__X_H__2 ! Number of observations C============================================================================= C Loading file 'table10' ! Abundances for SU Cas. C Format for file interpretation 1 format( + 1X,A5,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table10') write(6,*) '....Loading file: table10' do i__=1,25 read(1,'(A40)')ar__ read(ar__,1) + Element,v_X_H_1,e__X_H_1,o__X_H_1,v_X_H_2,e__X_H_2,o__X_H_2, + v_X_H_LL81 if(ar__(14:17) .EQ. '') e__X_H_1 = rNULL__ if(ar__(28:31) .EQ. '') e__X_H_2 = rNULL__ if(ar__(36:40) .EQ. '') v_X_H_LL81 = rNULL__ c ..............Just test output........... write(6,1) + Element,v_X_H_1,e__X_H_1,o__X_H_1,v_X_H_2,e__X_H_2,o__X_H_2, + v_X_H_LL81 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table11' ! Abundances for EU Tau. C Format for file interpretation 2 format( + 1X,A5,1X,F5.2,1X,F4.2,1X,I1,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X, + F4.2,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table11') write(6,*) '....Loading file: table11' do i__=1,19 read(1,'(A46)')ar__1 read(ar__1,2) + Element_1,v_X_H_1_1,e__X_H_1_1,o__X_H_1_1,v_X_H_2_1, + e__X_H_2_1,o__X_H_2_1,v_X_H_3,e__X_H_3,o__X_H_3 if(ar__1(8:12) .EQ. '') v_X_H_1_1 = rNULL__ if(ar__1(14:17) .EQ. '') e__X_H_1_1 = rNULL__ if(ar__1(19:19) .EQ. '') o__X_H_1_1 = iNULL__ if(ar__1(21:25) .EQ. '') v_X_H_2_1 = rNULL__ if(ar__1(27:30) .EQ. '') e__X_H_2_1 = rNULL__ if(ar__1(32:33) .EQ. '') o__X_H_2_1 = iNULL__ if(ar__1(35:39) .EQ. '') v_X_H_3 = rNULL__ if(ar__1(41:44) .EQ. '') e__X_H_3 = rNULL__ if(ar__1(46:46) .EQ. '') o__X_H_3 = iNULL__ c ..............Just test output........... write(6,2) + Element_1,v_X_H_1_1,e__X_H_1_1,o__X_H_1_1,v_X_H_2_1, + e__X_H_2_1,o__X_H_2_1,v_X_H_3,e__X_H_3,o__X_H_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table12' ! Abundances for DT Cyg. C Format for file interpretation 3 format( + 1X,A5,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X, + F4.2,1X,I2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table12') write(6,*) '....Loading file: table12' do i__=1,35 read(1,'(A54)')ar__2 read(ar__2,3) + Element_2,v_X_H_1_2,e__X_H_1_2,o__X_H_1_2,v_X_H_2_2, + e__X_H_2_2,o__X_H_2_2,v_X_H_3_1,e__X_H_3_1,o__X_H_3_1, + v_X_H_LL81_1 if(ar__2(8:12) .EQ. '') v_X_H_1_2 = rNULL__ if(ar__2(14:17) .EQ. '') e__X_H_1_2 = rNULL__ if(ar__2(19:20) .EQ. '') o__X_H_1_2 = iNULL__ if(ar__2(22:26) .EQ. '') v_X_H_2_2 = rNULL__ if(ar__2(28:31) .EQ. '') e__X_H_2_2 = rNULL__ if(ar__2(33:34) .EQ. '') o__X_H_2_2 = iNULL__ if(ar__2(36:40) .EQ. '') v_X_H_3_1 = rNULL__ if(ar__2(42:45) .EQ. '') e__X_H_3_1 = rNULL__ if(ar__2(47:48) .EQ. '') o__X_H_3_1 = iNULL__ if(ar__2(50:54) .EQ. '') v_X_H_LL81_1 = rNULL__ c ..............Just test output........... write(6,3) + Element_2,v_X_H_1_2,e__X_H_1_2,o__X_H_1_2,v_X_H_2_2, + e__X_H_2_2,o__X_H_2_2,v_X_H_3_1,e__X_H_3_1,o__X_H_3_1, + v_X_H_LL81_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table13' ! Abundances for SZ Tau. C Format for file interpretation 4 format(1X,A5,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table13') write(6,*) '....Loading file: table13' do i__=1,15 read(1,'(A34)')ar__3 read(ar__3,4) + Element_3,v_X_H_1_3,e__X_H_1_3,o__X_H_1_3,v_X_H_2_3, + e__X_H_2_3,o__X_H_2_3 if(ar__3(8:12) .EQ. '') v_X_H_1_3 = rNULL__ if(ar__3(14:17) .EQ. '') e__X_H_1_3 = rNULL__ if(ar__3(19:20) .EQ. '') o__X_H_1_3 = iNULL__ if(ar__3(22:26) .EQ. '') v_X_H_2_3 = rNULL__ if(ar__3(28:31) .EQ. '') e__X_H_2_3 = rNULL__ if(ar__3(33:34) .EQ. '') o__X_H_2_3 = iNULL__ c ..............Just test output........... write(6,4) + Element_3,v_X_H_1_3,e__X_H_1_3,o__X_H_1_3,v_X_H_2_3, + e__X_H_2_3,o__X_H_2_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table14' ! Abundances for V 1334 Cyg. C Format for file interpretation 5 format(1X,A5,1X,F5.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table14') write(6,*) '....Loading file: table14' do i__=1,26 read(1,'(A20)')ar__4 read(ar__4,5)Element_4,v_X_H_,e__X_H_,o__X_H_ if(ar__4(14:17) .EQ. '') e__X_H_ = rNULL__ c ..............Just test output........... write(6,5)Element_4,v_X_H_,e__X_H_,o__X_H_ c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table15' ! Abundances for FF Aql. C Format for file interpretation 6 format(1X,A5,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table15') write(6,*) '....Loading file: table15' do i__=1,25 read(1,'(A34)')ar__5 read(ar__5,6) + Element_5,v_X_H_1_4,e__X_H_1_4,o__X_H_1_4,v_X_H_2_4, + e__X_H_2_4,o__X_H_2_4 if(ar__5(8:12) .EQ. '') v_X_H_1_4 = rNULL__ if(ar__5(14:17) .EQ. '') e__X_H_1_4 = rNULL__ if(ar__5(19:20) .EQ. '') o__X_H_1_4 = iNULL__ if(ar__5(22:26) .EQ. '') v_X_H_2_4 = rNULL__ if(ar__5(28:31) .EQ. '') e__X_H_2_4 = rNULL__ if(ar__5(33:34) .EQ. '') o__X_H_2_4 = iNULL__ c ..............Just test output........... write(6,6) + Element_5,v_X_H_1_4,e__X_H_1_4,o__X_H_1_4,v_X_H_2_4, + e__X_H_2_4,o__X_H_2_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table16' ! Abundances for V1162 Aql. C Format for file interpretation 7 format(1X,A5,1X,F5.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table16') write(6,*) '....Loading file: table16' do i__=1,25 read(1,'(A20)')ar__6 read(ar__6,7)Element_6,v_X_H__1,e__X_H__1,o__X_H__1 if(ar__6(14:17) .EQ. '') e__X_H__1 = rNULL__ c ..............Just test output........... write(6,7)Element_6,v_X_H__1,e__X_H__1,o__X_H__1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table17' ! Abundances for V440 Per. C Format for file interpretation 8 format( + 1X,A5,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I1,1X,F5.2,1X, + F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table17') write(6,*) '....Loading file: table17' do i__=1,28 read(1,'(A67)')ar__7 read(ar__7,8) + Element_7,v_X_H_1_5,e__X_H_1_5,o__X_H_1_5,v_X_H_2_5, + e__X_H_2_5,o__X_H_2_5,v_X_H_3_2,e__X_H_3_2,o__X_H_3_2,v_X_H_4, + e__X_H_4,o__X_H_4,v_X_H_L82 if(ar__7(8:12) .EQ. '') v_X_H_1_5 = rNULL__ if(ar__7(14:17) .EQ. '') e__X_H_1_5 = rNULL__ if(ar__7(19:20) .EQ. '') o__X_H_1_5 = iNULL__ if(ar__7(22:26) .EQ. '') v_X_H_2_5 = rNULL__ if(ar__7(28:31) .EQ. '') e__X_H_2_5 = rNULL__ if(ar__7(33:33) .EQ. '') o__X_H_2_5 = iNULL__ if(ar__7(35:39) .EQ. '') v_X_H_3_2 = rNULL__ if(ar__7(41:44) .EQ. '') e__X_H_3_2 = rNULL__ if(ar__7(46:47) .EQ. '') o__X_H_3_2 = iNULL__ if(ar__7(55:58) .EQ. '') e__X_H_4 = rNULL__ if(ar__7(63:67) .EQ. '') v_X_H_L82 = rNULL__ c ..............Just test output........... write(6,8) + Element_7,v_X_H_1_5,e__X_H_1_5,o__X_H_1_5,v_X_H_2_5, + e__X_H_2_5,o__X_H_2_5,v_X_H_3_2,e__X_H_3_2,o__X_H_3_2,v_X_H_4, + e__X_H_4,o__X_H_4,v_X_H_L82 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table18' ! Abundances for Y Oph. C Format for file interpretation 9 format(1X,A5,1X,F5.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table18') write(6,*) '....Loading file: table18' do i__=1,26 read(1,'(A20)')ar__8 read(ar__8,9)Element_8,v_X_H__2,e__X_H__2,o__X_H__2 if(ar__8(14:17) .EQ. '') e__X_H__2 = rNULL__ c ..............Just test output........... write(6,9)Element_8,v_X_H__2,e__X_H__2,o__X_H__2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end