编的读取CAD文件多段线程序

kris · 发表于 2017-10-30 16:20:50

编译没问题，运行后，，
Process returned -1073740940 (0xC0000374) execution time : 6.129 s
Press any key to continue.

[Fortran] 纯文本查看 复制代码

01program main
02    implicit none
03    real,allocatable,dimension(:,:,:)::xyz(:,:,:)
04    integer npl,numbers
05    integer,allocatable,dimension(:)::np(:),mat(:)
06    character*20 aa1,aa2
07    real x0,y0,z0
08    integer i,nnn,j
09    800 FORMAT(A20)
10    write(*,*)'---------输入多段线中最多点数---------'
11    read*,numbers
12    allocate(np(numbers),xyz(100,100,100),mat(100))
13    npl=0
14    np(1:numbers)=0
15    open(10,FILE='shichong.dat',status='old')
16    do
17       read(10,800,end=900)aa1
18            if(aa1(1:8).eq.'POLYLINE')then
19              npl=npl+1
20               do
21                   read(10,800,end=900)aa2
22                       if(aa2(1:3).eq.'  8') then
23                           read(10,*,end=900)nnn
24                            mat(npl)=nnn
25                       else if(aa2(1:3).eq.' 10')then
26                           read(10,*)x0
27                           xyz(np(npl),1,npl)=x0
28                       else if(aa2(1:3).eq.' 20')then
29                            read(10,*)y0
30                            xyz(np(npl),2,npl)=y0
31                       else if(aa2(1:3).eq.' 30')then
32                            read(10,*)z0
33                            xyz(np(npl),3,npl)=z0
34                       else if(aa2(1:6).eq.'VERTEX')then
35                           np(npl)=np(npl)+1
36                       else if(aa2(1:6).eq.'SEQEND')then
37                           exit
38                      end if
39                end do
40           end if
41    end do
42900 write(*,*)'--------多段线读取完毕，共',npl,'条-------'
43close(10)
44deallocate(np,mat,xyz)
45end

li913 · 发表于 2017-10-30 21:43:58

end 前一行加上 read(*,*) 试试。

[求助] 编的读取CAD文件多段线程序