怎么把数组的角标写出来？

izzo

有一个数组A(I),I=1,30，我想在write出A(I)值的同时把I也写出来，该怎么办？这个数组是在Do循环里面赋值的，在DO里面用write(*,*) I,A(I)能够得到角标I和值A(I)，可在END DO之后我还想写出I和A(I)用write(*,*) I,A就只能显示数组元素的值，但不能显示角标I。

爷且无辜

在enddo之后用write(*,*)I，A只能将I写出一个值来(目测是31)，然后后边是A的按列排序的值，虽然A是数组，但是I只是一个变量，所以如果没有循环的话，I就只能打印一次

fcode

你循环都结束了，那么你想显示哪个角标呢？你要知道数组A的角标有30个啊

izzo

爷且无辜 发表于 2014-11-24 20:48
在enddo之后用write(*,*)I，A只能将I写出一个值来(目测是31)，然后后边是A的按列排序的值，虽然A是数组，但 ...

恩，感谢，问题已经解决了~

306908677

可以用隐do循环么？