In a problem I am working on, I want to use a structure which can be
represented as
TYPE TEST
INTEGER::NUM
TYPE(TEST), POINTER, DIMENSION(2,2,2)::NEXT
END TYPE TEST
I know that I can not use DIMENSION(2,2,2) in this structure and my
current structure is as follows
TYPE TEST
INTEGER::NUM
TYPE(TEST),POINTER::N111,N112,N121,N122,N211,N212,N221,N222
END TYPE TEST
This structure is very awkward and brings a lot of overhead along
with it.
Is there a way to bypass this problem? I would appreciate any
suggestions.
Thanks.
--
Feyzi INANC
Iowa State University, Center for Nondestructive Evaluation
Applied Sciences Complex II, 1915 Scholl Road, Ames IA 50011
Ph. (515) 294 9738 Fax. (515) 294 6368
E-Mail. [log in to unmask]
http://www.cnde.iastate.edu
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|