1 |
module gradsdef |
2 |
|
3 |
! From dyn3d/gradsdef.h,v 1.1.1.1 2004/05/19 12:53:07 |
4 |
|
5 |
implicit none |
6 |
|
7 |
integer, parameter:: nfmx=10,imx=200,jmx=150,lmx=100,nvarmx=1000 |
8 |
|
9 |
real xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx) |
10 |
|
11 |
integer imd(imx),jmd(jmx),lmd(lmx) |
12 |
integer iid(imx),jid(jmx) |
13 |
integer ifd(imx),jfd(jmx) |
14 |
integer unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx) |
15 |
|
16 |
integer nvar(nfmx),ivar(nfmx) |
17 |
logical firsttime(nfmx) |
18 |
|
19 |
character(len=10) var(nvarmx,nfmx),fichier(nfmx) |
20 |
character(len=40) title(nfmx),tvar(nvarmx,nfmx) |
21 |
|
22 |
end module gradsdef |