Hello,
What about extending the selected_real_kind function by adding 3 other optional arguments:
selected_real_kind(p,r,most,defkind,ieee)
character(*), optional :: most
'SMALLEST' : the smallest representation in memory (default)
'FASTEST' : the fastest floating point operations on this machine
logical, optional :: defkind
.FALSE. : no restriction (default)
.TRUE. : the returned kind must either kind(1.0) or kind(1.0d0)
logical, optional :: ieee
.FALSE. : no restriction (default)
.TRUE. : the returned kind must correspond to a ieee-754 floating point
Pierre Hugonnet,
--
+-----------------------------------+----------------------------+
| Pierre Hugonnet | mail....CGG |
| | 1, rue Leon Migaux |
| R&D Data Processing | 91341 MASSY cedex |
| | FRANCE |
| COMPAGNIE GENERALE DE GEOPHYSIQUE | phone...(33) 164 47 45 59 |
| Paris Processing Centre | fax.....(33) 164 47 32 49 |
| http://www.cgg.com | [log in to unmask] |
+-----------------------------------+----------------------------+
My opinions are not necessarily those of CGG
--------------------------------------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|