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

integer(kind=i4),dimension(:),allocatable :: a,b
   integer(kind=i4) :: n
   a = set(x)
   b = set(y)
   complement = arange(1_i4,0_i4)
   do concurrent (n = 1:size(a))
     if(.not. any(b == a(n)))complement = [complement,a(n)]
   enddo

bitiş işlevi complement_i4

Saf Fonksiyon complement_i8 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel yordam 4 baytlık 'integers' içindir.
• Genel prosedür 'complement' ile yüklenir.

integer(kind=i8),dimension(:),intent(in) : : x ! ! İlk girdi dizisi
  integer(kind=i8),dimension(:),intent(in) : : y ! ! İkinci giriş dizisi
  integer(kind=i8),dimension(:),allocatable :: complement
  integer(kind=i8),dimension(:),allocatable :: a,b
  integer(kind=i4) :: n
  a = set(x)
  b = set(y)
  complement = arange(1_i8,0_i8)
  do concurrent (n = 1:size(a))
    if(.not. any(b == a(n)))complement = [complement,a(n)]
  enddo

bitiş işlevi complement_i8

Saf Fonksiyon complement_r4 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem 4 baytlık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

real(kind=r4),dimension(:),intent(in) : : x ! ! İlk girdi dizisi
  real(kind=r4),dimension(:),intent(in) : : y ! ! İkinci giriş dizisi
  real(kind=r4),dimension(:),allocatable :: complement
  real(kind=r4),dimension(:),allocatable :: a,b
  integer(kind=i4) :: n
  a = set(x)
  b = set(y)
  complement = arange(1._r4,0._r4)
  do concurrent (n = 1:size(a))
    if(.not. any(b == a(n)))complement = [complement,a(n)]
  enddo

bitiş işlevi complement_r4

Saf Fonksiyon complement_r8 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem 8 baytlık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

real(kind=r8),dimension(:),intent(in) : : x ! ! İlk girdi dizisi
   real(kind=r8),dimension(:),intent(in) : : y ! ! İkinci giriş dizisi
   real(kind=r8),dimension(:),allocatable :: complement
   real(kind=r8),dimension(:),allocatable :: a,b
   integer(kind=i4) :: n
   a = set(x)
   b = set(y)
   complement = arange(1._r4,0._r4)
   do concurrent (n = 1:size(a))
     if(.not. any(b == a(n)))complement = [complement,a(n)]
   enddo

bitiş işlevi complement_r8

Saf Fonksiyon complement_r16 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem 16 baytlık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

real(kind=r16),dimension(:),intent(in) : : x ! ! İlk girdi dizisi
   real(kind=r16),dimension(:),intent(in)  : : y ! ! İkinci giriş dizisi
   real(kind=r16),dimension(:),allocatable :: complement
   real(kind=r16),dimension(:),allocatable :: a,b
   integer(kind=i4) :: n
   a = set(x)
   b = set(y)
   complement = arange(1._r16,0._r16)
   do concurrent (n = 1:size(a))
     if(.not. any(b == a(n)))complement = [complement,a(n)]
   enddo

bitiş fonksiyonu complement_r16

Saf Fonksiyon complement_c4 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem, 4 bayt karmaşık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

complex(kind=r4),dimension(:),intent(in) : : x ! ! İlk girdi dizisi
 complex(kind=r4),dimension(:),intent(in)  : : y ! ! İkinci giriş dizisi
 complex(kind=r4),dimension(:),allocatable :: complement
 complex(kind=r4),dimension(:),allocatable :: a,b
 integer(kind=i4) :: n
 a = set(x)
 b = set(y)
 complement = arange(cmplx(1._r4,0._r4),cmplx(0._r4,0._r4))
do concurrent (n = 1:size(a))
  if(.not. any(b == a(n)))complement = [complement,a(n)]
 enddo

son işlevi complement_c4

Saf Fonksiyon complement_c8 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem 8 bayt karmaşık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

complex(kind=r8),dimension(:),intent(in)  : : x ! ! İlk girdi dizisi
  complex(kind=r8),dimension(:),intent(in)  : : y ! ! İkinci giriş dizisi
  complex(kind=r8),dimension(:),allocatable :: complement
  complex(kind=r8),dimension(:),allocatable :: a,b
  integer(kind=i4) :: n
  a = set(x)
  b = set(y)
  complement = arange(cmplx(1._r4,0._r4),cmplx(0._r4,0._r4))
  do concurrent (n = 1:size(a))
  if(.not. any(b == a(n)))complement = [complement,a(n)]
  enddo

son işlevi complement_c8

Saf Fonksiyon complement_c16 ( x , y ) sonucu (tamamlayıcı)

• İki diziden oluşan tamamlanmış bir 'complement' döndürür.
• Bu özel işlem, 16 bayt karmaşık 'reals' içindir.
• Genel prosedür 'complement' ile yüklenir.

complex(kind=r16),dimension(:),intent(in)  : : x ! ! İlk girdi dizisi
  complex(kind=r16),dimension(:),intent(in)  : : y ! ! İkinci giriş dizisi
  complex(kind=r16),dimension(:),allocatable :: complement
  complex(kind=r16),dimension(:),allocatable :: a,b
  integer(kind=i4) :: n
  a = set(x)
  b = set(y)
  complement = arange(cmplx(1._r16,0._r16),cmplx(0._r16,0._r16))
  do concurrent (n = 1:size(a))
  if(.not. any(b == a(n)))complement = [complement,a(n)]
  enddo

bitiş işlevi complement_c16

---

Posted on Utopian.io - Rewarding Open Source Contributors

---