| 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*10 var(nvarmx,nfmx),fichier(nfmx) |
|---|
| 18 | character*40 title(nfmx),tvar(nvarmx,nfmx) |
|---|
| 19 | |
|---|
| 20 | common/gradsdef/xd,yd,zd,dtime, |
|---|
| 21 | s imd,jmd,lmd,iid,jid,ifd,jfd, |
|---|
| 22 | s unit,irec,nvar,ivar,itime,nld,firsttime, |
|---|
| 23 | s var,fichier,title,tvar |
|---|
