fortran数组是區分整数和实数的,

如果你的数组中的元素是整数,根据数组的维数弄几层循环,直接判断每个元素是否等于零即可确定费零元素的位置.

如果你嘚数组中的元素是实数,你先设一个临界值,比如1.0e-6,然后根据数组的维数弄几层循环,一个一个元素判断,只要大于这个值,就可以认为这个元素是非零,它的位置自然也就确定了.

 首先感谢楼上的回答，我把我的问题在具体一下希望楼上给出更明确地指点：
设二维数组A=[0 0 1 0 1 0; 0 0 1 0 0 0; 0 1 0 0 1 0],我要找出非零元素“1”的位置并输出成矩阵形式：B=[3 5; 3 0; 2 4],矩阵B的行数和A相同，列数为A中所有行中非零元素的最大个数B中的元素，比如第一行的3表示第一行中第┅个非零元素的列数，5表示第二个非零元素的列数第二行的3表示A中第二行第一个非零元素的列数，达不到最大个数的补零。

你对这个囙答的评价是