GitHub Depo:https://github.com/wavebitscientific/functional-fortran
Fortran (FORTRAN), özellikle sayısal hesaplama ve bilimsel hesaplama için uygun olan genel amaçlı, yordamsal, zorunlu programlama dilidir.

Fortran

1954'de IBM tarafından üretilen IBM 704 için ilk sürümü John Backus ve ekibi tarafından geliştirilmiştir. Backus ve ekibi Kasım 1954'de "The IBM Mathematical FORmula TRANslating System: Fortran" isimli raporu yayınlamışlardır.

What Will I Learn?

• I will try to give you information about the use of Fortran Programming Language. This series will proceed step by step. At the end of our project, we will have learned the Fortran Programming and Calculus Language. I will strive to give you a useful education.

Ne Öğreneceğim?

• Bu seride sizlere Fortran Programlama Dili kullanımı hakkında bilgiler vermeye çalışacağım. Bu seri adım adım ilerleyecektir. Projemizin sonunda Fortran Programlama ve Hesaplama Dilini öğrenmiş olacağız. Sizlere faydalı bir eğitim serisi vermek için çabalayacağım.

Requirements

• To develop and examine the concept of problem solving
• Thinking and developing other things while solving problems
• Force 2.0

Gereksinimler

• Problem çözme kavramını geliştirmek ve incelemek
• Problem çözerken başka yollar düşünmek ve geliştirmek
• Force 2.0

Difficulty / Zorluk

• Intermediate / Orta Düzey

Curriculum / Müfredat

Karmaşık Sayılar için Ayar ve Sınırlar #2

Saf fonksiyon filter_i1 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel yordam 1 baytlık 'integers' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_i1_logical) :: f !! Filtering function
  integer(kind=i1),dimension(:),intent(in) :: x !! Input array
  integer(kind=i1),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_i1

Saf fonksiyon filter_i2 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel yordam 2 baytlık integers içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_i2_logical) :: f !! Filtering function
  integer(kind=i2),dimension(:),intent(in) :: x !! Input array
  integer(kind=i2),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_i2

Saf fonksiyon filter_i4 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel yordam 4 baytlık 'integers' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_i4_logical) :: f !! Filtering function
  integer(kind=i4),dimension(:),intent(in) :: x !! Input array
  integer(kind=i4),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_i4

Saf fonksiyon filter_i8 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel yordam 8 baytlık 'integers' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_i8_logical) :: f !! Filtering function
  integer(kind=i8),dimension(:),intent(in) :: x !! Input array
  integer(kind=i8),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_i8

saf fonksiyon filter_r4 ( f , x ) sonucu (filtre

• X 'altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem 4 baytlık 'reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_r4_logical) :: f !! Filtering function
  real(kind=r4),dimension(:),intent(in) :: x !! Input array
  real(kind=r4),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_r4

Saf fonksiyon filter_r8 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem 8 baytlık 'reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_r8_logical) :: f !! Filtering function
  real(kind=r8),dimension(:),intent(in) :: x !! Input array
  real(kind=r8),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_r8

Saf fonksiyon filter_r16 ( f , x ) sonucu (filtre)

• X 'altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem 16 baytlık 'reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_r16_logical) :: f !! Filtering function
  real(kind=r16),dimension(:),intent(in) :: x !! Input array
  real(kind=r16),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_r16

Saf fonksiyon filter_c4 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem 4 baytlık 'reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_c4_logical) :: f !! Filtering function
  complex(kind=r4),dimension(:),intent(in) :: x !! Input array
  complex(kind=r4),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_c4

Saf fonksiyon filter_c8 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem 8 bayt 'complex reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_c8_logical) :: f !! Filtering function
  complex(kind=r8),dimension(:),intent(in) :: x !! Input array
  complex(kind=r8),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_c8

Saf fonksiyon filter_c16 ( f , x ) sonucu (filtre)

• X altkümesini döndürür, bunun için 'f(x) == .true.'
• Bu özel işlem, 16 bayt 'complex reals' içindir.
• Genel prosedür olan 'filter' ile yüklenir.

procedure(f_c16_logical) :: f !! Filtering function
  complex(kind=r16),dimension(:),intent(in) :: x !! Input array
  complex(kind=r16),dimension(:),allocatable :: filter
  logical,dimension(:),allocatable :: f_x
  integer :: i
  allocate(f_x(size(x)))
  do concurrent(i = 1:size(x))
    f_x(i) = f(x(i))
  enddo
  filter = pack(x,f_x)

son işlevi filter_c16

---

Posted on Utopian.io - Rewarding Open Source Contributors

---