[F90] fonction where

Version imprimable