http://blog.gmane.org/gmane.comp.gcc.fortran hourly 1 1901-01-01T00:00+00:00 http://gmane.org/img/gmane-25t.png http://gmane.org http://comments.gmane.org/gmane.comp.gcc.fortran/38849 <pre>Dear list, I know we can use gcc -dumpspecs &gt; specs copy specs to default specs location, and also can change the specs value for example, change *cc1: %(cc1_cpu) to *cc1: %(cc1_cpu) -march=native this can change gcc default option. But now I only want to change default gfortran specs option. I try to use *f951: -march=native or *f951_options: -march=native These are all invalid. And I see that : gcc -dumpspecs &gt; specs1 g++ -dumpspecs &gt; specs2 gfortran -dumpspecs &gt; specs3 specs1, specs2 and specs3's content are all the same... Is it normal? But how to set default gfortran specs option? Thanks. </pre> xunxun 2012-05-24T16:39:12 http://comments.gmane.org/gmane.comp.gcc.fortran/38847 <pre>This patch fixes an ordering problem with deferred string lengths. For str = str2(:nn) where "nn" is a something a tad more complicated than a local variable (e.g. a non-VALUE dummy argument), the result was wrong: the temporary variable with the string length was used before it was set. The attached patch fixes the issue. However, I wonder whether the block should/could always be added. Build and regtested on x86-64-linux. OK for the trunk? * * * Remaining deferred-length issues: - PR 47674: a = a(:n); reallocation messed up; "realloc" should be enough as the length has to be always &lt;= previous length [memory content is then guaranteed to remain untouched]. Alternatively, a temporary is required - PR 49954: String length is wrong for "array(:)(1:1)": It's wrongly the one of "array" instead of 1; there might be some extra issues. - PR 50221: Some odd array assignment issues. - PR 51976: Deferred-string components. Needs a hidden component for the string length. Tricky: expr-&gt;ts.u.cl-&gt;backend_decl is wrong as that points to the component - missing the component ref ("var-&gt;comp"). Similar to the issue of PR49954. Tobias </pre> Tobias Burnus 2012-05-24T14:33:27 http://comments.gmane.org/gmane.comp.gcc.fortran/38834 <pre>Hi, I've been asked by an Academic to setup a gfortran install on Linux with the AFNL numeric libs installed. (I'm sadly a sysadmin, not a Fortran programmer) But no problem, set her up with a Scientific Linux VM, with spice and GCC/Gfortran 4.4.6 installed. (the default for RHEL/SL 6.2) [root&lt; at &gt;druggat afnl]# gfortran --version GNU Fortran (GCC) 4.4.6 20110731 (Red Hat 4.4.6-3) Copyright (C) 2010 Free Software Foundation, Inc. I swapped the makefile from ifort to gfortran and hit it up.. Got this: [root&lt; at &gt;druggat afnl]# make gfortran -c numtypes.o error.o constants.o ./src/min.f90 -o min.o ./src/min.f90:910.28: CALL LineSrch(X2, Fdir, Tol) 1 Error: Internal procedure 'fdir' is not allowed as an actual argument at (1) ./src/min.f90:829.24: CALL LineSrch(X2,Fdir, Tol) (and lots more of the same) Since the make file seems to suggest that it would compile successfully on gfortran 4.2 I'm a bit lost regarding what to do now. Are their any gfortran numerical libraries comparable to AFNL or IMSL kindest regards Franki IT Services University of Western Australia. </pre> Frank Hauptle 2012-05-24T04:26:34 http://comments.gmane.org/gmane.comp.gcc.fortran/38833 <pre> I'm pretty sure this is off-topic for this list (feel free to point me toward something more generally about fortran), but I figure folks on this list are likely to have answers (esp multi-platform coders): I work on an atmospheric model (now a family of models--more below), the code for which long predates me. (We've not yet gotten it to F90.) Like most Earth-system models it defines a 3-space over the surface of an Earth region, and various variables of interest within each "box" in that space, and then solves differential equations over discrete "timesteps." One area in which we advance is by creating "instrumented models" (IMs) derived from our "base model." E.g., we have a sensitivity model which essentially calculates derivatives of change in one quantity vs change(s) in one or more other quantities, in each box over each timestep. (E.g., one might be interested in the sensitivity of production of ozone to concentrations of other chemical species at various spacetimes.) Currently, this IM is developed as a separate body of code, in a separate repository: its developer takes the current version of the "base model", and adds necessary data structures and calculations. The other instrumented models (I believe we currently have 5) proceed similarly. Note each IM has well-separated concerns: * our IMs are purely additive: they only add code to the base model, never subtract. * our IMs are orthogonal: users can't (yet :-) simultaneously run a combination of 2 or more IMs. Separate development means each IM developer spends most of her/his time "catching up" to changes in the base model. So we'd like to, jointly, * have all the developers work on one set of codes but * (continue to) have users run only the model of interest * pay no runtime performance penalty How best to do this? My group seems to concur that 1 We should make the model-choice &lt; at &gt; compiletime. I.e., the user builds only the model(s) of interest. 2 The only way to do this (of which we're aware, in fortran--more below) in one set of code is to use the preprocessor. E.g., for IMs={foo, bar}, #ifdef foo SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP, &amp; SENGRID, NPMAX, IPT, IPARM, ISPLIT, &amp; ILAYER, STDATE, IDATE, ITIME, SEN_PAR ) #elif bar SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP, &amp; HGGRID, HGMAX, HGMIN, HGDATE, HGTIME, HGPAR ) #else C the base model SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP ) #endif 3 For all but the most trivial blocks (like the above), using the preprocessor would tend to degrade maintainability, e.g., the code would quickly get unreadable. I'd appreciate "second opinions" from outside my group about how to do this. (And feel free to say, "your analysis is flawless--you're totally screwed" :-) Regarding 1: can one make the choice of model/code &lt; at &gt; runtime, without paying a penalty at either buildtime (these models already require nontrivial time and expertise to build) or runtime (e.g., bloating the executable)? Regarding 2: is there an alternative to the preprocessor? E.g.: I spent a long time coding java; in a similar circumstance there, I'd try AspectJ or other vehicle for aspect-oriented programming. I believe there are attempts at AOP for C++, but know of nothing for fortran. Am I missing something? Regarding 3: is the readability concern warranted? or will we "just get over it"? Again, if there's a better vehicle for questions like this, please pass a pointer; otherwise, your assistance is appreciated, Tom Roche &lt;Tom_Roche&lt; at &gt;pobox.com&gt; </pre> Tom Roche 2012-05-23T23:09:09 http://comments.gmane.org/gmane.comp.gcc.fortran/38827 <pre>Hi, some targets such as VXWorks don't provide gettimeofday but do provide clock_gettime. The attached patch allows such targets to get better resolution for the DATE_AND_TIME (up to the 1 millisecond limit of the API) intrinsic than the 1 second resolution provided by the current fallback of using the C standard time(). (SYSTEM_CLOCK already uses clock_gettime if available and thus nanosecond resultion has been available to vxworks also before this patch.) Ok for trunk? (Patch both inline below and as an attachment) 2012-05-23 Janne Blomqvist &lt;jb&lt; at &gt;gcc.gnu.org&gt; PR fortran/53456 * intrinsics/time_1.h (gf_gettime): Fallback for clock_gettime. diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h index aaca56a..ca5b26b 100644 --- a/libgfortran/intrinsics/time_1.h +++ b/libgfortran/intrinsics/time_1.h &lt; at &gt;&lt; at &gt; -181,8 +181,8 &lt; at &gt;&lt; at &gt; gf_cputime (long *user_sec, long *user_usec, long *system_sec, long *system_usec #endif -/* Realtime clock with microsecond resolution, falling back to less - precise functions if the target does not support gettimeofday(). +/* Realtime clock with microsecond resolution, falling back to other + functions if the target does not support gettimeofday(). Arguments: secs - OUTPUT, seconds &lt; at &gt;&lt; at &gt; -204,6 +204,12 &lt; at &gt;&lt; at &gt; gf_gettime (time_t * secs, long * usecs) *secs = tv.tv_sec; *usecs = tv.tv_usec; return err; +#elif defined(HAVE_CLOCK_GETTIME) + struct timespec ts; + int err = clock_gettime (CLOCK_REALTIME, &amp;ts); + *secs = ts.tv_sec; + *usecs = ts.tv_nsec / 1000; + return err; #else time_t t = time (NULL); *secs = t; </pre> Janne Blomqvist 2012-05-23T14:44:54 http://comments.gmane.org/gmane.comp.gcc.fortran/38821 <pre>First: I have another rather simple patch, which still needs to be reviewed: http://gcc.gnu.org/ml/fortran/2012-05/msg00086.html * * * When a realloc on assignment is done, gfortran first obtains the descriptor by calling realloc_lhs_loop_for_fcn_call and then does the actual function call using gfc_conv_function_expr. However, realloc_lhs_loop_for_fcn_call already causes that the RHS is evaluated (via gfc_add_loop_ss_code). The double evaluation of an inner function call, causes memory leaks - and double evaluation (correctness/performance issue). The following code solves the issue. I am not 100% sure that it correctly does so, but it solved the problem and the testsuite passed. (It might obsolete the check in "se-&gt;direct_byref" of gfc_conv_procedure_call.) The test case is a bit pointless as it will only fail if one uses valgrind on it; thus, one could consider committing the patch even without. However, it might not harm to have it in the test suite. Build and regtested on x86-64-linux. OK for the trunk and 4.6/4.7? Tobias </pre> Tobias Burnus 2012-05-21T17:51:23 http://comments.gmane.org/gmane.comp.gcc.fortran/38817 <pre> I've noticed this failure for some time but never got around to inspecting things. The X=34.53 case seem to need a precision allowance bump. Ok for mainline and 4.7 branch? BTW, for the curious, I've attached a log file of this testcase run with all the print statements uncommented. * gfortran.dg/bessel_7.f90: Bump allowed precision to avoid failure on sparc-*-linux-gnu. diff --git a/gcc/testsuite/gfortran.dg/bessel_7.f90 b/gcc/testsuite/gfortran.dg/bessel_7.f90 index 78f1ff2..7e63ed1 100644 --- a/gcc/testsuite/gfortran.dg/bessel_7.f90 +++ b/gcc/testsuite/gfortran.dg/bessel_7.f90 &lt; at &gt;&lt; at &gt; -16,7 +16,7 &lt; at &gt;&lt; at &gt; implicit none real,parameter :: values(*) = [0.0, 0.5, 1.0, 0.9, 1.8,2.0,3.0,4.0,4.25,8.0,34.53, 475.78] real,parameter :: myeps(size(values)) = epsilon(0.0) &amp; - * [2, 3, 4, 5, 8, 2, 12, 6, 7, 6, 31, 168 ] + * [2, 3, 4, 5, 8, 2, 12, 6, 7, 6, 36, 168 ] ! The following is sufficient for me - the values above are a bit ! more tolerant ! * [0, 0, 0, 3, 3, 0, 9, 0, 2, 1, 22, 130 ] YN for X = 0.00000000 -- Epsilon = 1.19209290E-07 0 -Infinity -Infinity NaN NaN T T 1 -Infinity -Infinity NaN NaN T T 2 -Infinity -Infinity NaN NaN T T 3 -Infinity -Infinity NaN NaN T T 4 -Infinity -Infinity NaN NaN T T 5 -Infinity -Infinity NaN NaN T T 6 -Infinity -Infinity NaN NaN T T 7 -Infinity -Infinity NaN NaN T T 8 -Infinity -Infinity NaN NaN T T 9 -Infinity -Infinity NaN NaN T T 10 -Infinity -Infinity NaN NaN T T 11 -Infinity -Infinity NaN NaN T T 12 -Infinity -Infinity NaN NaN T T 13 -Infinity -Infinity NaN NaN T T 14 -Infinity -Infinity NaN NaN T T 15 -Infinity -Infinity NaN NaN T T 16 -Infinity -Infinity NaN NaN T T 17 -Infinity -Infinity NaN NaN T T 18 -Infinity -Infinity NaN NaN T T 19 -Infinity -Infinity NaN NaN T T 20 -Infinity -Infinity NaN NaN T T 21 -Infinity -Infinity NaN NaN T T 22 -Infinity -Infinity NaN NaN T T 23 -Infinity -Infinity NaN NaN T T 24 -Infinity -Infinity NaN NaN T T 25 -Infinity -Infinity NaN NaN T T 26 -Infinity -Infinity NaN NaN T T 27 -Infinity -Infinity NaN NaN T T 28 -Infinity -Infinity NaN NaN T T 29 -Infinity -Infinity NaN NaN T T 30 -Infinity -Infinity NaN NaN T T 31 -Infinity -Infinity NaN NaN T T 32 -Infinity -Infinity NaN NaN T T 33 -Infinity -Infinity NaN NaN T T 34 -Infinity -Infinity NaN NaN T T 35 -Infinity -Infinity NaN NaN T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 0.500000000 -- Epsilon = 1.19209290E-07 0 -0.444518715E+00 -0.444518715E+00 0.00E+00 -0.0000000000 T T 1 -0.147147238E+01 -0.147147238E+01 0.00E+00 -0.0000000000 T T 2 -0.544137096E+01 -0.544137096E+01 0.00E+00 -0.0000000000 T T 3 -0.420594940E+02 -0.420594940E+02 0.00E+00 -0.0000000000 T T 4 -0.499272552E+03 -0.499272552E+03 0.00E+00 -0.0000000000 T T 5 -0.794630127E+04 -0.794630127E+04 0.00E+00 -0.0000000000 T T 6 -0.158426750E+06 -0.158426766E+06 0.16E-01 -0.8273350596 T T 7 -0.379429575E+07 -0.379429625E+07 0.50E+00 -1.1054235697 T T 8 -0.106081856E+09 -0.106081872E+09 0.16E+02 -1.2652279139 T T 9 -0.339082522E+10 -0.339082573E+10 0.51E+03 -1.2666436434 T T 10 -0.121963626E+12 -0.121963651E+12 0.25E+05 -1.6903271675 T T 11 -0.487515436E+13 -0.487515541E+13 0.10E+07 -1.8042696714 T T 12 -0.214384836E+15 -0.214384870E+15 0.34E+08 -1.3129426241 T T 13 -0.102855973E+17 -0.102855984E+17 0.11E+10 -0.8757098913 T T 14 -0.534636670E+18 -0.534636739E+18 0.69E+11 -1.0782289505 T T 15 -0.299293684E+20 -0.299293728E+20 0.44E+13 -1.2326852083 T T 16 -0.179522742E+22 -0.179522770E+22 0.28E+15 -1.3152557611 T T 17 -0.114864624E+24 -0.114864642E+24 0.18E+17 -1.3155984879 T T 18 -0.780899906E+25 -0.780900079E+25 0.17E+19 -1.8577425480 T T 19 -0.562133056E+27 -0.562133203E+27 0.15E+21 -2.2022190094 T T 20 -0.427143054E+29 -0.427143149E+29 0.94E+22 -1.8548390865 T T 21 -0.341658243E+31 -0.341658304E+31 0.60E+24 -1.4841153622 T T 22 -0.286950207E+33 -0.286950265E+33 0.58E+26 -1.6963843107 T T 23 -0.252482006E+35 -0.252482055E+35 0.50E+28 -1.6452014446 T T 24 -0.232254744E+37 -0.232254791E+37 0.48E+30 -1.7169440985 T T 25 -0.222939297E+39 -0.222939358E+39 0.61E+32 -2.2895181179 T T 26 -Infinity -Infinity NaN NaN T T 27 -Infinity -Infinity NaN NaN T T 28 -Infinity -Infinity NaN NaN T T 29 -Infinity -Infinity NaN NaN T T 30 -Infinity -Infinity NaN NaN T T 31 -Infinity -Infinity NaN NaN T T 32 -Infinity -Infinity NaN NaN T T 33 -Infinity -Infinity NaN NaN T T 34 -Infinity -Infinity NaN NaN T T 35 -Infinity -Infinity NaN NaN T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 1.00000000 -- Epsilon = 1.19209290E-07 0 0.882569551E-01 0.882569551E-01 0.00E+00 0.0000000000 T T 1 -0.781212807E+00 -0.781212807E+00 0.00E+00 -0.0000000000 T T 2 -0.165068257E+01 -0.165068257E+01 0.00E+00 -0.0000000000 T T 3 -0.582151747E+01 -0.582151747E+01 0.00E+00 -0.0000000000 T T 4 -0.332784233E+02 -0.332784195E+02 -0.38E-05 0.9615840316 T T 5 -0.260405884E+03 -0.260405853E+03 -0.31E-04 0.9830806851 T T 6 -0.257078052E+04 -0.257078027E+04 -0.24E-03 0.7966452241 T T 7 -0.305889609E+05 -0.305889570E+05 -0.39E-02 1.0712361336 T T 8 -0.425674688E+06 -0.425674625E+06 -0.63E-01 1.2316635847 T T 9 -0.678020600E+07 -0.678020500E+07 -0.10E+01 1.2372201681 T T 10 -0.121618032E+09 -0.121618016E+09 -0.16E+02 1.1036005020 T T 11 -0.242558054E+10 -0.242558029E+10 -0.26E+03 0.8853483200 T T 12 -0.532411556E+11 -0.532411474E+11 -0.82E+04 1.2907209396 T T 13 -0.127536215E+13 -0.127536189E+13 -0.26E+06 1.7242343426 T T 14 -0.331061741E+14 -0.331061679E+14 -0.63E+07 1.5941605568 T T 15 -0.925697523E+15 -0.925697388E+15 -0.13E+09 1.2162718773 T T 16 -0.277378201E+17 -0.277378158E+17 -0.43E+10 1.2989051342 T T 17 -0.886684522E+18 -0.886684385E+18 -0.14E+12 1.3002612591 T T 18 -0.301195355E+20 -0.301195311E+20 -0.44E+13 1.2249022722 T T 19 -0.108341661E+22 -0.108341640E+22 -0.21E+15 1.6345397234 T T 20 -0.411397116E+23 -0.411397026E+23 -0.90E+16 1.8366162777 T T 21 -0.164450504E+25 -0.164450461E+25 -0.43E+18 2.2053914070 T T 22 -0.690280714E+26 -0.690280530E+26 -0.18E+20 2.2417330742 T T 23 -0.303559060E+28 -0.303558971E+28 -0.89E+21 2.4468517303 T T 24 -0.139568144E+30 -0.139568096E+30 -0.47E+23 2.8383326530 T T 25 -0.669623528E+31 -0.669623286E+31 -0.24E+25 3.0289273262 T T 26 -0.334672177E+33 -0.334672060E+33 -0.12E+27 2.9089829922 T T 27 -0.173962564E+35 -0.173962514E+35 -0.50E+28 2.3877766132 T T 28 -0.939063205E+36 -0.939062888E+36 -0.32E+30 2.8309659958 T T 29 -0.525701448E+38 -0.525701245E+38 -0.20E+32 3.2364602089 T T 30 -Infinity -Infinity NaN NaN T T 31 -Infinity -Infinity NaN NaN T T 32 -Infinity -Infinity NaN NaN T T 33 -Infinity -Infinity NaN NaN T T 34 -Infinity -Infinity NaN NaN T T 35 -Infinity -Infinity NaN NaN T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 0.899999976 -- Epsilon = 1.19209290E-07 0 0.562828034E-02 0.562828034E-02 0.00E+00 0.0000000000 T T 1 -0.873126566E+00 -0.873126566E+00 0.00E+00 -0.0000000000 T T 2 -0.194590962E+01 -0.194590962E+01 0.00E+00 -0.0000000000 T T 3 -0.777536106E+01 -0.777536154E+01 0.48E-06 -0.5144455433 T T 4 -0.498898315E+02 -0.498898354E+02 0.38E-05 -0.6414132714 T T 5 -0.435689819E+03 -0.435689850E+03 0.31E-04 -0.5875740051 T T 6 -0.479110840E+04 -0.479110889E+04 0.49E-03 -0.8549169898 T T 7 -0.634457578E+05 -0.634457617E+05 0.39E-02 -0.5164726973 T T 8 -0.982142938E+06 -0.982143000E+06 0.63E-01 -0.5338204503 T T 9 -0.173968740E+08 -0.173968740E+08 0.00E+00 -0.0000000000 T T 10 -0.346955328E+09 -0.346955328E+09 0.00E+00 -0.0000000000 T T 11 -0.769272166E+10 -0.769272218E+10 0.51E+03 -0.5583156943 T T 12 -0.187697365E+12 -0.187697381E+12 0.16E+05 -0.7322369814 T T 13 -0.499757036E+13 -0.499757089E+13 0.52E+06 -0.8800369501 T T 14 -0.144186565E+15 -0.144186565E+15 0.00E+00 -0.0000000000 T T 15 -0.448080677E+16 -0.448080704E+16 0.27E+09 -0.5025433898 T T 16 -0.149216046E+18 -0.149216063E+18 0.17E+11 -0.9658156037 T T 17 -0.530097865E+19 -0.530097920E+19 0.55E+12 -0.8699687719 T T 18 -0.200109990E+21 -0.200110008E+21 0.18E+14 -0.7374641895 T T 19 -0.799909888E+22 -0.799909944E+22 0.56E+15 -0.5903623104 T T 20 -0.337539640E+24 -0.337539676E+24 0.36E+17 -0.8953954577 T T 21 -0.149937638E+26 -0.149937649E+26 0.12E+19 -0.6450285912 T T 22 -0.699371482E+27 -0.699371482E+27 0.00E+00 -0.0000000000 T T 23 -0.341765029E+29 -0.341765006E+29 -0.24E+22 0.5795513988 T T 24 -0.174609977E+31 -0.174609946E+31 -0.30E+24 1.4519795179 T T 25 -0.930911470E+32 -0.930911277E+32 -0.19E+26 1.7430151701 T T 26 -0.516998454E+34 -0.516998330E+34 -0.12E+28 2.0086314678 T T 27 -0.298617124E+36 -0.298617065E+36 -0.59E+29 1.6692295074 T T 28 -0.179118586E+38 -0.179118548E+38 -0.38E+31 1.7810251713 T T 29 -Infinity -Infinity NaN NaN T T 30 -Infinity -Infinity NaN NaN T T 31 -Infinity -Infinity NaN NaN T T 32 -Infinity -Infinity NaN NaN T T 33 -Infinity -Infinity NaN NaN T T 34 -Infinity -Infinity NaN NaN T T 35 -Infinity -Infinity NaN NaN T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 1.79999995 -- Epsilon = 1.19209290E-07 0 0.477431715E+00 0.477431715E+00 0.00E+00 0.0000000000 T T 1 -0.223664910E+00 -0.223664910E+00 0.00E+00 -0.0000000000 T T 2 -0.725948274E+00 -0.725948274E+00 0.00E+00 -0.0000000000 T T 3 -0.138955355E+01 -0.138955355E+01 0.00E+00 -0.0000000000 T T 4 -0.390589714E+01 -0.390589714E+01 0.00E+00 -0.0000000000 T T 5 -0.159699898E+02 -0.159699898E+02 0.00E+00 -0.0000000000 T T 6 -0.848162689E+02 -0.848162689E+02 0.00E+00 -0.0000000000 T T 7 -0.549471802E+03 -0.549471863E+03 0.61E-04 -0.9318039417 T T 8 -0.418885352E+04 -0.418885400E+04 0.49E-03 -0.9778332114 T T 9 -0.366847852E+05 -0.366847852E+05 0.00E+00 -0.0000000000 T T 10 -0.362659000E+06 -0.362659000E+06 0.00E+00 -0.0000000000 T T 11 -0.399285975E+07 -0.399286000E+07 0.25E+00 -0.5252255797 T T 12 -0.484389640E+08 -0.484389640E+08 0.00E+00 -0.0000000000 T T 13 -0.641860032E+09 -0.641860032E+09 0.00E+00 -0.0000000000 T T 14 -0.922287309E+10 -0.922287206E+10 -0.10E+04 0.9313729405 T T 15 -0.142825062E+12 -0.142825046E+12 -0.16E+05 0.9622887969 T T 16 -0.237119498E+13 -0.237119498E+13 0.00E+00 -0.0000000000 T T 17 -0.420117553E+14 -0.420117553E+14 0.00E+00 -0.0000000000 T T 18 -0.791184180E+15 -0.791184180E+15 0.00E+00 -0.0000000000 T T 19 -0.157816716E+17 -0.157816726E+17 0.11E+10 -0.5707379580 T T 20 -0.332377452E+18 -0.332377486E+18 0.34E+11 -0.8671779037 T T 21 -0.737038433E+19 -0.737038488E+19 0.55E+12 -0.6257049441 T T 22 -0.171643265E+21 -0.171643282E+21 0.18E+14 -0.8597713113 T T 23 -0.418835413E+22 -0.418835441E+22 0.28E+15 -0.5637496710 T T 24 -0.106864078E+24 -0.106864078E+24 0.00E+00 -0.0000000000 T T 25 -0.284552067E+25 -0.284552067E+25 0.00E+00 -0.0000000000 T T 26 -0.789353796E+26 -0.789353796E+26 0.00E+00 -0.0000000000 T T 27 -0.227750999E+28 -0.227750999E+28 0.00E+00 -0.0000000000 T T 28 -0.682463701E+29 -0.682463654E+29 -0.47E+22 0.5804569721 T T 29 -0.212094293E+31 -0.212094293E+31 0.00E+00 -0.0000000000 T T 30 -0.682732539E+32 -0.682732443E+32 -0.97E+25 1.1883077621 T T 31 -0.227365437E+34 -0.227365406E+34 -0.31E+27 1.1418395042 T T 32 -0.782464909E+35 -0.782464810E+35 -0.99E+28 1.0617313385 T T 33 -0.277982403E+37 -0.277982371E+37 -0.32E+30 0.9563396573 T T 34 -0.101848637E+39 -0.101848627E+39 -0.10E+32 0.8352649212 T T 35 -Infinity -Infinity NaN NaN T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 2.00000000 -- Epsilon = 1.19209290E-07 0 0.510375679E+00 0.510375679E+00 0.00E+00 0.0000000000 T T 1 -0.107032441E+00 -0.107032441E+00 0.00E+00 -0.0000000000 T T 2 -0.617408097E+00 -0.617408097E+00 0.00E+00 -0.0000000000 T T 3 -0.112778378E+01 -0.112778378E+01 0.00E+00 -0.0000000000 T T 4 -0.276594329E+01 -0.276594329E+01 0.00E+00 -0.0000000000 T T 5 -0.993598938E+01 -0.993598938E+01 0.00E+00 -0.0000000000 T T 6 -0.469140053E+02 -0.469140053E+02 0.00E+00 -0.0000000000 T T 7 -0.271548035E+03 -0.271548035E+03 0.00E+00 -0.0000000000 T T 8 -0.185392224E+04 -0.185392212E+04 -0.12E-03 0.5523424745 T T 9 -0.145598301E+05 -0.145598291E+05 -0.98E-03 0.5626439452 T T 10 -0.129184547E+06 -0.129184539E+06 -0.78E-02 0.5073052645 T T 11 -0.127728563E+07 -0.127728550E+07 -0.13E+00 0.8209409118 T T 12 -0.139209570E+08 -0.139209550E+08 -0.20E+01 1.2051769495 T T 13 -0.165774192E+09 -0.165774176E+09 -0.16E+02 0.8096418977 T T 14 -0.214114355E+10 -0.214114342E+10 -0.13E+03 0.5014805198 T T 15 -0.298102354E+11 -0.298102354E+11 0.00E+00 -0.0000000000 T T 16 -0.445012378E+12 -0.445012378E+12 0.00E+00 -0.0000000000 T T 17 -0.709038755E+13 -0.709038755E+13 0.00E+00 -0.0000000000 T T 18 -0.120091572E+15 -0.120091572E+15 0.00E+00 -0.0000000000 T T 19 -0.215455786E+16 -0.215455786E+16 0.00E+00 -0.0000000000 T T 20 -0.408165087E+17 -0.408165087E+17 0.00E+00 -0.0000000000 T T 21 -0.814175647E+18 -0.814175647E+18 0.00E+00 -0.0000000000 T T 22 -0.170568723E+20 -0.170568723E+20 0.00E+00 -0.0000000000 T T 23 -0.374437014E+21 -0.374437014E+21 0.00E+00 -0.0000000000 T T 24 -0.859499435E+22 -0.859499435E+22 0.00E+00 -0.0000000000 T T 25 -0.205905422E+24 -0.205905440E+24 0.18E+17 -0.7339084148 T T 26 -0.513904039E+25 -0.513904096E+25 0.58E+18 -0.9409739971 T T 27 -0.133409141E+27 -0.133409159E+27 0.18E+20 -1.1599093676 T T 28 -0.359690790E+28 -0.359690820E+28 0.30E+21 -0.6883357167 T T 29 -0.100580012E+30 -0.100580021E+30 0.94E+22 -0.7877128124 T T 30 -0.291322350E+31 -0.291322380E+31 0.30E+24 -0.8702734709 T T 31 -0.872961272E+32 -0.872961272E+32 0.00E+00 -0.0000000000 T T 32 -0.270326676E+34 -0.270326676E+34 0.00E+00 -0.0000000000 T T 33 -0.864172368E+35 -0.864172368E+35 0.00E+00 -0.0000000000 T T 34 -0.284906564E+37 -0.284906564E+37 0.00E+00 -0.0000000000 T T 35 -0.967818173E+38 -0.967818173E+38 0.00E+00 -0.0000000000 T T 36 -Infinity -Infinity NaN NaN T T 37 -Infinity -Infinity NaN NaN T T 38 -Infinity -Infinity NaN NaN T T 39 -Infinity -Infinity NaN NaN T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 3.00000000 -- Epsilon = 1.19209290E-07 0 0.376850069E+00 0.376850069E+00 0.00E+00 0.0000000000 T T 1 0.324674398E+00 0.324674398E+00 0.00E+00 0.0000000000 T T 2 -0.160400465E+00 -0.160400465E+00 0.00E+00 -0.0000000000 T T 3 -0.538541675E+00 -0.538541675E+00 0.00E+00 -0.0000000000 T T 4 -0.916682899E+00 -0.916682899E+00 0.00E+00 -0.0000000000 T T 5 -0.190594614E+01 -0.190594614E+01 0.00E+00 -0.0000000000 T T 6 -0.543647099E+01 -0.543647099E+01 0.00E+00 -0.0000000000 T T 7 -0.198399372E+02 -0.198399372E+02 0.00E+00 -0.0000000000 T T 8 -0.871499100E+02 -0.871499023E+02 -0.76E-05 0.7343667746 T T 9 -0.444959595E+03 -0.444959564E+03 -0.31E-04 0.5753331184 T T 10 -0.258260767E+04 -0.258260742E+04 -0.24E-03 0.7929969430 T T 11 -0.167724258E+05 -0.167724238E+05 -0.20E-02 0.9768413901 T T 12 -0.120415188E+06 -0.120415172E+06 -0.16E-01 1.0885006189 T T 13 -0.946549063E+06 -0.946548938E+06 -0.13E+00 1.1077883244 T T 14 -0.808301050E+07 -0.808300950E+07 -0.10E+01 1.0378073454 T T 15 -0.744948880E+08 -0.744948640E+08 -0.24E+02 2.7025558949 T T 16 -0.736865856E+09 -0.736865600E+09 -0.26E+03 2.9143481255 T T 17 -0.778540800E+10 -0.778540493E+10 -0.31E+04 3.3100132942 T T 18 -0.874977608E+11 -0.874977280E+11 -0.33E+05 3.1415421963 T T 19 -0.104218775E+13 -0.104218729E+13 -0.46E+06 3.6925120354 T T 20 -0.131135470E+14 -0.131135418E+14 -0.52E+07 3.3538191319 T T 21 -0.173805113E+15 -0.173805029E+15 -0.84E+08 4.0487155914 T T 22 -0.242015797E+16 -0.242015689E+16 -0.11E+10 3.7217402458 T T 23 -0.353218454E+17 -0.353218304E+17 -0.15E+11 3.5700509548 T T 24 -0.539181501E+18 -0.539181226E+18 -0.27E+12 4.2765617371 T T 25 -0.859158221E+19 -0.859157781E+19 -0.44E+13 4.2941436768 T T 26 -0.142653867E+21 -0.142653779E+21 -0.88E+14 5.1724481583 T T 27 -0.246407557E+22 -0.246407417E+22 -0.14E+16 4.7912149429 T T 28 -0.442107071E+23 -0.442106801E+23 -0.27E+17 5.1271200180 T T 29 -0.822802536E+24 -0.822801887E+24 -0.65E+18 6.6117520332 T T 30 -0.158633052E+26 -0.158632926E+26 -0.13E+20 6.7063875198 T T 31 -0.316443306E+27 -0.316443048E+27 -0.26E+21 6.8460764885 T T 32 -0.652396523E+28 -0.652395992E+28 -0.53E+22 6.8310971260 T T 33 -0.138861489E+30 -0.138861366E+30 -0.12E+24 7.4172191620 T T 34 -0.304842886E+31 -0.304842614E+31 -0.27E+25 7.4850726128 T T 35 -0.689588648E+32 -0.689587971E+32 -0.68E+26 8.2354526520 T T 36 -0.160599184E+34 -0.160599029E+34 -0.15E+28 8.0826950073 T T 37 -0.384748447E+35 -0.384748100E+35 -0.35E+29 7.5573697090 T T 38 -0.947440236E+36 -0.947439365E+36 -0.87E+30 7.7163219452 T T 39 -0.239633450E+38 -0.239633221E+38 -0.23E+32 7.9875674248 T T 40 -Infinity -Infinity NaN NaN T T 41 -Infinity -Infinity NaN NaN T T 42 -Infinity -Infinity NaN NaN T T 43 -Infinity -Infinity NaN NaN T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 4.00000000 -- Epsilon = 1.19209290E-07 0 -0.169407371E-01 -0.169407371E-01 0.00E+00 -0.0000000000 T T 1 0.397925735E+00 0.397925735E+00 0.00E+00 0.0000000000 T T 2 0.215903610E+00 0.215903610E+00 0.00E+00 0.0000000000 T T 3 -0.182022125E+00 -0.182022125E+00 0.00E+00 -0.0000000000 T T 4 -0.488936782E+00 -0.488936812E+00 0.30E-07 -0.5113135576 T T 5 -0.795851469E+00 -0.795851469E+00 0.00E+00 -0.0000000000 T T 6 -0.150069189E+01 -0.150069189E+01 0.00E+00 -0.0000000000 T T 7 -0.370622420E+01 -0.370622420E+01 0.00E+00 -0.0000000000 T T 8 -0.114710932E+02 -0.114710922E+02 -0.95E-06 0.6974052191 T T 9 -0.421781502E+02 -0.421781464E+02 -0.38E-05 0.7586866617 T T 10 -0.178330582E+03 -0.178330566E+03 -0.15E-04 0.7177680731 T T 11 -0.849474731E+03 -0.849474670E+03 -0.61E-04 0.6027253866 T T 12 -0.449378027E+04 -0.449378027E+04 0.00E+00 -0.0000000000 T T 13 -0.261132070E+05 -0.261132070E+05 0.00E+00 -0.0000000000 T T 14 -0.165242063E+06 -0.165242063E+06 0.00E+00 -0.0000000000 T T 15 -0.113058125E+07 -0.113058125E+07 0.00E+00 -0.0000000000 T T 16 -0.831411750E+07 -0.831411700E+07 -0.50E+00 0.5044797659 T T 17 -0.653823600E+08 -0.653823560E+08 -0.40E+01 0.5132031441 T T 18 -0.547435968E+09 -0.547435904E+09 -0.64E+02 0.9807008505 T T 19 -0.486154138E+10 -0.486154086E+10 -0.51E+03 0.8834579587 T T 20 -0.456372060E+11 -0.456372019E+11 -0.41E+04 0.7528887391 T T 21 -0.451510534E+12 -0.451510501E+12 -0.33E+05 0.6087962389 T T 22 -0.469522344E+13 -0.469522291E+13 -0.52E+06 0.9367065430 T T 23 -0.511959473E+14 -0.511959431E+14 -0.42E+07 0.6872491837 T T 24 -0.584058174E+15 -0.584058107E+15 -0.67E+08 0.9638593793 T T 25 -0.695750235E+16 -0.695750127E+16 -0.11E+10 1.2946023941 T T 26 -0.863847202E+17 -0.863847116E+17 -0.86E+10 0.8341474533 T T 27 -0.111604388E+19 -0.111604375E+19 -0.14E+12 1.0330431461 T T 28 -0.149802082E+20 -0.149802060E+20 -0.22E+13 1.2314077616 T T 29 -0.208606875E+21 -0.208606840E+21 -0.35E+14 1.4148522615 T T 30 -0.300981953E+22 -0.300981896E+22 -0.56E+15 1.5689865351 T T 31 -0.449386870E+23 -0.449386780E+23 -0.90E+16 1.6813545227 T T 32 -0.693539859E+24 -0.693539643E+24 -0.22E+18 2.6146857738 T T 33 -0.110516992E+26 -0.110516957E+26 -0.35E+19 2.6253175735 T T 34 -0.181659496E+27 -0.181659440E+27 -0.55E+20 2.5554816723 T T 35 -0.307715982E+28 -0.307715864E+28 -0.12E+22 3.2183964252 T T 36 -0.536686373E+29 -0.536686184E+29 -0.19E+23 2.9524939060 T T 37 -0.962958301E+30 -0.962957923E+30 -0.38E+24 3.2910318375 T T 38 -0.177610594E+32 -0.177610522E+32 -0.73E+25 3.4258782864 T T 39 -0.336497171E+33 -0.336497016E+33 -0.15E+27 3.8576080799 T T 40 -0.654393364E+34 -0.654393055E+34 -0.31E+28 3.9672596455 T T 41 -0.130542174E+36 -0.130542104E+36 -0.69E+29 4.4547843933 T T 42 -0.266957075E+37 -0.266956917E+37 -0.16E+31 4.9791827202 T T 43 -0.559304431E+38 -0.559304076E+38 -0.35E+32 5.3235244751 T T 44 -Infinity -Infinity NaN NaN T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 4.25000000 -- Epsilon = 1.19209290E-07 0 -0.111918867E+00 -0.111918867E+00 0.00E+00 -0.0000000000 T T 1 0.358568966E+00 0.358568966E+00 0.00E+00 0.0000000000 T T 2 0.280657202E+00 0.280657202E+00 0.00E+00 0.0000000000 T T 3 -0.944210142E-01 -0.944209993E-01 -0.15E-07 1.3238577843 T T 4 -0.413957447E+00 -0.413957447E+00 0.00E+00 -0.0000000000 T T 5 -0.684792995E+00 -0.684792995E+00 0.00E+00 -0.0000000000 T T 6 -0.119732022E+01 -0.119732022E+01 0.00E+00 -0.0000000000 T T 7 -0.269587588E+01 -0.269587588E+01 0.00E+00 -0.0000000000 T T 8 -0.768321228E+01 -0.768321228E+01 0.00E+00 -0.0000000000 T T 9 -0.262291584E+02 -0.262291603E+02 0.19E-05 -0.6100081205 T T 10 -0.103404991E+03 -0.103404999E+03 0.76E-05 -0.6189256310 T T 11 -0.460382599E+03 -0.460382629E+03 0.31E-04 -0.5560592413 T T 12 -0.227975195E+04 -0.227975220E+04 0.24E-03 -0.8983433247 T T 13 -0.124135107E+05 -0.124135127E+05 0.20E-02 -1.3198522329 T T 14 -0.736617266E+05 -0.736617422E+05 0.16E-01 -1.7793772221 T T 15 -0.472887281E+06 -0.472887406E+06 0.13E+00 -2.2173910141 T T 16 -0.326436625E+07 -0.326436700E+07 0.75E+00 -1.9273132086 T T 17 -0.241058700E+08 -0.241058760E+08 0.60E+01 -2.0879416466 T T 18 -0.189582592E+09 -0.189582640E+09 0.48E+02 -2.1238932610 T T 19 -0.158177024E+10 -0.158177075E+10 0.51E+03 -2.7152915001 T T 20 -0.139533046E+11 -0.139533087E+11 0.41E+04 -2.4624803066 T T 21 -0.129743454E+12 -0.129743495E+12 0.41E+05 -2.6482830048 T T 22 -0.126821728E+13 -0.126821768E+13 0.39E+06 -2.6009225845 T T 23 -0.130000355E+14 -0.130000397E+14 0.42E+07 -2.7064826488 T T 24 -0.139438051E+15 -0.139438093E+15 0.42E+08 -2.5232977867 T T 25 -0.156182969E+16 -0.156183023E+16 0.54E+09 -2.8835408688 T T 26 -0.182350288E+17 -0.182350353E+17 0.64E+10 -2.9637022018 T T 27 -0.221549119E+18 -0.221549205E+18 0.86E+11 -3.2524433136 T T 28 -0.279674197E+19 -0.279674307E+19 0.11E+13 -3.2978987694 T T 29 -0.366296405E+20 -0.366296537E+20 0.13E+14 -3.0216093063 T T 30 -0.497090122E+21 -0.497090298E+21 0.18E+15 -2.9687564373 T T 31 -0.698111310E+22 -0.698111591E+22 0.28E+16 -3.3822445869 T T 32 -0.101345025E+24 -0.101345070E+24 0.45E+17 -3.7277538776 T T 33 -0.151915567E+25 -0.151915639E+25 0.72E+18 -3.9789400101 T T 34 -0.234902499E+26 -0.234902591E+26 0.92E+19 -3.2937602997 T T 35 -0.374324836E+27 -0.374324983E+27 0.15E+21 -3.3071277142 T T 36 -0.614186026E+28 -0.614186262E+28 0.24E+22 -3.2249252796 T T 37 -0.103676024E+30 -0.103676062E+30 0.38E+23 -3.0567593575 T T 38 -0.179904059E+31 -0.179904135E+31 0.76E+24 -3.5231294632 T T 39 -0.320674029E+32 -0.320674174E+32 0.15E+26 -3.7949583530 T T 40 -0.586732127E+33 -0.586732398E+33 0.27E+27 -3.8716642857 T T 41 -0.110123024E+35 -0.110123073E+35 0.50E+28 -3.7719972134 T T 42 -0.211885916E+36 -0.211886015E+36 0.99E+29 -3.9208245277 T T 43 -0.417685042E+37 -0.417685232E+37 0.19E+31 -3.8188428879 T T 44 -0.843079123E+38 -0.843079528E+38 0.41E+32 -4.0361852646 T T 45 -Infinity -Infinity NaN NaN T T 46 -Infinity -Infinity NaN NaN T T 47 -Infinity -Infinity NaN NaN T T 48 -Infinity -Infinity NaN NaN T T 49 -Infinity -Infinity NaN NaN T T 50 -Infinity -Infinity NaN NaN T T 51 -Infinity -Infinity NaN NaN T T 52 -Infinity -Infinity NaN NaN T T 53 -Infinity -Infinity NaN NaN T T 54 -Infinity -Infinity NaN NaN T T 55 -Infinity -Infinity NaN NaN T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 8.00000000 -- Epsilon = 1.19209290E-07 0 0.223521501E+00 0.223521501E+00 0.00E+00 0.0000000000 T T 1 -0.158060491E+00 -0.158060491E+00 0.00E+00 -0.0000000000 T T 2 -0.263036609E+00 -0.263036609E+00 0.00E+00 -0.0000000000 T T 3 0.265421867E-01 0.265421867E-01 0.00E+00 0.0000000000 T T 4 0.282943249E+00 0.282943249E+00 0.00E+00 0.0000000000 T T 5 0.256401062E+00 0.256401062E+00 0.00E+00 0.0000000000 T T 6 0.375580788E-01 0.375580788E-01 0.00E+00 0.0000000000 T T 7 -0.200063944E+00 -0.200063944E+00 0.00E+00 -0.0000000000 T T 8 -0.387669981E+00 -0.387669981E+00 0.00E+00 -0.0000000000 T T 9 -0.575276017E+00 -0.575276017E+00 0.00E+00 -0.0000000000 T T 10 -0.906701088E+00 -0.906701028E+00 -0.60E-07 0.5514496565 T T 11 -0.169147670E+01 -0.169147646E+01 -0.24E-06 1.1823987961 T T 12 -0.374485993E+01 -0.374485922E+01 -0.72E-06 1.6021960974 T T 13 -0.954310322E+01 -0.954310036E+01 -0.29E-05 2.5149052143 T T 14 -0.272702255E+02 -0.272702160E+02 -0.95E-05 2.9336023331 T T 15 -0.859026871E+02 -0.859026566E+02 -0.31E-04 2.9801163673 T T 16 -0.294864838E+03 -0.294864746E+03 -0.92E-04 2.6045832634 T T 17 -0.109355664E+04 -0.109355627E+04 -0.37E-03 2.8091824055 T T 18 -0.435275098E+04 -0.435274951E+04 -0.15E-02 2.8230421543 T T 19 -0.184938223E+05 -0.184938164E+05 -0.59E-02 2.6577522755 T T 20 -0.834929063E+05 -0.834928750E+05 -0.31E-01 3.1397159100 T T 21 -0.398970719E+06 -0.398970563E+06 -0.16E+00 3.2852535248 T T 22 -0.201110338E+07 -0.201110263E+07 -0.75E+00 3.1283602715 T T 23 -0.106620980E+08 -0.106620930E+08 -0.50E+01 3.9338448048 T T 24 -0.592959600E+08 -0.592959320E+08 -0.28E+02 3.9611639977 T T 25 -0.345113664E+09 -0.345113504E+09 -0.16E+03 3.8890876770 T T 26 -0.209766438E+10 -0.209766362E+10 -0.77E+03 3.0712497234 T T 27 -0.132897044E+11 -0.132897004E+11 -0.41E+04 2.5854403973 T T 28 -0.876078367E+11 -0.876078203E+11 -0.16E+05 1.5687974691 T T 29 -0.599965172E+12 -0.599965041E+12 -0.13E+06 1.8326257467 T T 30 -0.426213953E+13 -0.426213874E+13 -0.79E+06 1.5478305817 T T 31 -0.313660812E+14 -0.313660749E+14 -0.63E+07 1.6825996637 T T 32 -0.238824995E+15 -0.238824945E+15 -0.50E+08 1.7678738832 T T 33 -0.187923382E+16 -0.187923355E+16 -0.27E+09 1.1982542276 T T 34 -0.152648539E+17 -0.152648517E+17 -0.21E+10 1.1801226139 T T 35 -0.127872025E+18 -0.127872000E+18 -0.26E+11 1.6905400753 T T 36 -0.110361535E+19 -0.110361514E+19 -0.21E+12 1.5670154095 T T 37 -0.980466624E+19 -0.980466404E+19 -0.22E+13 1.8814250231 T T 38 -0.895895444E+20 -0.895895268E+20 -0.18E+14 1.6472229958 T T 39 -0.841295984E+21 -0.841295843E+21 -0.14E+15 1.4033011198 T T 40 -0.811304614E+22 -0.811304501E+22 -0.11E+16 1.1641414165 T T 41 -0.802891654E+23 -0.802891473E+23 -0.18E+17 1.8821434975 T T 42 -0.814850908E+24 -0.814850692E+24 -0.22E+18 2.2254240513 T T 43 -0.847564537E+25 -0.847564364E+25 -0.17E+19 1.7116230726 T T 44 -0.902983341E+26 -0.902983249E+26 -0.92E+19 0.8568403125 T T 45 -0.984805996E+27 -0.984805996E+27 0.00E+00 -0.0000000000 T T 46 -0.109887685E+29 -0.109887685E+29 0.00E+00 -0.0000000000 T T 47 -0.125386036E+30 -0.125386036E+30 0.00E+00 -0.0000000000 T T 48 -0.146229718E+31 -0.146229703E+31 -0.15E+24 0.8668898344 T T 49 -0.174221806E+32 -0.174221782E+32 -0.24E+25 1.1641716957 T T 50 -0.211959417E+33 -0.211959378E+33 -0.39E+26 1.5310410261 T T 51 -0.263207066E+34 -0.263207004E+34 -0.62E+27 1.9727041721 T T 52 -0.333469405E+35 -0.333469331E+35 -0.74E+28 1.8684641123 T T 53 -0.430878163E+36 -0.430878044E+36 -0.12E+30 2.3136959076 T T 54 -0.567578894E+37 -0.567578704E+37 -0.19E+31 2.8103117943 T T 55 -0.761922712E+38 -0.761922458E+38 -0.25E+32 2.7913129330 T T 56 -Infinity -Infinity NaN NaN T T 57 -Infinity -Infinity NaN NaN T T 58 -Infinity -Infinity NaN NaN T T 59 -Infinity -Infinity NaN NaN T T 60 -Infinity -Infinity NaN NaN T T 61 -Infinity -Infinity NaN NaN T T 62 -Infinity -Infinity NaN NaN T T 63 -Infinity -Infinity NaN NaN T T 64 -Infinity -Infinity NaN NaN T T 65 -Infinity -Infinity NaN NaN T T 66 -Infinity -Infinity NaN NaN T T 67 -Infinity -Infinity NaN NaN T T 68 -Infinity -Infinity NaN NaN T T 69 -Infinity -Infinity NaN NaN T T 70 -Infinity -Infinity NaN NaN T T 71 -Infinity -Infinity NaN NaN T T 72 -Infinity -Infinity NaN NaN T T 73 -Infinity -Infinity NaN NaN T T 74 -Infinity -Infinity NaN NaN T T 75 -Infinity -Infinity NaN NaN T T 76 -Infinity -Infinity NaN NaN T T 77 -Infinity -Infinity NaN NaN T T 78 -Infinity -Infinity NaN NaN T T 79 -Infinity -Infinity NaN NaN T T 80 -Infinity -Infinity NaN NaN T T 81 -Infinity -Infinity NaN NaN T T 82 -Infinity -Infinity NaN NaN T T 83 -Infinity -Infinity NaN NaN T T 84 -Infinity -Infinity NaN NaN T T 85 -Infinity -Infinity NaN NaN T T 86 -Infinity -Infinity NaN NaN T T 87 -Infinity -Infinity NaN NaN T T 88 -Infinity -Infinity NaN NaN T T 89 -Infinity -Infinity NaN NaN T T 90 -Infinity -Infinity NaN NaN T T 91 -Infinity -Infinity NaN NaN T T 92 -Infinity -Infinity NaN NaN T T 93 -Infinity -Infinity NaN NaN T T 94 -Infinity -Infinity NaN NaN T T 95 -Infinity -Infinity NaN NaN T T 96 -Infinity -Infinity NaN NaN T T 97 -Infinity -Infinity NaN NaN T T 98 -Infinity -Infinity NaN NaN T T 99 -Infinity -Infinity NaN NaN T T ** -Infinity -Infinity NaN NaN T T YN for X = 34.5299988 -- Epsilon = 1.19209290E-07 0 0.989498049E-01 0.989498049E-01 0.00E+00 0.0000000000 T T 1 0.944138989E-01 0.944138989E-01 0.00E+00 0.0000000000 T T 2 -0.934812874E-01 -0.934812874E-01 0.00E+00 -0.0000000000 T T 3 -0.105242893E+00 -0.105242893E+00 0.00E+00 -0.0000000000 T T 4 0.751940757E-01 0.751940757E-01 0.00E+00 0.0000000000 T T 5 0.122664049E+00 0.122664049E+00 0.00E+00 0.0000000000 T T 6 -0.396701694E-01 -0.396701656E-01 -0.37E-08 0.7877455950 T T 7 -0.136450380E+00 -0.136450380E+00 0.00E+00 -0.0000000000 T T 8 -0.156528950E-01 -0.156528987E-01 0.37E-08 -1.9964357615 T T 9 0.129197374E+00 0.129197374E+00 0.00E+00 0.0000000000 T T 10 0.830016583E-01 0.830016583E-01 0.00E+00 0.0000000000 T T 11 -0.811222792E-01 -0.811222717E-01 -0.75E-08 0.7704418898 T T 12 -0.134686872E+00 -0.134686857E+00 -0.15E-07 0.9280785918 T T 13 -0.124915345E-01 -0.124915317E-01 -0.28E-08 1.8762706518 T T 14 0.125281140E+00 0.125281125E+00 0.15E-07 0.9977559447 T T 15 0.114080645E+00 0.114080630E+00 0.15E-07 1.0957161188 T T 16 -0.261667632E-01 -0.261667594E-01 -0.37E-08 1.1942631006 T T 17 -0.138330176E+00 -0.138330162E+00 -0.15E-07 0.9036350846 T T 18 -0.110040188E+00 -0.110040180E+00 -0.75E-08 0.5679743290 T T 19 0.236053951E-01 0.236053839E-01 0.11E-07 3.9715497494 T T 20 0.136017740E+00 0.136017725E+00 0.15E-07 0.9189977646 T T 21 0.133959308E+00 0.133959323E+00 -0.15E-07 -0.9331191778 T T 22 0.269214716E-01 0.269215107E-01 -0.39E-07-12.1882266998 T T 23 -0.996545032E-01 -0.996544734E-01 -0.30E-07 2.5086674690 T T 24 -0.159678698E+00 -0.159678712E+00 0.15E-07 -0.7828220129 T T 25 -0.122314148E+00 -0.122314207E+00 0.60E-07 -4.0878343582 T T 26 -0.174341798E-01 -0.174342543E-01 0.75E-07-35.8491210938 T T 27 0.960593745E-01 0.960593224E-01 0.52E-07 4.5544748306 T T 28 0.167657360E+00 0.167657346E+00 0.15E-07 0.7455682158 T T 29 0.175843686E+00 0.175843716E+00 -0.30E-07 -1.4217172861 T T 30 0.127707079E+00 0.127707124E+00 -0.45E-07 -2.9364073277 T T 31 0.460626259E-01 0.460626781E-01 -0.52E-07 -9.4979391098 T T 32 -0.449997857E-01 -0.449997336E-01 -0.52E-07 9.7222681046 T T 33 -0.129467964E+00 -0.129467919E+00 -0.45E-07 2.8964693546 T T 34 -0.202462882E+00 -0.202462852E+00 -0.30E-07 1.2347942591 T T 35 -0.269242615E+00 -0.269242644E+00 0.30E-07 -0.9285305738 T T 36 -0.343351841E+00 -0.343352020E+00 0.18E-06 -4.3686966896 T T 37 -0.446695179E+00 -0.446695507E+00 0.33E-06 -6.1563234329 T T 38 -0.613944530E+00 -0.613945067E+00 0.54E-06 -7.3296523094 T T 39 -0.904587328E+00 -0.904588163E+00 0.83E-06 -7.7383351326 T T 40 -0.142943263E+01 -0.142943406E+01 0.14E-05 -8.3949394226 T T 41 -0.240715909E+01 -0.240716195E+01 0.29E-05 -9.9702587128 T T 42 -0.428696012E+01 -0.428696632E+01 0.62E-05-12.1298074722 T T 43 -0.802158833E+01 -0.802160072E+01 0.12E-04-12.9650135040 T T 44 -0.156915112E+02 -0.156915359E+02 0.25E-04-13.2555751801 T T 45 -0.319683628E+02 -0.319684124E+02 0.50E-04-13.0128650665 T T 46 -0.676317673E+02 -0.676318741E+02 0.11E-03-13.2482118607 T T 47 -0.148226318E+03 -0.148226578E+03 0.26E-03-14.6802539825 T T 48 -0.335880371E+03 -0.335880981E+03 0.61E-03-15.2435226440 T T 49 -0.785585327E+03 -0.785586792E+03 0.15E-02-15.6418399811 T T 50 -0.189369873E+04 -0.189370227E+04 0.35E-02-15.6814804077 T T 51 -0.469862793E+04 -0.469863672E+04 0.88E-02-15.6913890839 T T 52 -0.119858271E+05 -0.119858516E+05 0.24E-01-17.0868473053 T T 53 -0.314011699E+05 -0.314012344E+05 0.64E-01-17.2182121277 T T 54 -0.844093125E+05 -0.844094844E+05 0.17E+00-17.0809593201 T T 55 -0.232607109E+06 -0.232607578E+06 0.47E+00-16.9047279358 T T 56 -0.656592250E+06 -0.656593500E+06 0.13E+01-15.9699726105 T T 57 -0.189708700E+07 -0.189709038E+07 0.34E+01-14.9236974716 T T 58 -0.560659700E+07 -0.560660700E+07 0.10E+02-14.9620313644 T T 59 -0.169377020E+08 -0.169377320E+08 0.30E+02-14.8578739166 T T 60 -0.522749240E+08 -0.522750160E+08 0.92E+02-14.7633295059 T T 61 -0.164730160E+09 -0.164730448E+09 0.29E+03-14.6659183502 T T 62 -0.529743040E+09 -0.529744000E+09 0.96E+03-15.2018299103 T T 63 -0.173761958E+10 -0.173762278E+10 0.32E+04-15.4484596252 T T 64 -0.581083238E+10 -0.581084314E+10 0.11E+05-15.5217542648 T T 65 -0.198026813E+11 -0.198027162E+11 0.35E+05-14.7483959198 T T 66 -0.687431434E+11 -0.687432663E+11 0.12E+06-14.9948358536 T T 67 -0.242986058E+12 -0.242986500E+12 0.44E+06-15.2718706131 T T 68 -0.874208821E+12 -0.874210460E+12 0.16E+07-15.7215242386 T T 69 -0.320017636E+13 -0.320018265E+13 0.63E+07-16.4917659760 T T 70 -0.119153749E+14 -0.119153990E+14 0.24E+08-16.9789142609 T T 71 -0.451100583E+14 -0.451101548E+14 0.96E+08-17.9392490387 T T 72 -0.173593703E+15 -0.173594072E+15 0.37E+09-17.8360424042 T T 73 -0.678825420E+15 -0.678826896E+15 0.15E+10-18.2446002960 T T 74 -0.269662099E+16 -0.269662716E+16 0.62E+10-19.2060337067 T T 75 -0.108792370E+17 -0.108792617E+17 0.25E+11-19.0422897339 T T 76 -0.445633136E+17 -0.445634210E+17 0.11E+12-20.2121391296 T T 77 -0.185287105E+18 -0.185287569E+18 0.46E+12-21.0004367828 T T 78 -0.781796748E+18 -0.781798741E+18 0.20E+13-21.3832588196 T T 79 -0.334672263E+19 -0.334673143E+19 0.88E+13-22.0475330353 T T 80 -0.145319065E+20 -0.145319450E+20 0.38E+14-22.2144298553 T T 81 -0.639890699E+20 -0.639892458E+20 0.18E+15-23.0623683929 T T 82 -0.285677468E+21 -0.285678260E+21 0.79E+15-23.2458934784 T T 83 -0.129283413E+22 -0.129283779E+22 0.37E+16-23.7427062988 T T 84 -0.592951133E+22 -0.592952822E+22 0.17E+17-23.8925247192 T T 85 -0.275562223E+23 -0.275563011E+23 0.79E+17-23.9920883179 T T 86 -0.129736807E+24 -0.129737176E+24 0.37E+18-23.8781299591 T T 87 -0.618685638E+24 -0.618687367E+24 0.17E+19-23.4482727051 T T 88 -0.298787967E+25 -0.298788831E+25 0.86E+19-24.2765960693 T T 89 -0.146105892E+26 -0.146106307E+26 0.42E+20-23.8300209045 T T 90 -0.723287981E+26 -0.723290010E+26 0.20E+21-23.5337467194 T T 91 -0.362429231E+27 -0.362430227E+27 0.10E+22-23.0557975769 T T 92 -0.183795566E+28 -0.183796068E+28 0.50E+22-22.9004230499 T T 93 -0.943148437E+28 -0.943151093E+28 0.27E+23-23.6261024475 T T 94 -0.489658733E+29 -0.489660103E+29 0.14E+24-23.4614086151 T T 95 -0.257165213E+30 -0.257165930E+30 0.72E+24-23.4142875671 T T 96 -0.136607590E+31 -0.136607968E+31 0.38E+25-23.1987590790 T T 97 -0.733873885E+31 -0.733875940E+31 0.21E+26-23.4918403625 T T 98 -0.398651824E+32 -0.398652985E+32 0.12E+27-24.4212017059 T T 99 -0.218944957E+33 -0.218945596E+33 0.64E+27-24.4561748505 T T ** -0.121559677E+34 -0.121560033E+34 0.36E+28-24.5605354309 T T YN for X = 475.779999 -- Epsilon = 1.19209290E-07 0 -0.210703555E-01 -0.210703555E-01 0.00E+00 -0.0000000000 T T 1 0.298792869E-01 0.298792869E-01 0.00E+00 0.0000000000 T T 2 0.211959574E-01 0.211959574E-01 0.00E+00 0.0000000000 T T 3 -0.297010876E-01 -0.297010876E-01 0.00E+00 -0.0000000000 T T 4 -0.215705149E-01 -0.215705149E-01 0.00E+00 -0.0000000000 T T 5 0.293383896E-01 0.293383896E-01 0.00E+00 0.0000000000 T T 6 0.221871529E-01 0.221871529E-01 0.00E+00 0.0000000000 T T 7 -0.287787914E-01 -0.287787914E-01 0.00E+00 -0.0000000000 T T 8 -0.230339784E-01 -0.230339784E-01 0.00E+00 -0.0000000000 T T 9 0.280041825E-01 0.280041825E-01 0.00E+00 0.0000000000 T T 10 0.240934491E-01 0.240934491E-01 0.00E+00 0.0000000000 T T 11 -0.269913841E-01 -0.269913841E-01 0.00E+00 -0.0000000000 T T 12 -0.253415275E-01 -0.253415275E-01 0.00E+00 -0.0000000000 T T 13 0.257130694E-01 0.257130694E-01 0.00E+00 0.0000000000 T T 14 0.267466716E-01 0.267466716E-01 0.00E+00 0.0000000000 T T 15 -0.241390076E-01 -0.241390076E-01 0.00E+00 -0.0000000000 T T 16 -0.282687414E-01 -0.282687414E-01 0.00E+00 -0.0000000000 T T 17 0.222377088E-01 0.222377088E-01 0.00E+00 0.0000000000 T T 18 0.298578832E-01 0.298578832E-01 0.00E+00 0.0000000000 T T 19 -0.199785046E-01 -0.199785046E-01 0.00E+00 -0.0000000000 T T 20 -0.314535424E-01 -0.314535424E-01 0.00E+00 -0.0000000000 T T 21 0.173341278E-01 0.173341278E-01 0.00E+00 0.0000000000 T T 22 0.329837315E-01 0.329837315E-01 0.00E+00 0.0000000000 T T 23 -0.142838014E-01 -0.142838014E-01 0.00E+00 -0.0000000000 T T 24 -0.343647376E-01 -0.343647376E-01 0.00E+00 -0.0000000000 T T 25 0.108168470E-01 0.108168479E-01 -0.93E-09 -0.7222529650 T T 26 0.355014876E-01 0.355014876E-01 0.00E+00 0.0000000000 T T 27 -0.693673966E-02 -0.693674106E-02 0.14E-08 -1.6893743277 T T 28 -0.362887941E-01 -0.362887941E-01 0.00E+00 -0.0000000000 T T 29 0.266549550E-02 0.266549736E-02 -0.19E-08 -5.8619494438 T T 30 0.366137326E-01 0.366137326E-01 0.00E+00 0.0000000000 T T 31 0.195181498E-02 0.195181323E-02 0.17E-08 7.5050339699 T T 32 -0.363593884E-01 -0.363593884E-01 0.00E+00 -0.0000000000 T T 33 -0.684273290E-02 -0.684273103E-02 -0.19E-08 2.2834444046 T T 34 0.354101658E-01 0.354101658E-01 0.00E+00 0.0000000000 T T 35 0.119036669E-01 0.119036660E-01 0.93E-09 0.6563103795 T T 36 -0.336588174E-01 -0.336588174E-01 0.00E+00 -0.0000000000 T T 37 -0.169972703E-01 -0.169972703E-01 0.00E+00 -0.0000000000 T T 38 0.310151633E-01 0.310151633E-01 0.00E+00 0.0000000000 T T 39 0.219515618E-01 0.219515599E-01 0.19E-08 0.7117944360 T T 40 -0.274163950E-01 -0.274163950E-01 0.00E+00 -0.0000000000 T T 41 -0.265614893E-01 -0.265614875E-01 -0.19E-08 0.5882576704 T T 42 0.228385609E-01 0.228385609E-01 0.00E+00 0.0000000000 T T 43 0.305936877E-01 0.305936858E-01 0.19E-08 0.5107262731 T T 44 -0.173085742E-01 -0.173085742E-01 0.00E+00 -0.0000000000 T T 45 -0.337950736E-01 -0.337950699E-01 -0.37E-08 0.9246909618 T T 46 0.109157944E-01 0.109157953E-01 -0.93E-09 -0.7157060504 T T 47 0.359058231E-01 0.359058194E-01 0.37E-08 0.8703323603 T T 48 -0.382186985E-02 -0.382187171E-02 0.19E-08 -4.0883131027 T T 49 -0.366769768E-01 -0.366769731E-01 -0.37E-08 0.8520331383 T T 50 -0.373276439E-02 -0.373276183E-02 -0.26E-08 5.7556204796 T T 51 0.358924195E-01 0.358924158E-01 0.37E-08 0.8706573844 T T 52 0.114275543E-01 0.114275496E-01 0.47E-08 3.4182729721 T T 53 -0.333944894E-01 -0.333944857E-01 -0.37E-08 0.9357831478 T T 54 -0.188675821E-01 -0.188675746E-01 -0.75E-08 3.3125600815 T T 55 0.291116294E-01 0.291116275E-01 0.19E-08 0.5367270708 T T 56 0.255981702E-01 0.255981628E-01 0.75E-08 2.4415807724 T T 57 -0.230857451E-01 -0.230857451E-01 0.00E+00 -0.0000000000 T T 58 -0.311296657E-01 -0.311296582E-01 -0.75E-08 2.0077311993 T T 59 0.154960155E-01 0.154960174E-01 -0.19E-08 -1.0083236694 T T 60 0.349728912E-01 0.349728838E-01 0.75E-08 1.7870984077 T T 61 -0.667524338E-02 -0.667524710E-02 0.37E-08 -4.6814770699 T T 62 -0.366845652E-01 -0.366845578E-01 -0.75E-08 1.7037137747 T T 63 -0.288565969E-02 -0.288565271E-02 -0.70E-08 20.3051490784 T T 64 0.359203592E-01 0.359203555E-01 0.37E-08 0.8699801564 T T 65 0.125493826E-01 0.125493743E-01 0.84E-08 5.6028652191 T T 66 -0.324914232E-01 -0.324914195E-01 -0.37E-08 0.9617922902 T T 67 -0.215637758E-01 -0.215637647E-01 -0.11E-07 4.3475689888 T T 68 0.264181420E-01 0.264181420E-01 0.00E+00 0.0000000000 T T 69 0.291153062E-01 0.291152969E-01 0.93E-08 2.6832964420 T T 70 -0.179732461E-01 -0.179732479E-01 0.19E-08 -0.8693476915 T T 71 -0.344039984E-01 -0.344039910E-01 -0.75E-08 1.8166493177 T T 72 0.770512270E-02 0.770512689E-02 -0.42E-08 -4.5627112389 T T 73 0.367360376E-01 0.367360301E-01 0.75E-08 1.7013266087 T T 74 0.356786419E-02 0.356785767E-02 0.65E-08 15.3277978897 T T 75 -0.356261879E-01 -0.356261842E-01 -0.37E-08 0.8771637082 T T 76 -0.147997951E-01 -0.147997877E-01 -0.75E-08 4.2230315208 T T 77 0.308980178E-01 0.308980159E-01 0.19E-08 0.5056958795 T T 78 0.248008352E-01 0.248008259E-01 0.93E-08 3.1500954628 T T 79 -0.227662548E-01 -0.227662548E-01 0.00E+00 -0.0000000000 T T 80 -0.323611945E-01 -0.323611870E-01 -0.75E-08 1.9313255548 T T 81 0.118835121E-01 0.118835149E-01 -0.28E-08 -1.9722704887 T T 82 0.364074521E-01 0.364074484E-01 0.37E-08 0.8583407402 T T 83 0.666032720E-03 0.666027889E-03 0.48E-08 60.8488769531 T T 84 -0.361750722E-01 -0.361750722E-01 0.00E+00 -0.0000000000 T T 85 -0.134396097E-01 -0.134396041E-01 -0.56E-08 3.4878244400 T T 86 0.313729905E-01 0.313729942E-01 -0.37E-08 -0.9960797429 T T 87 0.247813109E-01 0.247813053E-01 0.56E-08 1.8915463686 T T 88 -0.223100875E-01 -0.223100930E-01 0.56E-08 -2.1010675430 T T 89 -0.330342352E-01 -0.330342278E-01 -0.75E-08 1.8919765949 T T 90 0.995123666E-02 0.995124504E-02 -0.84E-08 -7.0657048225 T T 91 0.367990471E-01 0.367990434E-01 0.37E-08 0.8492067456 T T 92 0.412549311E-02 0.412548333E-02 0.98E-08 19.8839874268 T T 93 -0.352035798E-01 -0.352035798E-01 0.00E+00 -0.0000000000 T T 94 -0.178878754E-01 -0.178878643E-01 -0.11E-07 5.2409801483 T T 95 0.281353537E-01 0.281353574E-01 -0.37E-08 -1.1107022762 T T 96 0.291235670E-01 0.291235559E-01 0.11E-07 3.2190425396 T T 97 -0.163825992E-01 -0.163826086E-01 0.93E-08 -4.7687792778 T T 98 -0.358035974E-01 -0.358035900E-01 -0.75E-08 1.7456346750 T T 99 0.163312408E-02 0.163313653E-02 -0.12E-07-63.9830055237 T T ** 0.364832357E-01 0.364832357E-01 0.00E+00 0.0000000000 T T </pre> David Miller 2012-05-16T23:56:04 http://comments.gmane.org/gmane.comp.gcc.fortran/38811 <pre>Hi All, in attachment there's a patch for PR 48831, it also includes a new test case suggested by Tobias Burnus. The patch is bootstrapped and tested on x86_64-unknown-linux-gnu. Regards. Alessandro Fanfarillo </pre> Alessandro Fanfarillo 2012-05-15T20:39:35 http://comments.gmane.org/gmane.comp.gcc.fortran/38797 <pre>Dear all, the motivation for the following is rbmj's patch for libstdc++ on VxWorks, cf. http://gcc.gnu.org/ml/gcc-patches/2012-05/msg00073.html Note that gfortan is used on VxWorks as the following email proves: http://gcc.gnu.org/ml/fortran/2012-02/msg00115.html (VxWorks is a real-time embedded operating system: https://en.wikipedia.org/wiki/VxWorks) Seemingly, VxWorks differs from POSIX. POSIX [1] has int open(const char *path, int oflag, ... ); and requires only with O_CREAT as third argument at mode_t. By contrast, VxWorks has the following prototype [2] int open (const char * name, int flags, int mode) where "mode" is not optional and the function is not variadic. This patch does now always passes a mode on VxWorks; I assume that the mode is ignored if there is no O_CREAT. That part of the code gets only accessed if there is no "access" function; looking at [2], that seems to be the case for VxWorks. Additionally, in the fall-back implementation of "mkstemp", "open" with O_CREAT is used but no mode has been passed. I added 0600 unconditionally. The patch was build on x86-64-linux, but I only expect an effect on VxWorks and on systems without mkstemp. OK for the trunk? (Is there a need for backporting?) Tobias [1] http://pubs.opengroup.org/onlinepubs/000095399/functions/open.html [2] http://www-kryo.desy.de/documents/vxWorks/V5.5/vxworks/ref/ioLib.html#open </pre> Tobias Burnus 2012-05-15T09:03:08 http://comments.gmane.org/gmane.comp.gcc.fortran/38786 <pre>I'm trying to compare the performance of my code between 32b intel fortran (Win7) and 64b linux gfortran. What I see is that the argument for the trigonometric functions (sin, cos ,tan etc.) only take 7 digits on my Windows 32b intel fortran when compiled, when on my 64b linux gfortran more digits are used. Is there a way of reducing the number of digits to the same as the 32b intel fortran when compiling on my 64b system, in order to have a more realistic comparison against the 32b code? Cheers, K.E. </pre> Edvardsen Kåre 2012-05-14T11:27:47 http://comments.gmane.org/gmane.comp.gcc.fortran/38774 <pre>Hello everybody, I have just been hit on XLF by an error message that I found rather strange, especially because it didn't surface on GNU. Later I cut down to a manageable test case and I run on a number of different compilers. The results are as follows (Compiles-Fails-NotApplicable) Compiler Test 1 Test 2 Test 3 Test 4 GNU 47 C C F C Intel 12 C C C C XLF 13 F C F C Cray 8 C C F C Pathscale 4 N N F C PGI 12 C C C C (Pathscale does not support CLASS) Of particular interest is the fact that GNU fortran detects an ambiguity with the generics in test 3, but not in test 1 which differs because it has an additional CLASS argument it is called through; my reading of the standard is that this should not change things, but as you can see compilers' opinions vary widely. I'd say this is at least worth investigating. The NAG license I had access to has expired, so I can't test there, but I am 100% certain that it did compile test 2 cleanly (just like the others). Regards Salvatore </pre> Salvatore Filippone 2012-05-12T17:00:49 http://comments.gmane.org/gmane.comp.gcc.fortran/38771 <pre>Committed as obvious: character(len=:) is allowed as result in pure functions - while character(len=*) functions are not. (In the latter case, the length the function returns depends on the definition of the caller (!).) The attached patch was build and regtested on x86-64-linux and committed as Rev. 187427 to the trunk. * * * There are a few other deferred-string patches in the pipeline: * Function-result related (e.g. REPEAT bugs), see my (RFC) patch, posted yesterday. * Alessandro's patch. (The first draft has been posted and reviewed; Alessandro will soon post an updated version.) I think the main still missing features are: "allocate(character(len=var) :: str)" (which is currently rejected) and deferred-length components of derived types. However, there are still a couple of other bugs - especially related to arrays/array constructors. Tobias </pre> Tobias Burnus 2012-05-12T09:56:25 http://comments.gmane.org/gmane.comp.gcc.fortran/38766 <pre>I have committed the attached patch as obvious. libgfortran (since GCC 4.5) allocates the memory rank()-times instead of only once in eoshift2. For the test case of the PR, gfortran leaked 6 MB per call! Build and regtested on x86-64-linux and comitted as Rev. 187395 to the 4.8 trunk. I intent to backport the patch, but I have not yet decided whether it will be down to 4.5 or not. Tobias PS: In the ChangeLog I have converted some spaces into tabs. </pre> Tobias Burnus 2012-05-11T08:15:46 http://comments.gmane.org/gmane.comp.gcc.fortran/38764 <pre>Hi, i have a question about the implementation of the CONTIGUOUS attribute in gfortran as intel fortran (v. 12.1.0) and gfortran disagree about the validity of this program: program test type a_t real, pointer :: c(:) end type a_t type(a_t) :: s real, pointer :: a(:) real, pointer, contiguous :: b(:) b =&gt; a ! both compilers accept b =&gt; s%c ! ifort gives an error call sub(a) ! both compilers accept call sub(s%c) ! ifort gives an error contains subroutine sub(a) real, contiguous :: a(:) end subroutine sub end program test The intel compiler complains that the pointee and the actual argument should have CONTIGUOUS attribute if the pointer and formal argument have it, respectively: contig.f90(11): error #8378: Pointer array is not contiguous unless it is declared CONTIGUOUS. [C] b =&gt; s%c ---------^ contig.f90(11): error #8371: If pointer is declared CONTIGUOUS, target must be contiguous as well. [C] b =&gt; s%c ---------^ contig.f90(12): error #8378: Pointer array is not contiguous unless it is declared CONTIGUOUS. [C] call sub(s%c) -------------^ contig.f90(12): error #8372: If dummy argument is declared CONTIGUOUS, actual argument must be contiguous as well. [C] call sub(s%c) -------------^ The error seemingly only triggers if the offending array is a structure member. gfiortran silently accepts the code. Which one of the compilers is in error (if either)? Any thoughts? Regards, Juha </pre> Juha Ruokolainen 2012-05-11T04:37:18 http://comments.gmane.org/gmane.comp.gcc.fortran/38743 <pre> Hi all. I'm trying to use the polymorphism features of F03 and got stuck with the attached testcase - the Fortran and C++ versions should IMO be equivalent, but the outcome is not: $ gfortran hook.f90 &amp;&amp; ./a.out hook: a $ g++ hook.cpp &amp;&amp; ./a.out hook b [gcc version 4.6.1, Ubuntu system compiler] I currently can't update to a 4.7 or latest svn as the build breaks due to some multiarch setup issues recently introduced in Ubuntu/Debian. Until I sorted out my system to compile myself, could somebody be so kind and quickly run this through 4.7 and check if this difference still exists and if yes, possibly comment if gfortran's behaviour is expected and correct? Thanks Daniel </pre> Daniel Franke 2012-05-06T18:18:03 http://comments.gmane.org/gmane.comp.gcc.fortran/38728 <pre> An update on the GNU Tools Cauldron (http://gcc.gnu.org/wiki/cauldron2012) We have published an initial schedule for the workshop. It is available at http://gcc.gnu.org/wiki/cauldron2012. Presenters, please double-check your entries. If you find anything missing or wrong, please contact me and I will correct it. Thank you. </pre> Diego Novillo 2012-05-03T20:05:21 http://comments.gmane.org/gmane.comp.gcc.fortran/38727 <pre>A PRIVATE module variable, which is used in the specification expression of a function result variable cannot be TREE_PUBLIC()=0, unless the function itself is PRIVATE and also not accessible via type-bound procedures or a generic name. (The issue is gfortran specific as most compilers do not seem to save the specification expression in the .mod file.) Build and regtested on x86-64-linux. OK for the trunk? Tobias </pre> Tobias Burnus 2012-05-03T18:41:22 http://comments.gmane.org/gmane.comp.gcc.fortran/38725 <pre>Dear all, attached you find a patch for a -std=f95 diagnostic issue related to F2003 constructors, which is a 4.7/4.8 rejects-valid regression. It was build and regtested on x86-64-linux. OK for 4.7 and the trunk? Note that a valid-F95 special case is still rejected with -std=f95 (cf. attached test case), but I believe that the current patch is sufficient. Secondly, I try to get again an overview about pending patches. I found: a) Pending review - Janne's Fix handling of temporary files http://gcc.gnu.org/ml/fortran/2012-05/msg00006.html - Janne's PR 49010/24518 MOD/MODULO fixes, take 2 http://gcc.gnu.org/ml/fortran/2012-05/msg00007.html - Janne's PR 52428 Reading of large negative values and range checking http://gcc.gnu.org/ml/fortran/2012-05/msg00008.html - Thomas' string comparison patch http://gcc.gnu.org/ml/fortran/2012-04/msg00068.html - This patch ;-) b) Pending committal: - Paul's SELECT TYPE patch http://gcc.gnu.org/ml/fortran/2012-05/msg00000.html - Bernhard's cleanup-module patch http://gcc.gnu.org/ml/fortran/2012-04/msg00105.html c) More controversial patches: - FX's backtrace patch http://gcc.gnu.org/ml/fortran/2012-04/msg00131.html - Janus' proc-pointer patch (ABI breakage) http://gcc.gnu.org/ml/fortran/2012-04/msg00033.html d) RFA patch - My C_F_pointer patch http://gcc.gnu.org/ml/fortran/2012-04/msg00115.html I hope that I found all pending patches. Thirdly, we are accumulating regressions. The current count is 12. There are also a couple of other bugs, e.g. related to namelist reads, which should be get some attention. Tobias </pre> Tobias Burnus 2012-05-03T09:45:01 http://comments.gmane.org/gmane.comp.gcc.fortran/38723 <pre>Dear Richard, Using an i686/Ubuntu 10.04 LTS and yesterday's trunk, I get from pr52621.f90: FAIL: gfortran.dg/pr52621.f90 -O (test for excess errors) Excess errors: f951: warning: -fprefetch-loop-arrays not supported for this target (try -march switches) [enabled by default] Cheers Paul </pre> Paul Richard Thomas 2012-05-03T09:28:24 http://comments.gmane.org/gmane.comp.gcc.fortran/38718 <pre>Hello, I am getting a strange segfault in one of my codes. The segfault happens with 4.6.3, whereas the code works with 4.7.0 and trunk. The segfault is very strange because it happens at the following statement Program received signal 11 (SIGSEGV): Segmentation fault. Backtrace for this error: + /lib64/libc.so.6() [0x3f6d632900] + /lib64/libc.so.6(cfree+0x1c) [0x3f6d67a5ac] + function __psb_descriptor_type_MOD_psb_cd_destroy (0x502970) at line 684 of file psb_desc_type.f90 + function __psb_descriptor_type_MOD_psb_cdfree (0x502D9C) at line 640 of file psb_desc_type.f90 + function __psb_descriptor_type_MOD_psb_cdtransfer (0x5027F7) at line 780 of file psb_desc_type.f90 + function __psb_base_linmap_mod_MOD_psb_base_linmap_transfer (0x77B0EF) at line 154 of file psb_base_linmap_mod.f90 + function __psb_d_linmap_mod_MOD_psb_dlinmap_transfer (0x566DF3) at line 197 of file psb_d_linmap_mod.f90 + function __mld_d_onelev_mod_MOD_mld_d_onelev_move_alloc (0x465C07) at line 336 of file mld_d_onelev_mod.f90 + function mld_dmlprec_bld_ (0x451AAB) at line 292 of file mld_dmlprec_bld.f90 + function mld_dprecbld_ (0x446A78) at line 191 of file mld_dprecbld.f90 + function ppde2d (0x42D7D3) at line 265 of file ppde2d.f90 + /lib64/libc.so.6(__libc_start_main+0xfd) [0x3f6d61ecdd] and line 684 is the (third) guarded deallocate statement: if (allocated(desc%halo_index)) &amp; &amp; deallocate(desc%halo_index,stat=info) if (allocated(desc%bnd_elem)) &amp; &amp; deallocate(desc%bnd_elem,stat=info) if (allocated(desc%ovrlap_index)) &amp; &amp; deallocate(desc%ovrlap_index,stat=info) The only bug I could find that looks vaguely similar is PR 52774, except that my test case works with 4.7.0, so I don't think it's the same. Before reducing to a small test case (which will probably need some time anyway), does this ring a bell to anyone? Thanks a lot Salvatore </pre> Salvatore Filippone 2012-05-02T10:15:12 http://comments.gmane.org/gmane.comp.gcc.fortran/38717 <pre> Hi I am trying to port fortran on arm. But the executables generated by the cross compiler is giving segmentation fault on the board. I want to know what special is needs to be initialized in fortran program, i mean starup files. And what is to be done for safe termination. </pre> vikram_sp 2012-05-02T08:53:13 Search the mailing list at Gmane query http://search.gmane.org/?group=$group=gmane.comp.gcc.fortran