FORTRAN Generation
(/./ftp/cats/J/ApJ/785/119)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/785/119 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-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/ApJ/785/119       Gravitational waves from known pulsars         (Aasi+, 2014)
*================================================================================
*Gravitational waves from known pulsars: results from the initial detector era.
*    Aasi J., Abadie J., Abbott B.P., Abbott R., Abbott T., Abernathy M.R.,
*    Accadia T., Acernese F., Adams C., Adams T., Adhikari R.X., Affeldt C.,
*    Agathos M., Aggarwal N., Aguiar O.D., Ajith P., Allen B., Allocca A.,
*    Ceron E.A., Amariutei D., Anderson R.A., Anderson S.B., Anderson W.G.,
*    Arai K., Araya M.C., Arceneaux C., Areeda J., Ast S., Aston S.M.,
*    Astone P., Aufmuth P., Aulbert C., Austin L., Aylott B.E., Babak S.,
*    Baker P.T., Ballardin G., Ballmer S.W., Barayoga J.C., Barker D.,
*    Barnum S.H., Barone F., Barr B., Barsotti L., Barsuglia M., Barton M.A.,
*    Bartos I., Bassiri R., Basti A., Batch J., Bauchrowitz J., Bauer TH.S.,
*    Bebronne M., Behnke B., Bejger M., Beker M.G., Bell A.S., Bell C.,
*    Belopolski I., Bergmann G., Berliner J.M., Bersanetti D., Bertolini A.,
*    Bessis D., Betzwieser J., Beyersdorf P.T., Bhadbhade T., Bilenko I.A.,
*    Billingsley G., Birch J., Bitossi M., Bizouard M.A., Black E.,
*    Blackburn J.K., Blackburn L., Blair D., Blom M., Bock O., Bodiya T.P.,
*    Boer M., Bogan C., Bond C., Bondu F., Bonelli L., Bonnand R., Bork R.,
*    Born M., Boschi V., Bose S., Bosi L., Bowers J., Bradaschia C., Brady P.R.,
*    Braginsky V.B., Branchesi M., Brannen C.A., Brau J.E., Breyer J.,
*    Briant T., Bridges D.O., Brillet A., Brinkmann M., Brisson V., Britzger M.,
*    Brooks A.F., Brown D.A., Brown D.D., Bruckner F., Bulik T., Bulten H.J.,
*    Buonanno A., Buskulic D., Buy C., Byer R.L., Cadonati L., Cagnoli G.,
*    Calderon Bustillo J., Calloni E., Camp J.B., Campsie P., Cannon K.C.,
*    Canuel B., Cao J., Capano C.D., Carbognani F., Carbone L., Caride S.,
*    Castiglia A., Caudill S., Cavaglia M., Cavalier F., Cavalieri R., Cella G.,
*    Cepeda C., Cesarini E., Chakraborty R., Chalermsongsak T., Chao S.,
*    Charlton P., Chassande-Mottin E., Chen X., Chen Y., Chincarini A.,
*    Chiummo A., Cho H.S., Chow J., Christensen N., Chu Q., Chua S.S.Y.,
*    Chung S., Ciani G., Clara F., Clark D.E., Clark J.A., Cleva F., Coccia E.,
*    Cohadon P.-F., Colla A., Colombini M., Constancio M.JR, Conte A., Conte R.,
*    Cook D., Corbitt T.R., Cordier M., Cornish N., Corsi A., Costa C.A.,
*    Coughlin M.W., Coulon J.-P., Countryman S., Couvares P., Coward D.M.,
*    Cowart M., Coyne D.C., Craig K., Creighton J.D.E., Creighton T.D.,
*    Crowder S.G., Cumming A., Cunningham L., Cuoco E., Dahl K., Dal Canton T.,
*    Damjanic M., Danilishin S.L., D'Antonio S., Danzmann K., Dattilo V.,
*    Daudert B., Daveloza H., Davier M., Davies G.S., Daw E.J., Day R.,
*    Dayanga T., De Rosa R., Debreczeni G., Degallaix J., Del Pozzo W.,
*    Deleeuw E., Deleglise S., Denker T., Dent T., Dereli H., Dergachev V.,
*    Derosa R., Desalvo R., Dhurandhar S., Di Fiore L., Di Lieto A.,
*    Di Palma I., Di Virgilio A., Diaz M., Dietz A., Dmitry K., Donovan F.,
*    Dooley K.L., Doravari S., Drago M., Drever R.W.P., Driggers J.C., Du Z.,
*    Dumas J.-C., Dwyer S., Eberle T., Edwards M., Effler A., Ehrens P.,
*    Eichholz J., Eikenberry S.S., Endroczi G., Essick R., Etzel T., Evans K.,
*    Evans M., Evans T., Factourovich M., Fafone V., Fairhurst S., Fang Q.,
*    Farinon S., Farr B., Farr W., Favata M., Fazi D., Fehrmann H., Feldbaum D.,
*    Ferrante I., Ferrini F., Fidecaro F., Finn L.S., Fiori I., Fisher R.,
*    Flaminio R., Foley E., Foley S., Forsi E., Fotopoulos N., Fournier J.-D.,
*    Franco S., Frasca S., Frasconi F., Frede M., Frei M., Frei Z., Freise A.,
*    Frey R., Fricke T.T., Fritschel P., Frolov V.V., Fujimoto M.-K., Fulda P.,
*    Fyffe M., Gair J., Gammaitoni L., Garcia J., Garufi F., Gehrels N.,
*    Gemme G., Genin E., Gennai A., Gergely L., Ghosh S., Giaime J.A.,
*    Giampanis S., Giardina K.D., Giazotto A., Gil-Casanova S., Gill C.,
*    Gleason J., Goetz E., Goetz R., Gondan L., Gonzalez G., Gordon N.,
*    Gorodetsky M.L., Gossan S., Gossler S., Gouaty R., Graef C., Graff P.B.,
*    Granata M., Grant A., Gras S., Gray C., Greenhalgh R.J.S., Gretarsson A.M.,
*    Griffo C., Groot P., Grote H., Grover K., Grunewald S., Guidi G.M.,
*    Guido C., Gushwa K.E., Gustafson E.K., Gustafson R., Hall B., Hall E.,
*    Hammer D., Hammond G., Hanke M., Hanks J., Hanna C., Hanson J., Harms J.,
*    Harry G.M., Harry I.W., Harstad E.D., Hartman M.T., Haughian K., Hayama K.,
*    Heefner J., Heidmann A., Heintze M., Heitmann H., Hello P., Hemming G.,
*    Hendry M., Heng I.S., Heptonstall A.W., Heurs M., Hild S., Hoak D.,
*    Hodge K.A., Holt K., Holtrop M., Hong T., Hooper S., Horrom T.,
*    Hosken D.J., Hough J., Howell E.J., Hu Y., Hua Z., Huang V., Huerta E.A.,
*    Hughey B., Husa S., Huttner S.H., Huynh M., Huynh-Dinh T., Iafrate J.,
*    Ingram D.R., Inta R., Isogai T., Ivanov A., Iyer B.R., Izumi K.,
*    Jacobson M., James E., Jang H., Jang Y.J., Jaranowski P.,
*    Jimenez-Forteza F., Johnson W.W., Jones D., Jones D.I., Jones R.,
*    Jonker R.J.G., Ju L., K H., Kalmus P., Kalogera V., Kandhasamy S., Kang G.,
*    Kanner J.B., Kasprzack M., Kasturi R., Katsavounidis E., Katzman W.,
*    Kaufer H., Kaufman K., Kawabe K., Kawamura S., Kawazoe F., Kefelian F.,
*    Keitel D., Kelley D.B., Kells W., Keppel D.G., Khalaidovski A.,
*    Khalili F.Y., Khazanov E.A., Kim B.K., Kim C., Kim K., Kim N., Kim W.,
*    Kim Y.-M., King E.J., King P.J., Kinzel D.L., Kissel J.S., Klimenko S.,
*    Kline J., Koehlenbeck S., Kokeyama K., Kondrashov V., Koranda S.,
*    Korth W.Z., Kowalska I., Kozak D., Kremin A., Kringel V., Krishnan B.,
*    Krolak A., Kucharczyk C., Kudla S., Kuehn G., Kumar A., Kumar P., Kumar R.,
*    Kurdyumov R., Kwee P., Landry M., Lantz B., Larson S., Lasky P.D.,
*    Lawrie C., Lazzarini A., Le Roux A., Leaci P., Lebigot E.O., Lee C.-H.,
*    Lee H.K., Lee H.M., Lee J., Leonardi M., Leong J.R., Leroy N., Letendre N.,
*    Levine B., Lewis J.B., Lhuillier V., Li T.G.F., Lin A.C., Littenberg T.B.,
*    Litvine V., Liu F., Liu H., Liu Y., Liu Z., Lloyd D., Lockerbie N.A.,
*    Lockett V., Lodhia D., Loew K., Logue J., Lombardi A.L., Lorenzini M.,
*    Loriette V., Lormand M., Losurdo G., Lough J., Luan J., Lubinski M.J.,
*    Luck H., Lundgren A.P., Macarthur J., Macdonald E., Machenschalk B.,
*    Macinnis M., Macleod D.M., Magana-sandoval F., Mageswaran M., Mailand K.,
*    Majorana E., Maksimovic I., Malvezzi V., Man N., Manca G.M., Mandel I.,
*    Mandic V., Mangano V., Mantovani M., Marchesoni F., Marion F., Marka S.,
*    Marka Z., Markosyan A., Maros E., Marque J., Martelli F., Martin I.W.,
*    Martin R.M., Martinelli L., Martynov D., Marx J.N., Mason K., Masserot A.,
*    Massinger T.J., Matichard F., Matone L., Matzner R.A., Mavalvala N.,
*    May G., Mazumder N., Mazzolo G., McCarthy R., McClelland D.E.,
*    McGuire S.C., McIntyre G., McIver J., Meacher D., Meadors G.D., Mehmet M.,
*    Meidam J., Meier T., Melatos A., Mendell G., Mercer R.A., Meshkov S.,
*    Messenger C., Meyer M.S., Miao H., Michel C., Mikhailov E.E., Milano L.,
*    Miller J., Minenkov Y., Mingarelli C.M.F., Mitra S., Mitrofanov V.P.,
*    Mitselmakher G., Mittleman R., Moe B., Mohan M., Mohapatra S.R.P.,
*    Mokler F., Moraru D., Moreno G., Morgado N., Mori T., Morriss S.R.,
*    Mossavi K., Mours B., Mow-Lowry C.M., Mueller C.L., Mueller G.,
*    Mukherjee S., Mullavey A., Munch J., Murphy D., Murray P.G., Mytidis A.,
*    Nagy M.F., Nanda Kumar D., Nardecchia I., Nash T., Naticchioni L.,
*    Nayak R., Necula V., Nelemans G., Neri I., Neri M., Newton G., Nguyen T.,
*    Nishida E., Nishizawa A., Nitz A., Nocera F., Nolting D., Normandin M.E.,
*    Nuttall L.K., Ochsner E., O'Dell J., Oelker E., Ogin G.H., Oh J.J.,
*    Oh S.H., Ohme F., Oppermann P., O'Reilly B., Ortega Larcher W.,
*    O'Shaughnessy R., Osthelder C., Ottaway D.J., Ottens R.S., Ou J.,
*    Overmier H., Owen B.J., Padilla C., Pai A., Palomba C., Pan Y., Pankow C.,
*    Paoletti F., Paoletti R., Papa M.A., Paris H., Pasqualetti A.,
*    Passaquieti R., Passuello D., Pedraza M., Peiris P., Penn S., Perreca A.,
*    Phelps M., Pichot M., Pickenpack M., Piergiovanni F., Pierro V., Pinard L.,
*    Pindor B., Pinto I.M., Pitkin M., Poeld J., Poggiani R., Poole V., Poux C.,
*    Predoi V., Prestegard T., Price L.R., Prijatelj M., Principe M.,
*    Privitera S., Prix R., Prodi G.A., Prokhorov L., Puncken O., Punturo M.,
*    Puppo P., Quetschke V., Quintero E., Quitzow-James R., Raab F.J.,
*    Rabeling D.S., Racz I., Radkins H., Raffai P., Raja S., Rajalakshmi G.,
*    Rakhmanov M., Ramet C., Rapagnani P., Raymond V., Re V., Reed C.M.,
*    Reed T., Regimbau T., Reid S., Reitze D.H., Ricci F., Riesen R., Riles K.,
*    Robertson N.A., Robinet F., Rocchi A., Roddy S., Rodriguez C., Rodruck M.,
*    Roever C., Rolland L., Rollins J.G., Romano J.D., Romano R., Romanov G.,
*    Romie J.H., Rosinska D., Rowan S., Rudiger A., Ruggi P., Ryan K.,
*    Salemi F., Sammut L., Sandberg V., Sanders J., Sannibale V.,
*    Santiago-Prieto I., Saracco E., Sassolas B., Sathyaprakash B.S.,
*    Saulson P.R., Savage R., Schilling R., Schnabel R., Schofield R.M.S.,
*    Schreiber E., Schuette D., Schulz B., Schutz B.F., Schwinberg P., Scott J.,
*    Scott S.M., Seifert F., Sellers D., Sengupta A.S., Sentenac D., Sergeev A.,
*    Shaddock D., Shah S., Shahriar M.S., Shaltev M., Shapiro B., Shawhan P.,
*    Shoemaker D.H., Sidery T.L., Siellez K., Siemens X., Sigg D., Simakov D.,
*    Singer A., Singer L., Sintes A.M., Skelton G.R., Slagmolen B.J.J.,
*    Slutsky J., Smith J.R., Smith M.R., Smith R.J.E., Smith-Lefebvre N.D.,
*    Soden K., Son E.J., Sorazu B., Souradeep T., Sperandio L., Staley A.,
*    Steinert E., Steinlechner J., Steinlechner S., Steplewski S., Stevens D.,
*    Stochino A., Stone R., Strain K.A., Straniero N., Strigin S., Stroeer A.S.,
*    Sturani R., Stuver A.L., Summerscales T.Z., Susmithan S., Sutton P.J.,
*    Swinkels B., Szeifert G., Tacca M., Talukder D., Tang L., Tanner D.B.,
*    Tarabrin S.P., Taylor R., Ter Braack A.P.M., Thirugnanasambandam M.P.,
*    Thomas M., Thomas P., Thorne K.A., Thorne K.S., Thrane E., Tiwari V.,
*    Tokmakov K.V., Tomlinson C., Toncelli A., Tonelli M., Torre O.,
*    Torres C.V., Torrie C.I., Travasso F., Traylor G., Tse M., Ugolini D.,
*    Unnikrishnan C.S., Vahlbruch H., Vajente G., Vallisneri M.,
*    van den Brand J.F.J., Van Den Broeck C., van der Putten S.,
*    van der Sluys M.V., van Heijningen J., van Veggel A.A., Vass S., Vasuth M.,
*    Vaulin R., Vecchio A., Vedovato G., Veitch J., Veitch P.J.,
*    Venkateswara K., Verkindt D., Verma S., Vetrano F., Vicere A.,
*    Vincent-Finley R., Vinet J.-Y., Vitale S., Vlcek B., Vo T., Vocca H.,
*    Vorvick C., Vousden W.D., Vrinceanu D., Vyachanin S.P., Wade A., Wade L.,
*    Wade M., Waldman S.J., Walker M., Wallace L., Wan Y., Wang J., Wang M.,
*    Wang X., Wanner A., Ward R.L., Was M., Weaver B., Wei L.-W., Weinert M.,
*    Weinstein A.J., Weiss R., Welborn T., Wen L., Wessels P., West M.,
*    Westphal T., Wette K., Whelan J.T., Whitcomb S.E., White D.J.,
*    Whiting B.F., Wibowo S., Wiesner K., Wilkinson C., Williams L.,
*    Williams R., Williams T., Willis J.L., Willke B., Wimmer M., Winkelmann L.,
*    Winkler W., Wipf C.C., Wittel H., Woan G., Worden J., Yablon J.,
*    Yakushin I., Yamamoto H., Yancey C.C., Yang H., Yeaton-Massey D.,
*    Yoshida S., Yum H., Yvert M., Zadrozny A., Zanolin M., Zendri J.-P.,
*    Zhang F., Zhang L., Zhao C., Zhu H., Zhu X.J., Zotov N., Zucker M.E.,
*    Zweizig J., Buchner S., Cognard I., Corongiu A., D'Amico N., Espinoza C.M.,
*    Freire P.C.C., Gotthelf E.V., Guillemot L., Hessels J.W.T., Hobbs G.B.,
*    Kramer M., Lyne A.G., Marshall F.E., Possenti A., Ransom S.M., Ray P.S.,
*    Roy J., Stappers B.W., (the Virgo Collaboration),
*    (the LIGO Scientific Collaboration)
*   <Astrophys. J., 785, 119 (2014)>
*   =2014ApJ...785..119A    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table7.dat'	! Limits on the Gravitational Wave Amplitude
                                for Known Pulsars with f_gw_>40 Hz

      integer*4 nr__
      parameter (nr__=169)	! Number of records
      character*92 ar__   	! Full-size record

      character*12  ID          ! Pulsar identifier (PSR JHHMM+DDMMA in
*                                      Simbad)
      character*1   n_ID        ! [defg] Note on ID (1)
      real*4        frot        ! (Hz) Rotational frequency
      real*8        fgw         ! (Hz) Gravitational wave low-frequency
      real*4        Frot_1      ! (Hz/s) Rotational frequency derivative
      real*4        Dist        ! (kpc) Distance to the source
      character*1   n_Dist      ! [c] Note on Dist (2)
      real*4        hsd         ! Spin-down gravitational wave amplitude
*                                      limit
      character*1   n_hsd       ! [ab] Note on hsd (3)
      real*4        Priorh95    ! ? The prior 95% upper limit on
*                                      the gravitational wave amplitude
      real*4        S6_VSR24_h95 ! ? The 95% upper limit on the gravitational
*                                      wave amplitude from S6/VSR2,4
      real*4        epsilon     ! Fiducial equatorial ellipticity
      real*4        Q22         ! (kg/m2) Mass quadrupole moment
      real*4        h0          ! Ratio of the limit to the spin-down limit
*Note (1): Note as follows:
*  d = Recently discovered pulsar with timing solution from after the end of S6
*      or VSR4. As this is an MSP the timing solution should extrapolate back
*      well over the search period and it is unlikely that any glitches occurred;
*  e = Results from S3/S4 (Abbott et al. 2007PhRvD..76d2001A);
*  f = Results from S5 (Abbott et al. 2010, J/ApJ/713/671);
*  g = New result from S5 using data covering 2006.
*Note (2): Note as follows:
*  c = The pulsar's distance is calculated using the NE2001 model of
*      Cordes & Lazio (2002, arXiv:astro-ph/0207156).
*Note (3): Note as follows:
*  a = The pulsar's spin-down is corrected for proper motion effects;
*  b = The pulsar's spin-down is calculated using a characteristic spin-down
*      age of 109 yr.

C=============================================================================

C  Loading file 'table7.dat'	! Limits on the Gravitational Wave Amplitude
*                                for Known Pulsars with f_gw_>40 Hz

C  Format for file interpretation

    1 format(
     +  A12,1X,A1,1X,F6.2,1X,F7.2,1X,E8.2,1X,F3.1,1X,A1,1X,E7.2,1X,A1,
     +  1X,E7.2,1X,E7.2,1X,E6.2,1X,E7.3,1X,F6.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7.dat')
      write(6,*) '....Loading file: table7.dat'
      do i__=1,169
        read(1,'(A92)')ar__
        read(ar__,1)
     +  ID,n_ID,frot,fgw,Frot_1,Dist,n_Dist,hsd,n_hsd,Priorh95,
     +  S6_VSR24_h95,epsilon,Q22,h0
        if(ar__(56:62) .EQ. '') Priorh95 = rNULL__
        if(ar__(64:70) .EQ. '') S6_VSR24_h95 = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  ID,n_ID,frot,fgw,Frot_1,Dist,n_Dist,hsd,n_hsd,Priorh95,
     +  S6_VSR24_h95,epsilon,Q22,h0
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end