求教高手！！问题很简单，但是在得不出答案~~~

zlweek197

各位高手，麻烦帮忙看一下代码~~问题已经被简化，我想通过条件选择性输入数据，但还是得不出答案~~


program fem2
dimension NP(2,4),np1(2,4)
real np,np1
integer M,M1

do 10 i=1,2
do 10 j=1,4
10 NP(i,j)=0
do 20 i=1,2
do 20 j=1,4
20 NP1(i,j)=0            （本段赋初值给np,np1两个数组）



open(5,file="input")   （“input”文件中数据见下面）
open(6,file="output",status="new")
open(7,file="output1",status="new")


M=1
m1=1

if (m/=0) then

read(5,*) ((NP(i,j),j=1,4),i=1,2)
endif
if (m1/=0) then

read(5,*) ((NP(i,j),j=1,4),i=1,2)
endif                                              （我是想通过m ,m1是否等于0的条件确定要不要给两         
                                                          个数组赋值）   

write(6,*)((NP(i,j),j=1,4),i=1,2)
write(7,*)((NP1(i,j),j=1,4),i=1,2)
close(5)
close(6)
close(7)
end



根据条件，“input”中的数据应该在"output“和”output1“中输出，但实现不了。应该是选择语句出了问题。


"input"中的数据如下：
3,4,0.5000,1.5000
5,6,1.5000,2.5000
7,8,3.0000.4.0000
9,10,5.000,6.000