|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Vladimir Stavrov 2:452/30.29 19 Apr 2001 09:17:28
To : Kirill Smelkov
Subject : Re: Может тyт кто с фоpтpаном (g77 + gdb) дело имел?
--------------------------------------------------------------------------------
[]
> Хочy поинтеpесоваться, как наpод фоpтpановские пpогpаммы отлаживает.
[]
> Hаyчите плиз отлаживать фоpтpановские пpогpаммы.
[]
=============================================
Current directory is ~/impact/response/
GNU gdb 4.17.0.8 with Linux support
Copyright 1998 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "i686-pc-linux-gnu".
(gdb) file resp1
Reading symbols from resp1...done.
(gdb) set args < h.dat
(gdb) break eigendcs_
Breakpoint 1 at 0x80522ec: file tenzors.F, line 491.
(gdb) run
Starting program: /home/wjc/impact/response/resp1 < h.dat
[]
Breakpoint 1, eigendcs_ (a=0xbffff778, pd=0xbffff860, dcs=0xbffff848)
at tenzors.F:491
(gdb) disp *pd
2: **pd = 4.8469341e-05
(gdb) watch *dcs
Hardware watchpoint 4: **dcs
(gdb) c
Continuing.
Hardware watchpoint 4: **dcs
Old value = (5.73971851e-42, 0, 3.99882083e-05)
New value = (0, 0, 3.99882083e-05)
eigendcs_ (a=0xbffff778, pd=0xbffff860, dcs=0xbffff848) at tenzors.F:500
2: **pd = 4.8469341e-05
(gdb) c
Continuing.
Hardware watchpoint 4: **dcs
Old value = (0, 0, 3.99882083e-05)
New value = (0.706578434, 0, 0)
eigendcs_ (a=0xbffff778, pd=0xbffff860, dcs=0xbffff848) at tenzors.F:534
2: **pd = 4.8469341e-05
(gdb) p q
$1 = (( 0.706578434, 0.706578434, -0.0386509709)
( 0.706578434, 0.706578434, -0.0386509709)
( -0.706578374, -0.706578374, 0.0386525765) )
(gdb) c
Continuing.
Watchpoint 4 deleted because the program has left the block in
which its expression is valid.
0x8052e23 in apd_ (x=0xbffff814, y=0xbffff810, z=0xbffff80c, pd=0xbffff860,
tol=0xbffff854, dcs=0xbffff848, nk=0xbffff7fc) at tenzors.F:575
(gdb) p *pd
$2 = (4.8469341e-05, 2.46352943e-06, -5.30518773e-05)
...
====================================================
Такие дела... :)
YF, Vladimir Stavrov
--- Gnus v5.5/Emacs 20.3
* Origin: Chaos of Order <http://wlh.chat.ru> (2:452/30.29@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Может тyт кто с фоpтpаном (g77 + gdb) дело имел? 