Re: access violation
- From: Herman D. Knoble <SkipKnobleLESS@xxxxxxxxxxxxxxx>
- Date: Fri, 10 Aug 2007 12:14:45 -0400
On Fri, 10 Aug 2007 10:31:07 -0400, Herman D. Knoble <SkipKnobleLESS@xxxxxxxxxxxxxxx>
wrote:
-|IF(IR > 4684) THEN
-| write(*,*) "IR=",IR, " I=",I
exit
-| ENDIF
Example: will stop when IR gets bigger than b's dimension.
implicit none
real :: y(848), b(4684)
integer :: maprow(848), nrtot, ir, I
B=2
NRTOT= 848
DO I=1,NRTOT
MAPROW(I)=I*6
IR = MAPROW(I)
if (IR > 4684) then
write(*,*) "I=",I," IR=",IR
exit
endif
Y(I) = B(IR) !!! Dies here
END DO
end
.
- References:
- access violation
- From: Gus Gassmann
- Re: access violation
- From: Jan Gerrit Kootstra
- Re: access violation
- From: Gus Gassmann
- Re: access violation
- From: Herman D . Knoble
- access violation
- Prev by Date: compiler independent random_seed() (newbie)
- Next by Date: Re: Q: Checking the size of a non-allocated array?
- Previous by thread: Re: access violation
- Next by thread: Re: access violation
- Index(es):
Relevant Pages
|
