R-alpha: buglets

Robert Dunne (dunne@yarra.vut.edu.au)
Fri, 8 Nov 96 11:48:23 EST


Date: Fri, 8 Nov 96 11:48:23 EST
Message-Id: <9611080048.AA10836@yarra.vut.edu.au.vut.edu.au>
From: Robert Dunne <dunne@yarra.vut.edu.au>
To: r-testers@stat.math.ethz.ch
Subject: R-alpha: buglets

hi,
   here are some little things if have notices with the fortran option
in 0.13.

1)line 34 in src/appl/uncmin.f reads
      STEP(I)=ETA*AMAX1(X(I),TYPX(I)) 
however AMAX1 returns the maximum of a set of reals -- X and TYPX are
of type double -- therefore it should read 
      STEP(I)=ETA*DMAX1(X(I),TYPX(I))
                  ^ 
Some compilers give an error (dec) and some don't (sun).
I dont know what will happen at runtime.

2) in config.site and src/appl/Makefile.in, the fortran compiler is
callled F77. This should probably be called FC (fortran compiler), as 
this is the variable used in the implicit make rule for compiling fortran
programs. 

3) on some compilers (g77) there are a lot of warnings such as

uncmin.f:2162: warning:
         CALL DFAULT(N,X,WRK(1,4),FSCALE,METHOD,IEXP,MSG,NDIGIT,
                               ^
Array element value at (^) out of defined range

as WRK was dimensioned as WRK(NR,1) 

This could be a coding mistake or it could be an "assumed size array".
The change 
       DIMENSION A(NR,*),WRK(NR,*)
fixes the error messages, but perhaps it is safe just to ignore them.
any ideas?

-- 
* Rob Dunne  
* Victoria University of Technology , Footscray Campus      
* Department of Computer and Mathematical Sciences                
* P.O. 14428, MCMC.                   Fax:   +61 3 9688 4050  
* MELBOURNE 8001, AUSTRALIA           Tel:   +61 3 9688 4757   
* <http://dingo.vut.edu.au/~robertd>  Email: dunne@matilda.vut.edu.au
*                                    
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-testers mailing list -- To (un)subscribe, send
subscribe	or	unsubscribe
(in the "body", not the subject !)  To: r-testers-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-