Rather than
INTEGER, DIMENSION(1:10) :: numbers ! -- declare both rank and
! bounds (size);
|
INTEGER, DIMENSION(:), ALLOCATABLE :: numbers ! -- declare only rank; |
INTEGER :: num_to_sort
INTEGER, DIMENSION(:), ALLOCATABLE :: numbers
READ(UNIT=*,FTM=*) num_to_sort
ALLOCATE(numbers(1:num_to_sort))
!
! -- read in values and sort them!
!
|
| ...previous | up (conts) | next... |