Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/700/844 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-18 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/ApJ/700/844 Rotation rates of very massive stars (Penny+, 2009) *================================================================================ *A FUSE survey of the rotation rates of very massive stars in the Small and Large *Magellanic Clouds. * Penny L.R., Gies D.R. * <Astrophys. J., 700, 844-858 (2009)> * =2009ApJ...700..844P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! *Galactic targets integer*4 nr__ parameter (nr__=96) ! Number of records character*80 ar__ ! Full-size record character*12 Name (nr__) ! Star name (BD names corrected at CDS) character*14 SpT (nr__) ! MK spectral type from Howarth et al. 1997, * Cat. J/MNRAS/284/265 integer*4 v_vsini_H (nr__) ! (km/s) Mean Vsini from Howarth et al. 1997, * Cat. J/MNRAS/284/265 integer*4 v_vsini_A (nr__) ! (km/s) Mean Vsini computed from the calibration of * AV 327 template star integer*4 v_vsini_S (nr__) ! (km/s) ?=- Mean Vsini computed from the calibration * of SK-66 100 template star character*40 Set (nr__) ! FUSE observation(s) data set used c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! SMC targets integer*4 nr__1 parameter (nr__1=55) ! Number of records character*126 ar__1 ! Full-size record character*13 Name_1 (nr__1) ! Star name character*16 SpT_1 (nr__1) ! MK spectral type integer*4 r_SpT (nr__1) ! ? Reference for spectral classification (1) integer*4 v_vsini_ (nr__1) ! (km/s) Mean vsini from this paper integer*4 v_vsini_2 (nr__1) ! (km/s) ? Second measure of <vsini> integer*4 v_vsini_L (nr__1) ! (km/s) ? Mean vsini from litterature character*1 r__vsini_L (nr__1) ! Reference for <vsini>L (1) integer*4 v_vsini_L2 (nr__1) ! (km/s) ? Second mean vsini from litterature character*1 r__vsini_L2(nr__1) ! Reference for <vsini>L2 (1) integer*4 v_vsini_L3 (nr__1) ! (km/s) ? Third mean vsini from litterature character*1 r__vsini_L3(nr__1) ! Reference for <vsini>L3 (1) integer*4 v_vsini_L4 (nr__1) ! (km/s) ? Fourth mean vsini from litterature character*1 r__vsini_L4(nr__1) ! Reference for <vsini>L4 (1) character*10 TStar (nr__1) ! Template star name character*30 Set_1 (nr__1) ! FUSE data set(s) character*24 Note (nr__1) ! Notes (*: note in notes.dat file) (2) *Note (1): See refs.dat file *Note (2): Stars with a "NO" in this column are excluded from our analysis * for various reasons. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! LMC targets integer*4 nr__2 parameter (nr__2=106) ! Number of records character*126 ar__2 ! Full-size record character*13 Name_2 (nr__2) ! Star name character*16 SpT_2 (nr__2) ! MK spectral type integer*4 r_SpT_1 (nr__2) ! ? Reference for spectral classification (1) integer*4 v_vsini__1 (nr__2) ! (km/s) Mean vsini from this paper integer*4 v_vsini_2_1(nr__2) ! (km/s) ? Second measure of <vsini> integer*4 v_vsini_L_1(nr__2) ! (km/s) ? Mean vsini from litterature character*1 r__vsini_L_1(nr__2) ! Reference for <vsini>L (1) integer*4 v_vsini_L2_1(nr__2) ! (km/s) ? Second mean vsini from litterature character*1 r__vsini_L2_1(nr__2) ! Reference for <vsini>L2 (1) integer*4 v_vsini_L3_1(nr__2) ! (km/s) ? Third mean vsini from litterature character*1 r__vsini_L3_1(nr__2) ! Reference for <vsini>L3 (1) integer*4 v_vsini_L4_1(nr__2) ! (km/s) ? Fourth mean vsini from litterature character*1 r__vsini_L4_1(nr__2) ! Reference for <vsini>L4 (1) character*10 TStar_1 (nr__2) ! Template star name character*30 Set_2 (nr__2) ! FUSE data set(s) character*24 Note_1 (nr__2) ! Notes (*: note in notes.dat file) (2) *Note (1): See refs.dat file *Note (2): Stars with a "NO" in this column are excluded from our analysis * for various reasons. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'notes.dat' ! Individual note on objects integer*4 nr__3 parameter (nr__3=50) ! Number of records character*80 ar__3 ! Full-size record character*13 Name_3 (nr__3) ! Star name character*66 Note_2 (nr__3) ! Text of note c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__4 parameter (nr__4=42) ! Number of records character*78 ar__4 ! Full-size record character*2 Ref (nr__4) ! Reference number character*19 BibCode (nr__4) ! Bibcode character*25 Aut (nr__4) ! Author's name character*29 Comm (nr__4) ! Comment C============================================================================= C Loading file 'table1.dat' ! *Galactic targets C Format for file interpretation 1 format(A12,1X,A14,1X,I3,1X,I3,1X,I3,1X,A40) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,96 read(1,'(A80)')ar__ read(ar__,1) + Name(i__),SpT(i__),v_vsini_H(i__),v_vsini_A(i__), + v_vsini_S(i__),Set(i__) if (v_vsini_S(i__) .EQ. 45) v_vsini_S(i__) = iNULL__ c ..............Just test output........... write(6,1) + Name(i__),SpT(i__),v_vsini_H(i__),v_vsini_A(i__), + v_vsini_S(i__),Set(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! SMC targets C Format for file interpretation 2 format( + A13,1X,A16,I2,1X,I3,1X,I3,1X,I3,A1,1X,I3,A1,1X,I3,A1,1X,I2,A1, + 1X,A10,1X,A30,1X,A24) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,55 read(1,'(A126)')ar__1 read(ar__1,2) + Name_1(i__),SpT_1(i__),r_SpT(i__),v_vsini_(i__), + v_vsini_2(i__),v_vsini_L(i__),r__vsini_L(i__),v_vsini_L2(i__), + r__vsini_L2(i__),v_vsini_L3(i__),r__vsini_L3(i__), + v_vsini_L4(i__),r__vsini_L4(i__),TStar(i__),Set_1(i__), + Note(i__) if(ar__1(31:32) .EQ. '') r_SpT(i__) = iNULL__ if(ar__1(38:40) .EQ. '') v_vsini_2(i__) = iNULL__ if(ar__1(42:44) .EQ. '') v_vsini_L(i__) = iNULL__ if(ar__1(47:49) .EQ. '') v_vsini_L2(i__) = iNULL__ if(ar__1(52:54) .EQ. '') v_vsini_L3(i__) = iNULL__ if(ar__1(57:58) .EQ. '') v_vsini_L4(i__) = iNULL__ c ..............Just test output........... write(6,2) + Name_1(i__),SpT_1(i__),r_SpT(i__),v_vsini_(i__), + v_vsini_2(i__),v_vsini_L(i__),r__vsini_L(i__),v_vsini_L2(i__), + r__vsini_L2(i__),v_vsini_L3(i__),r__vsini_L3(i__), + v_vsini_L4(i__),r__vsini_L4(i__),TStar(i__),Set_1(i__), + Note(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! LMC targets C Format for file interpretation 3 format( + A13,1X,A16,I2,1X,I3,1X,I3,1X,I3,A1,1X,I3,A1,1X,I3,A1,1X,I2,A1, + 1X,A10,1X,A30,1X,A24) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,106 read(1,'(A126)')ar__2 read(ar__2,3) + Name_2(i__),SpT_2(i__),r_SpT_1(i__),v_vsini__1(i__), + v_vsini_2_1(i__),v_vsini_L_1(i__),r__vsini_L_1(i__), + v_vsini_L2_1(i__),r__vsini_L2_1(i__),v_vsini_L3_1(i__), + r__vsini_L3_1(i__),v_vsini_L4_1(i__),r__vsini_L4_1(i__), + TStar_1(i__),Set_2(i__),Note_1(i__) if(ar__2(31:32) .EQ. '') r_SpT_1(i__) = iNULL__ if(ar__2(38:40) .EQ. '') v_vsini_2_1(i__) = iNULL__ if(ar__2(42:44) .EQ. '') v_vsini_L_1(i__) = iNULL__ if(ar__2(47:49) .EQ. '') v_vsini_L2_1(i__) = iNULL__ if(ar__2(52:54) .EQ. '') v_vsini_L3_1(i__) = iNULL__ if(ar__2(57:58) .EQ. '') v_vsini_L4_1(i__) = iNULL__ c ..............Just test output........... write(6,3) + Name_2(i__),SpT_2(i__),r_SpT_1(i__),v_vsini__1(i__), + v_vsini_2_1(i__),v_vsini_L_1(i__),r__vsini_L_1(i__), + v_vsini_L2_1(i__),r__vsini_L2_1(i__),v_vsini_L3_1(i__), + r__vsini_L3_1(i__),v_vsini_L4_1(i__),r__vsini_L4_1(i__), + TStar_1(i__),Set_2(i__),Note_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'notes.dat' ! Individual note on objects C Format for file interpretation 4 format(A13,1X,A66) C Effective file loading open(unit=1,status='old',file= +'notes.dat') write(6,*) '....Loading file: notes.dat' do i__=1,50 read(1,'(A80)')ar__3 read(ar__3,4)Name_3(i__),Note_2(i__) c ..............Just test output........... write(6,4)Name_3(i__),Note_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 5 format(A2,1X,A19,1X,A25,1X,A29) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,42 read(1,'(A78)')ar__4 read(ar__4,5)Ref(i__),BibCode(i__),Aut(i__),Comm(i__) c ..............Just test output........... write(6,5)Ref(i__),BibCode(i__),Aut(i__),Comm(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end