printArray_atn.F

! ------------------------------------------------------
! print array elements
! ------------------------------------------------------

      PROGRAM  writeArray
        USE, INTRINSIC :: iso_fortran_env, ONLY: dp=>real64
        IMPLICIT NONE
        
        ! Arrays
        REAL(dp), allocatable :: arr(:)
        INTEGER i 

        ! DO i=1,10
        !     arr(i) = i**2
        ! ENDDO

        arr = [(i**2, i=1,10)]
        arr(1:3) = 500
      
        WRITE(*,*) "Array = ", arr
        WRITE(*,*) "Array size = ", SIZE(arr)
        write(*,*) "atn comment: done fortran!"
      END PROGRAM  writeArray