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... |