なるほど、ありがとうございます

さらに質問したいのですが、

サブルーチンにポインタを渡す際に、直接渡すとエラーが出てしまいます

一時的に作ったポインタで、渡したいポインタの指している実体を指して
その一時的に作ったポインタをサブルーチンに渡すと上手く行きます。

要するに、下のコメントアウトしてるのだと上手く行くけれど
コメントアウトしていないものだとglibc detected とかいうエラーが出ます。

これはなんででしょうか？

implicit none
type(particle),pointer :: dumwork
type(particle),pointer :: tmpwork,aaa

! aaa=>dumwork
! call PrintParticleList(aaa,6)
call PrintParticleList(dumwork,6)

ソースファイルを以下のアップローダーに一週間ほど上げて起きますので
どなたかよろしくお願いします。
pmod.f90 の９２行目と９３行目です。
ttp://www1.axfc.net/uploader/Sc/so/306203