On 15/02/2017 19:16, Black Michael wrote:
77 call getopt('hs:e:a:b:r:m:p:d:f:w:t:964qTL:S:H:c:G:x:g:X:',long_options,c, &78 optarg,arglen,stat,offset,remain,.true.) 79 if (stat .ne. 0) then 80 exit 81 end if 82 shared_data%params%naggressive=0 83 shared_data%params%n2pass=2 84 shared_data%params%nranera=6 85 select case (c)
Hi Mike,the shared_data object does not exist until after the allocate statement. You are setting the values too early. Your assignments are in the loop that processes the command line options.
73 Bill G4WJS.
------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, SlashDot.org! http://sdm.link/slashdot
_______________________________________________ wsjt-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/wsjt-devel
