File: arrays_21.f90

package info (click to toggle)
lfortran 0.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 46,332 kB
  • sloc: cpp: 137,068; f90: 51,260; python: 6,444; ansic: 4,277; yacc: 2,285; fortran: 806; sh: 524; makefile: 30; javascript: 15
file content (13 lines) | stat: -rw-r--r-- 617 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
program arrays_21
   integer :: i6(6) = (/-14, 3, 0, -2, 19, 1/)
   integer :: i23(2, 3) = reshape((/-14, 3, 0, -2, 19, 1/), (/2, 3/))
   print *, i23                     ! writes -14   3
                                    !          0  -2
                                    !         19   1
   print *, maxloc(i6)              ! writes 5
   print *, maxloc(i23)             ! writes 1  3
   print *, maxloc(i23, dim=1)      ! writes 2  1  1
   print *, maxloc(i23, dim=2)      ! writes 3  1
   print *, maxloc(i23, dim=1, mask=(i23 < 10))
                                    ! writes 2  1  2
end program arrays_21