Here you go. I made the change that Joe suggested...i.e. subroutine write_char(c, iunit) character c integer iunit write(iunit,1000) c 1000 format(a,$) end subroutine write_char
I suggest changing the write statement so that it reads as follows: if(len(c).eq.1) write(iunit,1000) c Mike W9MDB (fftw-3.3.3 fftwf_wisdom #x9e7d4dee #xdb14fed1 #x34bf76a4 #xeb6e8fdf (fftwf_codelet_hc2cbdftv_2_sse2 0 #x11bdf #x11bdf #x0 #x4444b939 #x7d5dd4dd #xac2085af #xc3609643) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x981e2a26 #x97364d1b #xc2eb7b3b #x95872c79) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x1c56421f #xc325b078 #xf3b87df8 #x3707bba5) (fftwf_dft_nop_register 0 #x11bdf #x11bdf #x0 #x5c9b0c03 #xd7141f56 #xd63a0ce4 #x465f579a) (fftwf_codelet_r2cbIII_2 2 #x11bdf #x11bdf #x0 #x10191d89 #x0d5c0365 #xd401b69c #xbfdce857) (fftwf_codelet_t1fv_3_avx 0 #x10bdf #x10bdf #x0 #xfa3db548 #xde64c0a0 #x92ef55f4 #xc768fdc3) (fftwf_codelet_r2cf_2 2 #x11bdf #x11bdf #x0 #x618a8abd #x52ca4787 #x59899185 #x1f46e9a4) (fftwf_codelet_q1_3 0 #x11bdf #x11bdf #x0 #xe9e7613e #xb1259c99 #x646259dd #x4e7fed92) (fftwf_codelet_r2cf_2 2 #x11bdf #x11bdf #x0 #x22aaee68 #xbeeb0bc9 #x31262caf #xa13838eb) (fftwf_codelet_r2cfII_4 2 #x11bdf #x11bdf #x0 #x05513586 #xdb0f47a7 #x5a81e4e9 #x09ad272c) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xad34ac56 #x4b1e515c #x7da32a8c #x0ecc8b07) (fftwf_codelet_t2bv_2_avx 0 #x11bdf #x11bdf #x0 #xada5db3b #x370b5c2b #x94626531 #x46f3ea96) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x4902209b #xa45c76ff #xf8494a3e #xcaeeb98c) (fftwf_codelet_t1fuv_7_sse2 0 #x10bdf #x10bdf #x0 #x56b37b42 #x1af16bbe #xae7fa38b #xcf38536a) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #xc46bab53 #x9dfdccc9 #xe3b13604 #x3e7c9db2) (fftwf_codelet_hc2cfdftv_4_sse2 0 #x11bdf #x11bdf #x0 #x4dd54746 #x22af3ea7 #xa638335a #x09c5c535) (fftwf_codelet_t1fuv_7_sse2 0 #x10bdf #x10bdf #x0 #x610caf98 #x9a0e1b79 #x3eeb2bbe #x4f930b48) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x4a83c184 #x571dcfba #x0b7418de #x4949aba6) (fftwf_dft_r2hc_register 0 #x11bdf #x11bdf #x0 #x34a37a5a #xc0121cd6 #x5f08760b #xbee64516) (fftwf_codelet_t1fuv_7_sse2 0 #x10bdf #x10bdf #x0 #xd9b0dba4 #x4921e52f #xdcb25005 #x9d3b9f48) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #xf826030f #xe9b7e779 #x35098132 #x842f853e) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x2e8799fd #xbeea6230 #x1268321c #x9f3fc44e) (fftwf_codelet_r2cfII_2 2 #x11bdf #x11bdf #x0 #x79266091 #x7c539679 #xf3216654 #x5ef97cde) (fftwf_codelet_t2fv_2_avx 0 #x11bdf #x11bdf #x0 #xdee34d28 #x923ac04b #x99dbef15 #xea0ab490) (fftwf_codelet_q1fv_2_avx 0 #x11bdf #x11bdf #x0 #x48b6df2f #x21a8b82f #xc7debcd2 #x332ca242) (fftwf_codelet_t1fv_7_avx 0 #x10bdf #x10bdf #x0 #xaddcdb48 #xc9ff81c7 #x272dce15 #xd428c17a) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x0b61b067 #xd548d486 #x4f18dbbc #xbf6da408) (fftwf_codelet_n1fv_25_sse2 0 #x10bdf #x10bdf #x0 #x7e0a76f9 #x34c12888 #xd6ce1f3f #xf6141c2b) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x94cf606d #x67dcfef3 #xcc65fa81 #xb990c5c1) (fftwf_dft_buffered_register 0 #x11bdf #x11bdf #x0 #x85545854 #x49475dc7 #xcdaab46f #x4cc6363e) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xa3f22932 #xad81232a #x1226e9b3 #xfecf96fd) (fftwf_rdft_rank0_register 5 #x11bdf #x11bdf #x0 #xb80a7a2e #x70dde708 #x2054f14c #x7a802e10) (fftwf_codelet_n1bv_128_sse2 0 #x11bdf #x11bdf #x0 #x16c4ada0 #xb7e1a935 #xd38c6794 #x7931b941) (fftwf_codelet_n1bv_64_sse2 0 #x11bdf #x11bdf #x0 #x5aad3eb5 #x217b3b0a #x48702415 #x7c278e32) (fftwf_rdft_rank0_register 5 #x11bdf #x11bdf #x0 #x83733c47 #xa9f30f63 #xa71efbff #x896cbb5e) (fftwf_codelet_t2fv_8_avx 0 #x11bdf #x11bdf #x0 #xe0b7bf74 #x9997cac1 #x0b4cbeec #xa05af37b) (fftwf_codelet_r2cf_4 2 #x11bdf #x11bdf #x0 #x4aa57db8 #x172560f6 #x95e40272 #xbd965e6e) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xfa2f8598 #x222adaf4 #xecf275d0 #xe37794a4) (fftwf_codelet_r2cfII_2 2 #x11bdf #x11bdf #x0 #x6f2d8cc7 #xd048840d #x9a498c3d #x4cda71f3) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x4a50b4e7 #x37d7a9ee #x9798796c #x04bc16e7) (fftwf_codelet_t2bv_2_avx 0 #x11bdf #x11bdf #x0 #x165d3cab #x440c8ff7 #xb635e518 #x2f04c89d) (fftwf_dft_r2hc_register 0 #x11bdf #x11bdf #x0 #x3bfffd6b #x6a489eba #x6651b8ae #x4e9fa465) (fftwf_codelet_t1buv_7_sse2 0 #x10bdf #x10bdf #x0 #x53855455 #xdd3cd335 #xb08cabff #xfef9c942) (fftwf_rdft_rank0_register 2 #x11bdf #x11bdf #x0 #x9ac149a3 #x56b3359b #x037738ea #x92dc408f) (fftwf_codelet_hc2cfdftv_2_sse2 0 #x11bdf #x11bdf #x0 #xf0f0fb86 #x7f6d07be #x7deb6e00 #xb6495de3) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xf158861b #xb356658f #x4d31a8cd #x432278f0) (fftwf_codelet_q1_3 0 #x11bdf #x11bdf #x0 #xf667f17d #x4d9c26f0 #xfcf69aad #x92b8a613) (fftwf_codelet_t1fuv_3_sse2 0 #x11bdf #x11bdf #x0 #x28ede4c2 #x9ae3b806 #x02e25af6 #xdbab4937) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x73be58e3 #x767b9812 #x07ea17d1 #x999a133e) (fftwf_dft_nop_register 0 #x11bdf #x11bdf #x0 #xdbee6948 #x116fe810 #x4abfc394 #xf5847cac) (fftwf_codelet_hc2cfdftv_2_sse2 0 #x11bdf #x11bdf #x0 #xd9194630 #xecbfd170 #x7ce6d81c #x2fee4418) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x7e5ae86b #xc640c1f4 #xb36880c0 #xa1fddc20) (fftwf_dft_buffered_register 0 #x11bdf #x11bdf #x0 #x4f2a5408 #x86305eff #xd476a067 #xdc9d2479) (fftwf_dft_nop_register 0 #x11bdf #x11bdf #x0 #x3201a80b #x080e26f0 #x9783cc53 #x73a575b3) (fftwf_codelet_n1bv_25_sse2 0 #x10bdf #x10bdf #x0 #x1ead0d7d #xa663dc6f #x6b0bc208 #x756285cf) (fftwf_codelet_n1fv_64_sse2 0 #x11bdf #x11bdf #x0 #xde90e7ee #xd26d4ba7 #x7aec058f #x17ce0d7e) (fftwf_codelet_n1fv_64_sse2 0 #x11bdf #x11bdf #x0 #xc6f3f1c9 #x1e93748f #xac79b73f #xabbd7841) (fftwf_dft_r2hc_register 0 #x11bdf #x11bdf #x0 #xaf47bab2 #x8f578cc5 #x56273b7c #xabe5ffd0) (fftwf_codelet_q1fv_2_avx 0 #x11bdf #x11bdf #x0 #x2d55bd13 #x402c0396 #x190b7118 #xc92958ff) (fftwf_codelet_q1bv_4_avx 0 #x11bdf #x11bdf #x0 #x717b074f #x84f2d47b #x1066ee7d #x21711aec) (fftwf_codelet_t1buv_3_sse2 0 #x11bdf #x11bdf #x0 #xf7286a17 #x4aa19c42 #x641dc6af #xf80a9e3e) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x992b08bd #x286f468d #x191429c5 #xbb5a1ca1) (fftwf_codelet_r2cfII_10 2 #x11bdf #x11bdf #x0 #xa17e06aa #xe5f8b3ea #x9b471688 #x7a913659) (fftwf_codelet_q1fv_2_avx 0 #x11bdf #x11bdf #x0 #x7d34e04e #xe10b879a #x06da550f #x47b76370) (fftwf_codelet_t1fv_12_avx 0 #x10bdf #x10bdf #x0 #xb8ec8ec4 #xa309e4a3 #x2e106eac #xf331331c) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x14dc8ee4 #x3b3908a9 #x58d5faa1 #x7d96f2ef) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x80c400b1 #x47d5abc0 #x052edeea #xdecdc7b1) (fftwf_dft_r2hc_register 0 #x11bdf #x11bdf #x0 #x52744fd9 #xfcd759e3 #x6c76bd4d #x5e5a20d9) (fftwf_codelet_q1bv_2_avx 0 #x11bdf #x11bdf #x0 #x4b08aac9 #x66512ed1 #xab083114 #x1ad430be) (fftwf_codelet_t1buv_7_sse2 0 #x10bdf #x10bdf #x0 #x0d394dee #x416ec221 #x6f2f0e5a #xa051d98f) (fftwf_codelet_t1fuv_2_avx 0 #x11bdf #x11bdf #x0 #xf3575312 #xa43fbed1 #xf977c74a #x360b4fb2) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xb463fa8a #x4ac6d59a #x40b4027a #xcb598505) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xda57e0e5 #xecf5142e #x9af65574 #xf4d6749d) (fftwf_codelet_q1bv_2_avx 0 #x11bdf #x11bdf #x0 #x684a1627 #x66591983 #xb74fedff #x7d8d0980) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #xbbe5be02 #x5dea4f1f #x309c90eb #xd253e5c8) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x2a7046ba #x6962336e #x23ee8f2c #xa7b84316) (fftwf_codelet_t1fv_15_avx 0 #x10bdf #x10bdf #x0 #x95961e9a #x9f5b3f8f #x84f5f31c #xbb66ee79) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x6e708b30 #x146eb6dd #xfd514258 #x75daa704) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #x21faad4e #xdabec9d8 #xd5f1d27f #x4cb6b027) (fftwf_codelet_n1fv_128_sse2 0 #x10bdf #x10bdf #x0 #x5febdbd4 #x422d7cc7 #x7a5d9d50 #x63b77d1a) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x99978b54 #x17640844 #x956207a9 #x0dde1b1a) (fftwf_codelet_n1fv_128_sse2 0 #x10bdf #x10bdf #x0 #x8b801a09 #xf7a3bb64 #x114f1b1c #x33aec934) (fftwf_codelet_t1fv_6_avx 0 #x10bdf #x10bdf #x0 #xa4ce7439 #x7aaa0e96 #xde0a7854 #x437893f0) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xbdcb35e9 #xdf8c9914 #x46d40dc1 #x60c9c7fa) (fftwf_codelet_q1fv_8_avx 0 #x11bdf #x11bdf #x0 #x3f1668db #xf19a62a9 #x583cf6f9 #xe5b01724) (fftwf_dft_buffered_register 0 #x11bdf #x11bdf #x0 #x063b5491 #x87e0eee0 #x06ad8aa8 #x50872007) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #x664808b8 #x9d45009d #xdef60457 #x6d6883b7) (fftwf_codelet_q1fv_5_avx 0 #x11bdf #x11bdf #x0 #xb3d72557 #xed550b87 #x1660eead #xfcffea5c) (fftwf_codelet_r2cf_10 2 #x11bdf #x11bdf #x0 #xc9902b75 #x0cd62610 #xbc0f2e9e #x91b2d440) (fftwf_dft_vrank_geq1_register 0 #x11bdf #x11bdf #x0 #xa9313505 #x3a1ef88d #x1724faf1 #xf07e3a5a) (fftwf_dft_vrank_geq1_register 0 #x10bdf #x10bdf #x0 #xd74b6ba8 #x3255fd7a #xbabdea81 #xdda107cc) (fftwf_dft_buffered_register 0 #x11bdf #x11bdf #x0 #x537a36e8 #xd1480312 #x0148015e #x4ad2b425) (fftwf_codelet_hc2cfdftv_10_sse2 0 #x11bdf #x11bdf #x0 #xb8146121 #xe76d0c22 #x4b0c8f36 #x97ed1f17) (fftwf_codelet_r2cb_2 2 #x11bdf #x11bdf #x0 #x4b985610 #x96436091 #x02bdd9e6 #x4387364f) (fftwf_codelet_t1buv_7_sse2 0 #x10bdf #x10bdf #x0 #xaee97ead #xa6d55784 #xd4c213b9 #x60aa5b9c) (fftwf_codelet_t2bv_4_avx 0 #x11bdf #x11bdf #x0 #xa5a910ff #x8afcc66a #xcd237637 #x56c3bc30) (fftwf_codelet_n1bv_128_sse2 0 #x11bdf #x11bdf #x0 #x4ef6321c #x1d976c10 #x5f714ce1 #xa1fa6bda) (fftwf_dft_nop_register 0 #x11bdf #x11bdf #x0 #x4b172547 #xee317789 #x2c625b9a #x3c17e0c1) ) -----Original Message----- From: John Nelson [mailto:[email protected]] Sent: Thursday, November 20, 2014 2:32 PM To: WSJT software development Subject: Re: [wsjt-devel] [wsjt:wsjt] [r4611] - k1jt: Should have been included in previous commit. Hi Joe, Could you send me an example of what jt_wisdom.dat should look like? --- John G4KLA ---------------------------------------------------------------------------- -- Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk _______________________________________________ wsjt-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/wsjt-devel ------------------------------------------------------------------------------ Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk _______________________________________________ wsjt-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/wsjt-devel
