Parent Directory | Revision Log | Patch
trunk/Sources/phylmd/histwrite_phy.f revision 191 by guez, Mon May 9 19:56:28 2016 UTC | trunk/phylmd/histwrite_phy.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC | |
---|---|---|
# | Line 8 module histwrite_phy_m | Line 8 module histwrite_phy_m |
8 | ||
9 | implicit none | implicit none |
10 | ||
INTEGER:: itap = 0 ! number of calls to "physiq" | ||
11 | INTERFACE histwrite_phy | INTERFACE histwrite_phy |
12 | MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy | MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy |
13 | end INTERFACE histwrite_phy | end INTERFACE histwrite_phy |
14 | ||
15 | private | private |
16 | public itap, histwrite_phy | public histwrite_phy |
17 | ||
18 | contains | contains |
19 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |