!
! $Header$
!
integer :: nfmx,imx,jmx,lmx,nvarmx
parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)

real :: xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)

integer :: imd(imx),jmd(jmx),lmd(lmx)
integer :: iid(imx),jid(jmx)
integer :: ifd(imx),jfd(jmx)
integer :: unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)

integer :: nvar(nfmx),ivar(nfmx)
logical :: firsttime(nfmx)

character(len=10) :: var(nvarmx,nfmx),fichier(nfmx)
character(len=40) :: title(nfmx),tvar(nvarmx,nfmx)

common/gradsdef/xd,yd,zd,dtime, &
      imd,jmd,lmd,iid,jid,ifd,jfd, &
      unit,irec,nvar,ivar,itime,nld,firsttime, &
      var,fichier,title,tvar