Parent Directory | Revision Log | Patch
revision 174 by guez, Tue Sep 29 19:48:59 2015 UTC | revision 175 by guez, Fri Feb 5 16:02:34 2016 UTC | |
---|---|---|
# | Line 90 contains | Line 90 contains |
90 | call abort_gcm("test_disvert", "bad order of pressure values") | call abort_gcm("test_disvert", "bad order of pressure values") |
91 | end if | end if |
92 | ||
93 | 1000 format (3(a, g10.4, a, i0)) | 1000 format (3(a, g11.4, a, i0)) |
94 | ||
95 | end subroutine test_disvert | end subroutine test_disvert |
96 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |