optional assumed-shape array
- From: Mike <SulfateIon@xxxxxxxxx>
- Date: Fri, 30 May 2008 19:30:23 -0700 (PDT)
Hi
In the following program, error message shows "access violation" after
complied by CVF6.6c:
module mA
contains
real function aaa(ai)
real, optional :: ai(:)
if(present(ai))then
aaa=0.0
do i=1,size(ai)
aaa=aaa+ai(i)
end do
endif
ai(1)=3 <==="access violation"
end function aaa
end module mA
program main
use mA
real :: ai(3)
ai=(/3.,2.,53./)
print *,aaa()
END program main
I need ai to be optional argument. So how do I "access" ai?
Thank you in advance.
Mike
.
- Follow-Ups:
- Re: optional assumed-shape array
- From: Richard Maine
- Re: optional assumed-shape array
- Prev by Date: Re: format with G descriptor
- Next by Date: optional or interface
- Previous by thread: format with G descriptor
- Next by thread: Re: optional assumed-shape array
- Index(es):
Relevant Pages
|
|
