Parent Directory | Revision Log | Patch
revision 21 by guez, Wed Oct 15 16:19:57 2008 UTC | revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC | |
---|---|---|
# | Line 513 contains | Line 513 contains |
513 | ENDDO | ENDDO |
514 | ||
515 | CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) | CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) |
516 | CALL histwrite(nid_tra, "t", itau_w, gr_phy_write_3d(t_seri)) | CALL histwrite(nid_tra, "T", itau_w, gr_phy_write_3d(t_seri)) |
517 | ||
518 | if (ok_sync) then | if (ok_sync) then |
519 | call histsync(nid_tra) | call histsync(nid_tra) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |