forums.silverfrost.com

[MarzAttax]

First things first.
As people have a habit of helpfully pointing out that code I post one here doesnt work and that they are surprised that it ever has done,

" THE CODE IS NOT MEANT TO WORK, IT IS ILLUSTRATIVE ONLY"

Ok, now that is out of the way............

Please look over the following "code":

========================================

Module A

Type stFerret
Integer*4, Pointer :: iTeeth(
End Type

Type(stFerret) pstFerret

Call NewInt4Array(pstFerret%iTeeth)

End Module

========================================

Module New

Subroutine NewInt4Array(Integer4Array)

Integer*4, Pointer :: Integer4Array(

NULLIFY(Integer4Array)

End Module New

========================================

My question is (as I am obviously not clever enough to understand technical ForTran documentation) )

Does the pointer passed to the routine get NULLIFIED?

or

As I intend, does pstFerret%iTeeth get NULLIFIED?

Appreciate any help on this thanx.

Bri

[PaulLaidler]

Brian

As you say this is not working code.
If it were it would be a simple matter to run the code and see what happens.
The only problem that might occur is if FTN95 does not behave as it should and this has been known to happen!