>>926
そうFORTRANは参照渡し。F2003なら値渡しにもできるが・・（ポインタはできないかな）。

組み合わせを変えたときに、最後のdeallocateの名前も変えるとか（サブルーチンで尻までポインタが移動しているため）、
きっちり整合していないからエラーが出るのでは？見た感じ問題なく動いているぞよ。内容を問わずに見た目だけだがｗｗｗ

サブルーチンごとに、引数のポインターが変更されては困るものと、変更されないと困るものが混じっている。
その辺で混乱しているのでは？

例（ｗ，ｗ，ｗ）の時

pwork => proot
do i=1,np
tmpnum=i
tmprr(1:2)=rr(1:2,i)
call AddParticleList(pwork,tmpnum,tmprr)
end do

! pwork=>proot
call PrintParticleList(pwork,6)

! pwork=>proot
call FreeParticleList(pwork)

! deallocate(proot,stat=i)
deallocate(pwork,stat=i)