4 September 2021 10:06:31.851 AM CALENDAR_NYT_TEST FORTRAN90 version Test the CALENDAR_NYT library. TEST01 For the New York Times issue date: JED_TO_NYT: JED -> NYT. NYT_TO_JED: NYT -> JED. JED (in) Volume Issue JED (out) Diff CE 1869/11/30.00 2404031.50 19 5675 2405377.50 -1346.00 CE 1989/11/11.00 2447841.50 139 48051 2447841.50 0.00 CE 1869/03/24.00 2403780.50 18 5460 2405162.50 -1382.00 CE 1906/07/30.00 2417421.50 55 17719 2417421.50 0.00 CE 1981/02/27.00 2444662.50 130 44872 2444662.50 0.00 CE 1895/05/18.00 2413331.50 44 13647 2413349.50 -18.00 CE 1884/09/26.00 2409445.50 34 10316 2410018.50 -573.00 CE 1943/03/11.00 2430794.50 92 31092 2430794.50 0.00 CE 1898/05/27.00 2414436.50 47 15094 2414796.50 -360.00 CE 1987/08/16.00 2447023.50 136 47233 2447023.50 0.00 TEST02 For the New York Times issue date: NYT1 -> JED1 by historical record. NYT1 -> JED2 by "NYT_TO_JED" Conversions agree between 1905 and 1995. but there are problems at 1905 and earlier. Volume Issue => JED1 Date1 Volume Issue <= JED2 Date2 JED diff 1 1 2397383.50 CE 1851/09/18.00 7 1980 2399703.50 CE 1858/01/24.00 -2320.00 7 2155 2399908.50 CE 1858/08/17.00 13 3818 2401857.50 CE 1863/12/18.00 -1949.00 10 2990 2400886.50 CE 1861/04/21.00 15 4528 2402692.50 CE 1866/04/01.00 -1806.00 11 3432 2401406.50 CE 1862/09/23.00 16 4906 2403134.50 CE 1867/06/17.00 -1728.00 13 3794 2401829.50 CE 1863/11/20.00 17 5217 2403496.50 CE 1868/06/13.00 -1667.00 14 4130 2402224.50 CE 1864/12/19.00 18 5505 2403832.50 CE 1869/05/15.00 -1608.00 14 4230 2402342.50 CE 1865/04/16.00 18 5590 2403932.50 CE 1869/08/23.00 -1590.00 15 4576 2402747.50 CE 1866/05/26.00 19 5887 2404278.50 CE 1870/08/04.00 -1531.00 17 5034 2403283.50 CE 1867/11/13.00 21 6279 2404736.50 CE 1871/11/05.00 -1453.00 17 5250 2403535.50 CE 1868/07/22.00 21 6465 2404952.50 CE 1872/06/08.00 -1417.00 20 6189 2404630.50 CE 1871/07/22.00 24 7269 2405891.50 CE 1875/01/03.00 -1261.00 47 14499 2414326.50 CE 1898/02/06.00 47 14392 2414201.50 CE 1897/10/04.00 125.00 47 15000 2414327.50 CE 1898/02/07.00 48 15322 2414702.50 CE 1899/02/17.00 -375.00 52 16579 2416169.50 CE 1903/02/24.00 52 16675 2416281.50 CE 1903/06/16.00 -112.00 53 16909 2416554.50 CE 1904/03/15.00 53 16958 2416611.50 CE 1904/05/11.00 -57.00 54 17292 2416994.50 CE 1905/05/29.00 54 17292 2416994.50 CE 1905/05/29.00 0.00 55 17561 2417263.50 CE 1906/02/22.00 55 17561 2417263.50 CE 1906/02/22.00 0.00 57 18164 2417866.50 CE 1907/10/18.00 57 18164 2417866.50 CE 1907/10/18.00 0.00 58 18856 2418558.50 CE 1909/09/09.00 58 18856 2418558.50 CE 1909/09/09.00 0.00 66 21619 2421321.50 CE 1917/04/03.00 66 21619 2421321.50 CE 1917/04/03.00 0.00 74 24651 2424353.50 CE 1925/07/22.00 74 24651 2424353.50 CE 1925/07/22.00 0.00 89 29827 2429529.50 CE 1939/09/23.00 89 29827 2429529.50 CE 1939/09/23.00 0.00 89 30000 2429702.50 CE 1940/03/14.00 89 30000 2429702.50 CE 1940/03/14.00 0.00 94 31881 2431583.50 CE 1945/05/08.00 94 31881 2431583.50 CE 1945/05/08.00 0.00 94 31980 2431682.50 CE 1945/08/15.00 94 31980 2431682.50 CE 1945/08/15.00 0.00 113 38864 2438566.50 CE 1964/06/20.00 113 38864 2438566.50 CE 1964/06/20.00 0.00 114 39317 2439019.50 CE 1965/09/16.00 114 39317 2439019.50 CE 1965/09/16.00 0.00 117 40076 2439778.50 CE 1967/10/15.00 117 40076 2439778.50 CE 1967/10/15.00 0.00 118 40721 2440423.50 CE 1969/07/21.00 118 40721 2440423.50 CE 1969/07/21.00 0.00 120 41418 2441120.50 CE 1971/06/18.00 120 41418 2441120.50 CE 1971/06/18.00 0.00 127 44027 2443729.50 CE 1978/08/09.00 127 44027 2443729.50 CE 1978/08/09.00 0.00 128 44028 2443818.50 CE 1978/11/06.00 128 44028 2443818.50 CE 1978/11/06.00 0.00 141 48939 2448729.50 CE 1992/04/17.00 141 48939 2448729.50 CE 1992/04/17.00 0.00 144 50000 2449790.50 CE 1995/03/14.00 144 50000 2449790.50 CE 1995/03/14.00 0.00 147 50939 2450729.50 CE 1997/10/08.00 147 50939 2450729.50 CE 1997/10/08.00 0.00 149 51753 2451543.50 CE 1999/12/31.00 149 51753 2451543.50 CE 1999/12/31.00 0.00 149 51254 2451544.50 CE 2000/01/01.00 149 51254 2451544.50 CE 2000/01/01.00 0.00 150 51599 2451889.50 CE 2000/12/11.00 150 51599 2451889.50 CE 2000/12/11.00 0.00 154 53108 2453398.50 CE 2005/01/28.00 154 53108 2453398.50 CE 2005/01/28.00 0.00 157 54136 2454426.50 CE 2007/11/22.00 157 54136 2454426.50 CE 2007/11/22.00 0.00 TEST03 For the New York Times issue date: JED -> NYT1 by historical record. JED -> NYT2 by "JED_TO_NYT" JED Date => Volume Issue (lookup) => Volume Issue (compute) Error Error 2397383.50 CE 1851/09/18.00 1 1 1 1 0 0 2397490.50 CE 1852/01/03.00 1 92 1 92 0 0 2397856.50 CE 1853/01/03.00 2 404 2 404 0 0 2397870.50 CE 1853/01/17.00 2 416 2 416 0 0 2398384.50 CE 1854/06/15.00 3 856 3 856 0 0 2398799.50 CE 1855/08/04.00 4 1210 4 1210 0 0 2398857.50 CE 1855/10/01.00 5 1259 5 1259 0 0 2399128.50 CE 1856/06/28.00 5 1491 5 1491 0 0 2399382.50 CE 1857/03/09.00 6 1706 6 1706 0 0 2399908.50 CE 1858/08/17.00 7 2155 7 2155 0 0 2400218.50 CE 1859/06/23.00 8 2421 8 2421 0 0 2400413.50 CE 1860/01/04.00 9 2586 9 2586 0 0 2400778.50 CE 1861/01/03.00 10 2897 10 2897 0 0 2400896.50 CE 1861/05/01.00 10 3000 10 3000 0 0 2401406.50 CE 1862/09/23.00 12 3432 12 3432 0 0 2401829.50 CE 1863/11/20.00 13 3794 13 3794 0 0 2402224.50 CE 1864/12/19.00 14 4130 14 4130 0 0 2402342.50 CE 1865/04/16.00 14 4230 14 4230 0 0 2402747.50 CE 1866/05/26.00 15 4576 15 4576 0 0 2403283.50 CE 1867/11/13.00 17 5034 17 5034 0 0 2403535.50 CE 1868/07/22.00 17 5250 17 5250 0 0 2404630.50 CE 1871/07/22.00 20 6189 20 6189 0 0 2414325.50 CE 1898/02/05.00 47 14499 47 14499 0 0 2414327.50 CE 1898/02/07.00 47 15000 47 15000 0 0 2416169.50 CE 1903/02/24.00 52 16579 52 16579 0 0 2416554.50 CE 1904/03/15.00 53 16909 53 16909 0 0 2416994.50 CE 1905/05/29.00 54 17292 54 17292 0 0 2417263.50 CE 1906/02/22.00 55 17561 55 17561 0 0 2417866.50 CE 1907/10/18.00 57 18164 57 18164 0 0 2418558.50 CE 1909/09/09.00 58 18856 58 18856 0 0 2421321.50 CE 1917/04/03.00 66 21619 66 21619 0 0 2424353.50 CE 1925/07/22.00 74 24651 74 24651 0 0 2429529.50 CE 1939/09/23.00 89 29827 89 29827 0 0 2429702.50 CE 1940/03/14.00 89 30000 89 30000 0 0 2431583.50 CE 1945/05/08.00 94 31881 94 31881 0 0 2431682.50 CE 1945/08/15.00 94 31980 94 31980 0 0 2438566.50 CE 1964/06/20.00 113 38864 113 38864 0 0 2439019.50 CE 1965/09/16.00 114 39317 114 39317 0 0 2439778.50 CE 1967/10/15.00 117 40076 117 40076 0 0 2440423.50 CE 1969/07/21.00 118 40721 118 40721 0 0 2441120.50 CE 1971/06/18.00 120 41418 120 41418 0 0 2443729.50 CE 1978/08/09.00 127 44027 127 44027 0 0 2443818.50 CE 1978/11/06.00 128 44028 128 44028 0 0 2448729.50 CE 1992/04/17.00 141 48939 141 48939 0 0 2449790.50 CE 1995/03/14.00 144 50000 144 50000 0 0 2450729.50 CE 1997/10/08.00 147 50939 147 50939 0 0 2451543.50 CE 1999/12/31.00 149 51753 149 51753 0 0 2451544.50 CE 2000/01/01.00 149 51254 149 51254 0 0 2451889.50 CE 2000/12/11.00 150 51599 150 51599 0 0 2453398.50 CE 2005/01/28.00 154 53108 154 53108 0 0 2454426.50 CE 2007/11/22.00 157 54136 157 54136 0 0 TEST04 For the New York Times issue date: JED -> NYT1 by historical record. JED -> NYT2 by "JED_TO_NYT" JED -> NYT# by "JED_TO_NYT_ISSUE_IDEAL" JED Date Volume Issue Issue Issue (lookup) (compute) (Ideal) 2397383.50 CE 1851/09/18.00 1 1 1 1 2397490.50 CE 1852/01/03.00 1 92 92 92 2397856.50 CE 1853/01/03.00 2 404 404 404 2397870.50 CE 1853/01/17.00 2 416 416 416 2398384.50 CE 1854/06/15.00 3 856 856 856 2398799.50 CE 1855/08/04.00 4 1210 1210 1212 2398857.50 CE 1855/10/01.00 5 1259 1259 1261 2399128.50 CE 1856/06/28.00 5 1491 1491 1494 2399382.50 CE 1857/03/09.00 6 1706 1706 1711 2399908.50 CE 1858/08/17.00 7 2155 2155 2162 2400218.50 CE 1859/06/23.00 8 2421 2421 2428 2400413.50 CE 1860/01/04.00 9 2586 2586 2593 2400778.50 CE 1861/01/03.00 10 2897 2897 2904 2400896.50 CE 1861/05/01.00 10 3000 3000 3007 2401406.50 CE 1862/09/23.00 12 3432 3432 3514 2401829.50 CE 1863/11/20.00 13 3794 3794 3936 2402224.50 CE 1864/12/19.00 14 4130 4130 4329 2402342.50 CE 1865/04/16.00 14 4230 4230 4446 2402747.50 CE 1866/05/26.00 15 4576 4576 4849 2403283.50 CE 1867/11/13.00 17 5034 5034 5384 2403535.50 CE 1868/07/22.00 17 5250 5250 5636 2404630.50 CE 1871/07/22.00 20 6189 6189 6731 2414325.50 CE 1898/02/05.00 47 14499 14499 16426 2414327.50 CE 1898/02/07.00 47 15000 15000 16428 2416169.50 CE 1903/02/24.00 52 16579 16579 18270 2416554.50 CE 1904/03/15.00 53 16909 16909 18655 2416994.50 CE 1905/05/29.00 54 17292 17292 19095 2417263.50 CE 1906/02/22.00 55 17561 17561 19364 2417866.50 CE 1907/10/18.00 57 18164 18164 19967 2418558.50 CE 1909/09/09.00 58 18856 18856 20659 2421321.50 CE 1917/04/03.00 66 21619 21619 23422 2424353.50 CE 1925/07/22.00 74 24651 24651 26454 2429529.50 CE 1939/09/23.00 89 29827 29827 31630 2429702.50 CE 1940/03/14.00 89 30000 30000 31803 2431583.50 CE 1945/05/08.00 94 31881 31881 33684 2431682.50 CE 1945/08/15.00 94 31980 31980 33783 2438566.50 CE 1964/06/20.00 113 38864 38864 40667 2439019.50 CE 1965/09/16.00 114 39317 39317 41120 2439778.50 CE 1967/10/15.00 117 40076 40076 41879 2440423.50 CE 1969/07/21.00 118 40721 40721 42524 2441120.50 CE 1971/06/18.00 120 41418 41418 43221 2443729.50 CE 1978/08/09.00 127 44027 44027 45830 2443818.50 CE 1978/11/06.00 128 44028 44028 45831 2448729.50 CE 1992/04/17.00 141 48939 48939 50742 2449790.50 CE 1995/03/14.00 144 50000 50000 51803 2450729.50 CE 1997/10/08.00 147 50939 50939 52742 2451543.50 CE 1999/12/31.00 149 51753 51753 53556 2451544.50 CE 2000/01/01.00 149 51254 51254 53557 2451889.50 CE 2000/12/11.00 150 51599 51599 53902 2453398.50 CE 2005/01/28.00 154 53108 53108 55411 2454426.50 CE 2007/11/22.00 157 54136 54136 56439 2454557.50 CE 2008/04/01.00 157 54267 54267 56570 CALENDAR_NYT_TEST Normal end of execution. 4 September 2021 10:06:31.852 AM