Re: segmentation fault

Adding to my previous post, the last few lines of the latter code look
like this:


CALL writebuff("sam_thetasubX",sam_thetasubX)
CALL writebuff("sam_thetasubepsilon",sam_thetasubepsilon)
CALL writebuff("sam_thetasubb",sam_thetasubb)
CALL writebuff("sam_sigma2c",sam_sigma2c)
CALL writebuff("sam_sigma2d",sam_sigma2d)
CALL writebuff("sam_sigma2b",sam_sigma2b)
CALL writebuff("sam_sigma2epsilon",sam_sigma2epsilon)
CALL writebuff("sam_m",MATMUL(CsubX,transpose(sam_thetasubX)))
CALL writebuff("metro6",metro6/max_iter)
CALL writebuff("metro7",metro7/max_iter)


DEALLOCATE(thetasubX,thetasubepsilon,thetasubb,Y,sigma2epsilon,mu,neta,trueY,x1,x2,sigma2b,si)
WRITE(*,*) "fine"

DEALLOCATE(CsubX,Csubepsilon,transCsubX,transCsubepsilonbysigma2u)!,Csubb)
WRITE(*,*) "fine"
! DEALLOCATE(transCsubbbysigma2v)

DEALLOCATE(inv_MsubX,inv_Msubepsilon,CTCepsilonbysigma2u,inv_SIGMAsub0X,inv_SIGMAsub0epsilon,inv_SIGMAsub0b)

DEALLOCATE(inv_Msubb,CTCbbysigma2v,TEMP_21,TEMP_1,TEMP_2,TEMP_3,TEMP_4,TEMP_5,TEMP_6,TEMP_7,bivZ,bivXStar,bivZStar)

DEALLOCATE(sam_thetasubX,sam_thetasubepsilon,sam_thetasubb,sam_sigma2c,sam_sigma2d,sam_sigma2epsilon,sam_sigma2b)
DEALLOCATE(metro6,metro7)
WRITE(*,*) "fine"
WRITE(*,*) ALLOCATED(transCsubbbysigma2v),
size(transCsubbbysigma2v,1), size(transCsubbbysigma2v,2), zz1, zz2
DEALLOCATE(transCsubbbysigma2v)
WRITE(*,*) ALLOCATED(transCsubbbysigma2v)

end PROGRAM bivf2







The corresponding o/p is as follows:

2.554611
fine
fine
fine
T 28 144 147 28
Segmentation fault

.