From: gah@ugcs.caltech.edu   
      
   On 11/4/23 2:21 PM, Steven G. Kargl wrote:   
   > The SCALE intrinsic allows one to change the   
   > floating point exponent for a REAL entity.   
   > For example,   
   >   
   > program foo   
   >     real x   
   >     x = 1   
   >     print *, scale(x,1) ! print 2   
   > end program   
   >   
   > This scaling does not incur a floating point   
   > rounding error.   
   >   
   > Question.  Anyone know why the Fortran standard (aka J3)   
   > restricted X to be a REAL entity?  It would seem that X   
   > could be COMPLEX with obvious equivalence of   
   >   
   > SCALE(X,N) = COMPLX(SCALE(X%RE,N),SCALE(X%IM,N),KIND(X%IM))   
   >   
   > Should the Fortran be amended?   
      
      
   Wow, no answer yet.   
      
   It does seem that sometimes Fortran is slow to add features, especially   
   when need for them isn't shown.   
      
   It does make sense to have the complex version, though as you note, it   
   isn't all that hard to get away without it.   
      
   If I had a vote, it would be yes.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)