- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
program main implicit none integer :: i integer :: iary_index(6) real :: Rdata(20) !数据 forall(i=1:20) Rdata(i)=i !print*,Rdata !下标 forall(i=1:6) iary_index(i)=i*2+1 !print*,iary_index print*,Rdata(iary_index) end program Main
last one error
print*,Rdata(iary_index)
Link Copied
0 Replies
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page