20 Jul 2006 4:16
#871
Similar to my previous post, this code is illustrative only. Please review the following 'code'.
=============================================
Module A
Type stFerret Integer*4, Pointer :: iTeeth(:) End Type
Type stZoo Type(stFerret) pstFerret End Type
Type(stZoo) pstZoo
End Module A
=============================================
Module B
USE Module A
Type(stFerret), Pointer :: pstFerretL
pstFerretL ⇒ pstZoo%pstFerret%iTeeth If(.NOT.ASSOCIATED(pstFerretL)) Then Do Something Endif
End Module B
=============================================
My question is: Does the code see if the pointer (pstFerretL) is ASSOCIATED?
or
As I intend, does the code see if pstZoo%pstFerret%iTeeth is ASSOCIATED?
Again, I appreciated any help on this.
Bri