Hello,
For a code such as:
type cg_solver
real, dimension(:), allocatable :: x
end type cg_solver
type system
type(cg_solver), POINTER :: solver=>NULL() ! LINE XXX
end type system
I get the following error:
1648-S: "DualNewton.f90", line XXX: An initialized object solver shall not
be of a derived type containing an allocatable array as an ultimate
component.
Why??? Is there any way to initialize solver to a NULL pointer?
Thanks,
Aleksandar
_____________________________________________
Aleksandar Donev
http://www.pa.msu.edu/~donev/
[log in to unmask]
(517) 432-6770
Department of Physics and Astronomy
Michigan State University
East Lansing, MI 48824-1116
_____________________________________________
|