| 1 |
guez |
3 |
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 |
Parent Directory
| 
Revision Log