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: Re: Debugger for Fortran
Message-ID: <DAK28F.4Ev@aquarius.i-juse.co.jp>
Followup-To: fj.questions.unix
Lines: 109
Sender: news@aquarius.i-juse.co.jp
Nntp-Posting-Host: genzo
Organization: Institute of JUSE, Tokyo, Japan
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <DAI53o.30I@aquarius.i-juse.co.jp>
Date: Thu, 22 Jun 1995 03:41:03 GMT
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:3171 fj.lang.fortran:310
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=3171&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&$G$9!#(Bfj.lang.fortran$B$H(Bfj.questions.unix$B$K%/%m%9%]%9%H$7(B
$B$F$$$^$9!#%U%)%m!<%"%C%W$O(Bfj.questions.unix$B$K$7$F$$$^$9!#(B

# Followup$B$HFbMF$K4V0c$$$N$"$C$?5-;v$rEj9F$7$F$7$^$$$^$7$?$N$G!"%-%c%s(B
# $B%;%k$7$^$7$?!#$b$7!"(B<DAI53o.30I@aquarius.i-juse.co.jp>$B$KBP$9$k;d$N%U%)(B
# $B%m!<5-;v$,JL$K$"$j$^$7$?$iL5;k$7$F2<$5$$!#$b$&$9$0JL$N%5%$%H$G$b%-%c(B
# $B%s%;%k$5$l$k$H;W$$$^$9!#$I$&$b$9$$$^$;$s!#(B   

fj.questions.unix,fj.lang.fortran $B$N(B 
<DAI53o.30I@aquarius.i-juse.co.jp> $B$N5-;v$K$*$$$F(B 1995$BG/(B06$B7n(B21$BF|(B($B?e(B)
11$B;~(B47$BJ,(B48$BIC:"!";01:$O=q$-$^$7$?!#(B 
 
$B;01:(B>  $BNc$($P!"(B
$B;01:(B>      DIMENSION A(100,100,100)
$B;01:(B>$B$G@k8@$7$F$"$kG[Ns$N(BA(3,5,98)$B$H$+$rI=<($7$?$$$H$+!"0lIt$rJ#?t8DI=<($7(B
$B;01:(B>$B$?$$$H$$$&;~!"$I$&$9$l$PNI$$$N$G$7$g$&!#0l<!85$@$H;W$C$F!"%$%s%G%C%/%9(B
$B;01:(B>$B$N>l=j$rKh2s7W;;$7$J$5$$$C$F$N$O$+$s$Y$s$7$F2<$5$$!#(B

$B$H$$$&;d$N<ALd$KBP$7!"%a%$%k#4DL!"%K%e!<%9$G#27o$b2sEz$r$$$?$@$-$^$7$?!#(B
$B$"$j$,$H$&$4$6$$$^$7$?!#(B

$BB?<!85G[Ns$N0lItJ,$rI=<($5$;$kJ}K!$O!"Nc$($P(Ba(3,5,98)$B$,CN$j$?$1$l$P(B
  print a[3,5,98]
$B$G$G$-$k$h$&$G$9!#$?$@!"J#?t8D$rF1;~$K$OI=<($G$-$J$$$h$&$G$9(B($B>/$J$/$H(B
$B$b(BDEC3400AXP$B$N(Bdbx$B$G$O(B)$B!#Nc$($P(B print a[3,5,1:10]$B$J$I$NI=<($O%(%i!<$K$J(B
$B$j$^$9!#(B

  $B$5$F!"0J2<$N%W%m%0%i%`$N(Bdbx$B$NF0:n$K$D$$$F!"2?$+5$$N$D$$$?$3$H$,$"$j(B
$B$^$7$?$i65$($F2<$5$$!#(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
% 

Fortran$B$N%a%$%s$G$OG\@:EY$N0l<!85G[Ns(Bx$B$rMQ0U$7!"$=$l$r%5%V%k!<%A%s(Bsub
$B$KEO$7$F$$$k$@$1$G$9!#%5%V%k!<%A%s(Bsub$B$G$O(Bx$B$N0lItJ,$r#3<!85G[Ns$H$7$F<u(B
$B$1$F$$$^$9!#$3$N(Ba$B$K3F<!85$4$H$K%$%s%G%C%/%9$r3JG<$7$^$9!#Nc$($P!"(B
a(2,3,4) $B$K$O(B 20304.00000 $B$,F~$C$F$$$^$9!#(B 

$B$5$F!"<B9T7k2L$r8+$k$H!"(Bwrite$BJ8$O@5>o$KF0$$$F$$$^$9!#$G$b!"(Bdbx$B$N(B
p(print)$B$N7k2L$O$"$l$l!)$G$9$M!#%$%s%G%C%/%9$O$I$N$h$&$K$J$C$F$$$k$N$G(B
$B$7$g$&$+!)FC$K!"(Ba(1,1,2)$B$H(Ba(1,2,1)$B$,F1$8CM$K$J$j!"$=$N%"%I%l%9$bF1$8$H(B
$B$3$m$r;X$7$F$$$k$N$,LdBj$@$H46$8$^$9!#(B

$B3'$5$s$N$H$3$m$G$O!"$3$N$h$&$J7P83$O$J$$$G$9$+!)(B($BC1$J$k(Bdbx$B$N%P%0!)(B)

$B;01:(B>  $BB>$K!"$3$s$J%G%P%C%,$,$"$k$h$H$+!"$3$s$J(BFortran$B$N3+H/4D6-$NCf$K$"$k(B
$B;01:(B>$B$h$H$+$r$4B8CN$G$7$?$i65$($F2<$5$$!#$J$*!"M-NA(B($B@=IJ(B)$B$G$b7k9=$G$9!#(B

$B$3$A$i$b0zB3$-Jg=8$7$^$9!#$h$m$7$/$*4j$$$7$^$9!#(B

  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
