Nowe posty

xx Dystrybucja pod HP Omen (6)
Wczoraj o 23:30:08
xx [Poradnik] Wyszukiwanie Sterowników (2)
Wczoraj o 21:08:23
lamp Problem z Linux Lite po instalacji (0)
Wczoraj o 19:50:30
xx Ile pingwinów? (1)
Wczoraj o 08:59:24
xx konfiguracja pale moon (0)
2024-03-24, 21:53:42
xx Plasma 6 w Neonie ssie trochę mniej ... (10)
2024-03-23, 02:38:11
xx problem z instalacja sterowników do karty sieciowej (3)
2024-03-18, 18:10:16
xx Plik abc.001 (1)
2024-03-17, 17:48:27
xx Zlecę dopracowanie programu w MatLab (0)
2024-03-13, 15:28:40
xx Linux Mint 21.3 XFCE brak dźwieku po paru minutach (karta muzyczna zintegrowana) (5)
2024-03-12, 23:07:01

Autor Wątek: [fortran] dynamiczna alokacja pamieci  (Przeczytany 5981 razy)

Gosik

  • Gość
[fortran] dynamiczna alokacja pamieci
« dnia: 2012-12-05, 15:35:18 »
Probuje storzyc w Fortrane program z dynamiczna alokacja pamieci. Jednakze nie mam doswiadczenia w tym temacie.

Oto fragment kodu:
 
program proba
implicit real*8(a-h,o-z)
allocatable :: big(:)

read(12,*) di,oc,vi
ovov =  oc*vi*oc*vi

allocate(big(ovov))
Teraz chcialabym wywolac podprogramy korzystajce z tablicy big.
Nie uzywajac  dynamicznej alokoacji pamieci (za pomoca indeksow) zrobilam to w natepujacy sposob:

aovov=1
 ioovv= iovov + ovov
call read_(oc,vi, big(ioovv),big(aovov))
deallocate(big)
Stad moje pytanie:
 Jak sesownie teraz storzyc alokacje pamieci, tak aby tablice w podprogramie read_  byly wrzucane do tablicy big?
Czy w podprogramach tez mam tworzyc takie dynamiczne tablice?
Czy mam skorzystac ze wskaznikow?

A moze storzyc dwie dynamiczne tablice?

Bede bardzo wdzieczna za wszelkie wskazowki! :)

falcoalopex

  • Gość
[fortran] dynamiczna alokacja pamieci
« Odpowiedź #1 dnia: 2012-12-06, 22:29:59 »
Witam!

Masz w programie jednowymiarową dynamiczną tablicę big, w której masz elementy od 1 do ovov. Jeżeli chcesz użyć danych zawartych w tablicy big w podprogramie musisz albo przekazać całą tablicę do podprogramu

 
call read_(oc,vi, big)
bez wskazania konkretnego elementu tej tablicy.
Wtedy musisz w podprogramie zadeklarować taką samą najlepiej też dynamiczną tablice o tej samej liczbie elementów. Jeśli chcesz aby podprogram zmieniał wartości tablicy big musisz dopisać przy deklarowaniu tablicy w podprogramie  INTENT(inout).

Drugiego rozwiązania nie jestem pewien, ale prawdopodobnie możesz przekazać do podprogramu konkretne wartości zapisane w tablicy tak jak to zrobiłaś:

call read_(oc,vi, big(ioovv),big(aovov))
Wtedy w podprogramie musisz zadeklarować dwie zmienne takiego samego typu co tablica.