| 1 | ! Replaces gradsdef.h |
|---|
| 2 | |
|---|
| 3 | MODULE gradsdef_mod_h |
|---|
| 4 | IMPLICIT NONE; PRIVATE |
|---|
| 5 | PUBLIC xd, yd, zd, dtime, & |
|---|
| 6 | imd, jmd, lmd, iid, jid, ifd, jfd, & |
|---|
| 7 | unit, irec, nvar, ivar, itime, nld, firsttime, & |
|---|
| 8 | var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx |
|---|
| 9 | |
|---|
| 10 | INTEGER nfmx, imx, jmx, lmx, nvarmx |
|---|
| 11 | parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000) |
|---|
| 12 | |
|---|
| 13 | REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx) |
|---|
| 14 | |
|---|
| 15 | INTEGER imd(imx), jmd(jmx), lmd(lmx) |
|---|
| 16 | INTEGER iid(imx), jid(jmx) |
|---|
| 17 | INTEGER ifd(imx), jfd(jmx) |
|---|
| 18 | INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx) |
|---|
| 19 | |
|---|
| 20 | INTEGER nvar(nfmx), ivar(nfmx) |
|---|
| 21 | LOGICAL firsttime(nfmx) |
|---|
| 22 | |
|---|
| 23 | CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx) |
|---|
| 24 | CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx) |
|---|
| 25 | |
|---|
| 26 | END MODULE gradsdef_mod_h |
|---|
