fortran运行出现问题，求解，不能编译
:lol program gambit2feapimplicit none
integer i,j,lj,np,el,b(784,11),nb(784,11),ai(729,2)
real a(729,4),na(729,3)
np=729
el=784
open(11,file='feapdata.txt',status='new')
open(10,file='npdata.txt',status='old')
open(12,file='eldata.txt',status='old')
write(11,110)
do i=1,np
read(10,*) (a(i,j),j=1,4)
end do
do i=1,np
ai(i,1)=a(i,1)
ai(i,2)=0
do j=2,4
lj=j-1
na(i,lj)=a(i,j)
end do
END DO
do i=1,np
write(11,*) (ai(i,j),j=1,2),(na(i,lj),lj=1,3)
end do
write(11,120)
do i=1,el
read(12,*) (b(i,j),j=1,11)
end do
do i=1,el
nb(i,1)=b(i,1)
nb(i,2)=0
nb(i,3)=1
end do
do i=1,el
nb(i,4)=b(i,4)
nb(i,7)=b(i,5)
nb(i,5)=b(i,6)
nb(i,6)=b(i,7)
nb(i,8)=b(i,8)
nb(i,11)=b(i,9)
nb(i,9)=b(i,10)
nb(i,10)=b(i,11)
end do
do i=1,el
write(11,100) (nb(i,j),j=1,11)
end do
write(11,130)
write(11,140)
write(11,150)
write(11,160)
100 format(11(i5,1x))
110 format("FEAP**naca4s stress",/,"0 0 0 3 3 8",/,1x,/,"coor")
120 format(/,"elem")
130 format(/,"mate,1"/,"solid",/,"ELAStic ISOTropic 206000 0.25")
140 format(/,"eboun",/,"3 0 1 1 1")
150 format(/,"eforce",/,"3 3 0 10 0",/,/,"end")
160 format(/,"batch",/,"tang,,1",/,"disp,all",/,"stre,node",/,"end",/,"stop")
end
出现错误：Loaded 'ntdll.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\kernel32.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\KernelBase.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\imagehlp.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\msvcrt.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\advapi32.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\sechost.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\rpcrt4.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\dbghelp.dll', no matching symbolic information found.
The thread 0x1438 has exited with code -1073741765 (0xC000003B).
The program 'G:\feappv\g2f\Debug\g2f.exe' has exited with code -1073741765 (0xC000003B).
页:
[1]