| 查看: 1063 | 回复: 0 | ||
[求助]
fortran运行提示错误：program exception—Access violation
|
本人新手，运行出错了，我不知道该怎么改，求助，求助高手，大牛帮忙看看吧 program main ! ! implicit none ! integer(4) :: i,j,k,n,pnblk,nbl integer(4), dimension(  , allocatable :: pim,pjm,pkminteger(4), dimension( , allocatable :: idim,jdim,kdimreal(8), dimension(:,:, , pointer :: x1,y1,z1real(8), dimension(:,:, , pointer :: x,y,ztype thblk real(8), dimension(:,:, , pointer :: x,y,zend type thblk ! type twblk real(8), dimension(:,:, , pointer :: x1,y1,z1end type twblk type(thblk), allocatable :: pblk3( type(twblk), allocatable :: pblk2( allocate(pblk2(1:nbl)) allocate(pblk3(1:pnblk)) allocate(pim(1:pnblk),pjm(1:pnblk),pkm(1:pnblk)) allocate(idim(1:nbl),jdim(1:nbl),kdim(1:nbl)) ! allocate arrays do n=1,nbl allocate(pblk2(n)%x1(0:idim(n),0:jdim(n),0:kdim(n)), & pblk2(n)%y1(0:idim(n),0:jdim(n),0:kdim(n)), & pblk2(n)%z1(0:idim(n),0:jdim(n),0:kdim(n))) end do ! do n=1,pnblk allocate(pblk3(n)%x(0:pim(n),0:pjm(n),0:pkm(n)), & pblk3(n)%y(0:pim(n),0:pjm(n),0:pkm(n)), & pblk3(n)%z(0:pim(n),0:pjm(n),0:pkm(n))) end do ! open(11,file='backstep5_3levdn.p3dfmt') rewind(11) read(11,*) nbl read(11,*) (idim(n),jdim(n),kdim(n),n=1,nbl) ! do n=1,nbl read(11,*) (((x1(i,j,k),i=1,idim(n)),j=1,jdim(n)),k=1,kdim(n)), & (((y1(i,j,k),i=1,idim(n)),j=1,jdim(n)),k=1,kdim(n)), & (((z1(i,j,k),i=1,idim(n)),j=1,jdim(n)),k=1,kdim(n)) end do ! close(11) ! do n=1,pnblk do k=0,pkm(n) do j=0,pjm(n) do i=0,pim(n) pblk3(n)%x=pblk2(n)%x1 pblk3(n)%y=pblk2(n)%y1 pblk3(n)%z=pblk2(n)%z1 end do end do end do end do ! open(11,file='prep.grd',form='unformatted') rewind(11) do n=1,pnblk write(11) pblk3(n)%x,pblk3(n)%y,pblk3(n)%z end do close(11) ! end program main |
回复此楼» 猜你喜欢
面上本子正文33页，违规吗？会被低分嘛？
已经有10人回复
-
国自然上会要求
已经有9人回复
-
博士申请
已经有5人回复
-
评审有感
已经有6人回复
-
今年审到国自然15份，谈谈感受
已经有16人回复
-
上海大学实验技术岗位非升即走
已经有8人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
30