Fortran & unpack

Bonjour,

  j'écris un script de lecture de données binaires produites par un code de 
calcul en F77; une valeur de charge particulière est affectée aux mailles 
inactives, typiqument 999.99. Les valeurs sont des REALs écrits en binaire 
non formatté.

  Malheureusement dans la lecture du fichier je ne récupère pas exactement 
cette valeur, je suis confronté à un problème de ce genre:

$ perl -e 'print unpack("f",(pack("f",999.99))) ;'  
999.989990234375

$ perl -e 'print sprintf("%.4f",unpack("f",(pack("f",999.99)))) ;'
999.9900

  Comment puis-je faire pour récupérer 999.99, valeur utilisée dans des 
tests? Utiliser sprintf résoud le problème mais ça ne me semble pas /propre/.

  Merci de vos lumières, docs...

  Julien