1 c on passe a une longueur de 1000 pour Calibre 9 ?????
3 c=======================================================================
4 c place memoire pour les caracteres
5 c-----------------------------------------------------------------------
6 c smem : tableau general en character*8
7 c-----------------------------------------------------------------------
10 parameter ( lgcoms = 1000 )
12 character*8 smem (lgcoms)