c-----------------------------------------------------------------------
c INCLUDE 'logic.h'

      COMMON/logic/ purmats,physic,forward,leapf,apphys,
     *  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus

      LOGICAL purmats,physic,forward,leapf,apphys,statcl,conser,
     * apdiss,apdelq,saison,ecripar,fxyhypb,ysinus

c-----------------------------------------------------------------------