2
program input_perm_funct
4
! Allocating PERM( TOTELE, NDIM, NDIM )
5
integer, parameter :: totele = 50, ndim = 1
6
real, dimension( totele, ndim, ndim ) :: perm
9
real, parameter :: perm_value = 1.
11
print*, totele, ndim, ndim
14
perm( 1 : totele, 1, 1 ) = perm_value
19
print*, perm( i, j, k )
25
end program input_perm_funct