Newsgroups: fj.questions.unix,fj.lang.fortran
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!spin-hsd0-tky!okigw!aquarius!miura
From: miura@gines.i-juse.co.jp (Masakazu Miura)
Subject: [Summary] Debugger for Fortran
Message-ID: <DBwrGo.834@aquarius.i-juse.co.jp>
Followup-To: fj.questions.unix
Lines: 83
Sender: news@aquarius.i-juse.co.jp
Nntp-Posting-Host: genzo
Organization: Institute of JUSE, Tokyo, Japan
X-Newsreader: mnews [version 1.19BETA4] 1995-06/26(Mon)
Date: Tue, 18 Jul 1995 10:50:48 GMT
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:3172 fj.lang.fortran:320
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=3172&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B;01:!wF|2J5;8&$H?=$7$^$9!#(B

fj.questions.unix$B$H(Bfj.lang.fortran$B$K%/%m%9%]%9%H$7!"(BFollowup$B$O(B
fj.questions.unix$B$r;XDj$7$F$$$^$9!#(B

$B0JA0!"(BDEC OSF/1 $B>e$G(BFortran$B$N%G%P%C%0$r$7$h$&$H$7$?$N$G$9$,!"(Bdbx$B$,G[Ns(B
$B$NCM$r$&$^$/I=<($7$F$/$l$J$$$N$G!":$$C$F$$$k$H$NEj9F$r9T$C$?<T$G$9!#(B 

# $B$9$$$^$;$s!#$A$g$C$H;E;v$,K;$7$/$J$C$F1&1}:81}$7$F$$$k$&$A$K$&$A$N%5(B
# $B%$%H$G$O855-;v$,(Bexpire$B$5$l$F$7$^$$!"5-;v$N;2>H$,$G$-$J$/$J$C$F$7$^$$(B
# $B$^$7$?!#$9$$$^$;$s!#%?%$%H%k$O(B Debugger for Fortran $B$H$J$C$F$$$^$9!#(B  

$B8=:_$N(Bdbx$B$G$O(BFortran$B$GB?<!85G[Ns$N0lItJ,$N(Bprint$B$O@5>o$K9T$($J$$$3$H$r(B
DEC$B$NJ}$K$b3NG'$7$F$b$i$$$^$7$?!#<!$N(BDigital UNIX v4.0$B$KImB0$N(BDEC
ladebug(DEC$B$N:n$C$?%G%P%C%,(B)$B$G$O$3$NLdBj$,$J$$$H$N$3$H$G$9$N$G!"$3$N(B
ladebug$B$,;H$($k$^$GBT$D$3$H$K$7$^$9!#(B 

$B$J$*!"$3$N%P!<%8%g%s$NF|K\$G$N=P2Y$O(B96$BG/Bh#1;MH>4|$K=P2Y$5$l$k$=$&$G$9!#(B

$B6qBNE*$K(Bdbx$B$N(Bprint$B%3%^%s%I$,@5>o$K=PNO$5$l$J$$MM;R$r0J2<$K<($7$F$*$-$^(B
$B$9!#(B($B0l1~:F7G:\$7$F$*$-$^$9(B)

% dbx a.out
dbx version 3.11.4
Type 'help' for help.

test$main:   2  mx=10
(dbx) l 1
     1        real*8 x(100*100*100)
>    2        mx=10
     3        my=10
     4        mz=10
     5        call sub(x,mx,my,mz)
     6        end
     7        subroutine sub(a,mx,my,mz)
     8        real*8 a(mx,my,mz)
     9        do 3 k=1,10
    10          do 2 j=1,10
    11            do 1 i=1,10
    12              a(i,j,k)=i*10000+j*100+k
    13      1     continue
    14      2   continue
    15      3 continue
    16        write(6,*) 'a(9,9,9)=',a(9,9,9)
    17        write(6,*) 'a(1,1,1)=',a(1,1,1)
    18        write(6,*) 'a(1,1,9)=',a(1,1,9)
    19        write(6,*) 'a(8,8,1)=',a(8,8,1)
    20        write(6,*) 'a(1,1,2)=',a(1,1,2)
    21        write(6,*) 'a(1,2,1)=',a(1,2,1)
    22        return
    23        end
(dbx) stop at 22
[2] stop at "test.f":22
(dbx) run
 a(9,9,9)=   90909.00000000000    
 a(1,1,1)=   10101.00000000000    
 a(1,1,9)=   10109.00000000000    
 a(8,8,1)=   80801.00000000000    
 a(1,1,2)=   10102.00000000000    
 a(1,2,1)=   10201.00000000000    
[2] stopped at   [sub:22 ,0x120001dc0]  return
(dbx) p a[9,9,9]
50301.0 
(dbx) p a[1,1,1]
10101.0 
(dbx) p a[1,1,9]
90101.0 
(dbx) p a[8,8,1]
50201.0 
(dbx) p a[1,1,2]
20101.0 
(dbx) p a[1,2,1]
20101.0 
(dbx) p &a[1,1,2]
0x1400002f8 
(dbx) p &a[1,2,1]
0x1400002f8 
(dbx) q
% 
  by myu.  (miura@gines.i-juse.co.jp)
                                          Niftyserve:JCG02610
  $B;01:@50l!JF|K\2J3X5;=Q8&=$=j(B
    $B5;=Q%7%9%F%`K\It!K(B
