----- Original Message -----
From: "Bob Leblanc" <[log in to unmask]>
>
>
> REAL(8) , DIMENSION(max_no_legs) :: waypt,waypv,waypa
> REAL(8) , DIMENSION(max_no_legs) :: wayph,waypx,waypy
> REAL(8) , DIMENSION(max_no_legs) :: wayprd,waypth
>
You have to make these pointer arrays:
REAL(8) , DIMENSION(:), pointer :: waypt,waypv,waypa
and allocate as appropriate:
allocate(waypt(no_legs), waypv(no_legs), waypa(no_legs))
The restriction on the use of allocatable components will be lifted in
Fortran 2000. Already a number of vendors (at least IBM, Lahey, NAG and NA
Software) implement this as specified in an ISO Technical Report (see
"Fortran 90/95 Explained", Chapter 13).
Hope that helps,
Mike Metcalf
|