In Fortran 90, do array dimensions have to be declared beforehand?

by

You want to use allocatable arrays:

PROGRAM mytest
  IMPLICIT NONE
  INTEGER :: i, j, k, mysum
  REAL, DIMENSION(:,:), allocatable :: c   !<-  c is allocatable, rank 2

  ! Let array c be a k-by-k**2 array
  ! Determine k within the program by some means...for example,
  mysum=0
  DO i=1, 3
    mysum=mysum+1
  END DO
  k=mysum

  WRITE(*,*) "k=", k
  WRITE(*,*) "k**2=", k**2
  WRITE(*,*)

  allocate(c(k,k**2))                  ! <-- allocate array c with supplied shape

  DO i=1,size(c,1)
    WRITE(*,"(100(3X,F3.1))") (c(i,j), j=1,size(c,2))
  END DO

  deallocate(c)                        ! <-- deallocate when done
END PROGRAM mytest

More Related Contents:

  1. Why are the elements of an array formatted as zeros when they are multiplied by 1/2 or 1/3?
  2. How to initialize two-dimensional arrays in Fortran
  3. How to pass allocatable arrays to subroutines in Fortran
  4. Multidimensional array with different lengths
  5. Automatic array allocation upon assignment in Fortran
  6. Assumed size arrays: Colon vs. asterisk – DIMENSION(:) arr vs. arr(*)
  7. How can a scalar be passed to a vector (1D array) to a Fortran subroutine?
  8. Arrays of pointers
  9. Function pointer arrays in Fortran
  10. Defining a function returning an array
  11. Difference between “character*10 :: a” and “character :: a(10)”
  12. How to increase array size on-the-fly in Fortran?
  13. Vector multiplication using MATMUL in Fortran
  14. Size of array after a deallocate
  15. How to Update Multiple Array Elements in mongodb
  16. Repeat copies of array elements: Run-length decoding in MATLAB
  17. Using transpose versus ctranspose in MATLAB
  18. How to find the kth smallest element in the union of two sorted arrays?
  19. How can I extend typed Arrays in Swift?
  20. Can min/max of moving window achieve in O(N)?
  21. Find the majority element in array
  22. What is the difference between a slice and an array?
  23. Are there other common “c-like” or non “c-like” languages with non zero index array position? [closed]
  24. How to initialize a multidimensional array variable in vba for excel
  25. Why does gulp.src not like being passed an array of complete paths to files?
  26. VBA using ubound on a multidimensional array
  27. Temporarily transmute [u8] to [u16]
  28. Why is a leading comma required when creating an array?
  29. How do I iterate through each element in an n-dimensional matrix in MATLAB?
  30. Dynamically Dimensioning A VBA Array?

Leave a Comment