!
! $Header$
!
c
c
c-----------------------------------------------------------------------
c INCLUDE 'logic.h'

      COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys,
     .  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus
     .  ,read_start,ok_guide

      LOGICAL purmats,forward,leapf,apphys,statcl,conser,
     . apdiss,apdelq,saison,ecripar,fxyhypb,ysinus
     .  ,read_start,ok_guide

      INTEGER iflag_phys
c-----------------------------------------------------------------------