Parent Directory
|
Revision Log
|
Patch
revision 116 by guez, Thu Dec 4 16:35:03 2014 UTC | revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC | |
---|---|---|
# | Line 87 contains | Line 87 contains |
87 | end if | end if |
88 | end do | end do |
89 | end do | end do |
90 | call abort_gcm("test_disvert", "bad order of pressure values", 1) | 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 |