aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

new tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-09 00:46:50 -07:00
parent 2a4d27cea0
commit 80737d5a6a
1194 changed files with 15353 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Arrays/Fortran/arrays-10.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10, 10, 10) :: a

1
Task/Arrays/Fortran/arrays-11.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (:), allocatable :: a

1
Task/Arrays/Fortran/arrays-12.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (:, :), allocatable :: a

1
Task/Arrays/Fortran/arrays-13.f Normal file
View file

@ -0,0 +1 @@
allocate (a (10))

1
Task/Arrays/Fortran/arrays-14.f Normal file
View file

@ -0,0 +1 @@
allocate (a (10, 10))

1
Task/Arrays/Fortran/arrays-15.f Normal file
View file

@ -0,0 +1 @@
deallocate (a)

1
Task/Arrays/Fortran/arrays-16.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10) :: a = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/)

2
Task/Arrays/Fortran/arrays-17.f Normal file
View file

@ -0,0 +1,2 @@
integer :: i
integer, dimension (10) :: a = (/(i * i, i = 1, 10)/)

1
Task/Arrays/Fortran/arrays-18.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10) :: a = 0

2
Task/Arrays/Fortran/arrays-19.f Normal file
View file

@ -0,0 +1,2 @@
integer :: i
integer, dimension (10, 10) :: a = reshape ((/(i * i, i = 1, 100)/), (/10, 10/))

1
Task/Arrays/Fortran/arrays-2.f Normal file
View file

@ -0,0 +1 @@
integer :: a (10)

2
Task/Arrays/Fortran/arrays-20.f Normal file
View file

@ -0,0 +1,2 @@
integer :: i
integer, dimension (10), parameter :: a = (/(i * i, i = 1, 10)/)

1
Task/Arrays/Fortran/arrays-21.f Normal file
View file

@ -0,0 +1 @@
a (1) = 1

1
Task/Arrays/Fortran/arrays-22.f Normal file
View file

@ -0,0 +1 @@
a (1, 1) = 1

1
Task/Arrays/Fortran/arrays-23.f Normal file
View file

@ -0,0 +1 @@
a = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/)

1
Task/Arrays/Fortran/arrays-24.f Normal file
View file

@ -0,0 +1 @@
a = (/(i * i, i = 1, 10)/)

1
Task/Arrays/Fortran/arrays-25.f Normal file
View file

@ -0,0 +1 @@
a = reshape ((/(i * i, i = 1, 100)/), (/10, 10/))

1
Task/Arrays/Fortran/arrays-26.f Normal file
View file

@ -0,0 +1 @@
a = 0

1
Task/Arrays/Fortran/arrays-27.f Normal file
View file

@ -0,0 +1 @@
a (:) = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/)

1
Task/Arrays/Fortran/arrays-28.f Normal file
View file

@ -0,0 +1 @@
a (1 : 5) = (/1, 2, 3, 4, 5/)

1
Task/Arrays/Fortran/arrays-29.f Normal file
View file

@ -0,0 +1 @@
a (: 5) = (/1, 2, 3, 4, 5/)

1
Task/Arrays/Fortran/arrays-3.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10) :: a

1
Task/Arrays/Fortran/arrays-30.f Normal file
View file

@ -0,0 +1 @@
a (6 :) = (/1, 2, 3, 4, 5/)

1
Task/Arrays/Fortran/arrays-31.f Normal file
View file

@ -0,0 +1 @@
a (1 : 5) = (/(i * i, i = 1, 10)/)

1
Task/Arrays/Fortran/arrays-32.f Normal file
View file

@ -0,0 +1 @@
a (1 : 5)= 0

1
Task/Arrays/Fortran/arrays-33.f Normal file
View file

@ -0,0 +1 @@
a (1, :)= (/(i * i, i = 1, 10)/)

1
Task/Arrays/Fortran/arrays-34.f Normal file
View file

@ -0,0 +1 @@
a (1 : 5, 1)= (/(i * i, i = 1, 5)/)

1
Task/Arrays/Fortran/arrays-35.f Normal file
View file

@ -0,0 +1 @@
i = a (1)

1
Task/Arrays/Fortran/arrays-36.f Normal file
View file

@ -0,0 +1 @@
a = b (1 : 10)

1
Task/Arrays/Fortran/arrays-37.f Normal file
View file

@ -0,0 +1 @@
i = size (a)

1
Task/Arrays/Fortran/arrays-38.f Normal file
View file

@ -0,0 +1 @@
i = size (a, 1)

1
Task/Arrays/Fortran/arrays-39.f Normal file
View file

@ -0,0 +1 @@
i_min = lbound (a)

1
Task/Arrays/Fortran/arrays-4.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10) :: a

1
Task/Arrays/Fortran/arrays-40.f Normal file
View file

@ -0,0 +1 @@
i_max = ubound (a)

1
Task/Arrays/Fortran/arrays-41.f Normal file
View file

@ -0,0 +1 @@
a = ubound (b)

1
Task/Arrays/Fortran/arrays-5.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (1 : 10) :: a

1
Task/Arrays/Fortran/arrays-6.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (0 : 9) :: a

1
Task/Arrays/Fortran/arrays-7.f Normal file
View file

@ -0,0 +1 @@
real, dimension (10) :: a

1
Task/Arrays/Fortran/arrays-8.f Normal file
View file

@ -0,0 +1 @@
type (my_type), dimension (10) :: a

1
Task/Arrays/Fortran/arrays-9.f Normal file
View file

@ -0,0 +1 @@
integer, dimension (10, 10) :: a

1
Task/Arrays/Fortran/arrays.f Normal file
View file

@ -0,0 +1 @@
integer a (10)