1 | ! |
---|
2 | ! $Header$ |
---|
3 | ! |
---|
4 | integer :: nfmx,imx,jmx,lmx,nvarmx |
---|
5 | parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000) |
---|
6 | |
---|
7 | real :: xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx) |
---|
8 | |
---|
9 | integer :: imd(imx),jmd(jmx),lmd(lmx) |
---|
10 | integer :: iid(imx),jid(jmx) |
---|
11 | integer :: ifd(imx),jfd(jmx) |
---|
12 | integer :: unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx) |
---|
13 | |
---|
14 | integer :: nvar(nfmx),ivar(nfmx) |
---|
15 | logical :: firsttime(nfmx) |
---|
16 | |
---|
17 | character(len=10) :: var(nvarmx,nfmx),fichier(nfmx) |
---|
18 | character(len=40) :: title(nfmx),tvar(nvarmx,nfmx) |
---|
19 | |
---|
20 | common/gradsdef/xd,yd,zd,dtime, & |
---|
21 | imd,jmd,lmd,iid,jid,ifd,jfd, & |
---|
22 | unit,irec,nvar,ivar,itime,nld,firsttime, & |
---|
23 | var,fichier,title,tvar |
---|