[fortran] dynamiczna alokacja pamieci

[Gosik]

Probuje storzyc w Fortrane program z dynamiczna alokacja pamieci. Jednakze nie mam doswiadczenia w tym temacie.

Oto fragment kodu:

Kod: [Zaznacz]

 
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:

Kod: [Zaznacz]

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]

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

 

Kod: [Zaznacz]

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ś:

Kod: [Zaznacz]

call read_(oc,vi, big(ioovv),big(aovov))

Wtedy w podprogramie musisz zadeklarować dwie zmienne takiego samego typu co tablica.