[es] - [FORTRAN] nizovi i prikljucenija

PKG

Član broj: 159019
Poruke: 19
79.101.215.*

Profil

^{05.01.2009. u 20:04 - pre 185 meseci}

Pozdrav svima,

trebam brzo da prevedem neki Fortran program na C++. Rok je jako kratak, niko u firmi nikada nije koristio fortran, i mene zapade taj maler da prevodim. Pomagajte molim vas, nemam vremena jos i tu muku da ucim.

Nesto sam se malo udubio pa nesto i mogu da prevedem ali ovo ne kontam nikako.

niz je definisan sa:

Code:
penfac(:)

dodeljena mu je memorija sa:

Code:
Allocate (penfac(1:ngen))

Da li ovo znaci da je prvi element niza sa indeksom 1 i da element ima ngen clanova?

niz nije koriscen do ovog reda:

Code:
penfac(1:ngen) = 1.0

Da li ovo znaci da smo inicijalizovali sve clanove niza na 1?

I onda ono najbolje:

Code:
read(1,*) penfac(1:ngen)

Ovo nista ne kontam.

Odgovor na temu

risp73

Član broj: 10771
Poruke: 1182
*.teol.net.

+40 Profil

Re: [FORTRAN] nizovi i prikljucenija

^{07.01.2009. u 22:33 - pre 185 meseci}

Odavno nisam ovdje navraćao pa tek sad vidim tvoju poruku, nadam se da si već riješio problem.
Ipak, da kažem da je postojao programčić koji je konvertovao FORTARAN u C.
Odavno se ne bavim Fortranom ali sam siguran da u verzijama koje sam ja koristio ovo nije postojalo:

Citat:

PKG:

Code:
penfac(:)

Ne znam, možda je uvedeno u nekoj od novijih verzija.

Pozdrav

Odgovor na temu

bventil
desp

Član broj: 67391
Poruke: 50
93.86.198.*

Sajt: www.geocities.com/bope999

+1 Profil

Re: [FORTRAN] nizovi i prikljucenija

^{10.01.2009. u 13:31 - pre 185 meseci}

Sve si tacno pretpostavio. Verovatno si vec resio, ali cisto da ti napomenem:
u READ naredbi * oznacava ucitavanje brojeva sa tastature,(kao input), a broj bi oznacavao citanje iz nekog fajla.
WRITE sa * oznacava stampanje na ekran, nesto drugo je za stampac, a broj je za fajl.
Broj se definise u open naredbi tog fajla, ali sam zaboravio tacnu sintaksu da bih ti napisao.
Nadam se da ti je pomoglo! Pozdrav!

Odgovor na temu

PKG

Član broj: 159019
Poruke: 19
*.ns.ac.yu.

Profil

Re: [FORTRAN] nizovi i prikljucenija

^{14.01.2009. u 14:27 - pre 185 meseci}

Hvala ljudi, pomogli ste mi, da mi odagnate sumnje. :) Ali, mi se opet pojavilo pitanje:

Code:
read(1,'(99(f10.5))')(coeff(1,j),j=0,icor_seg(ktek))

Ovo je u nekoj velikoj petlji. Da li ja ovde citam prebacujem element iz nizu u matricu, na poziciju 1,0 sa pozicije ktek?
Sta mu onda dodje:

Code:
'(99(f10.5))'

Ih, bem ti Fortran, ubi me! :)

Odgovor na temu

risp73

Član broj: 10771
Poruke: 1182
*.teol.net.

+40 Profil

Re: [FORTRAN] nizovi i prikljucenija

^{14.01.2009. u 22:02 - pre 185 meseci}

Code:
read(1,'(99(f10.5))')

je isto što i:

Code:
read(1,100)
100 format(99(f10.5))

Odgovor na temu

bventil
desp

Član broj: 67391
Poruke: 50
77.46.173.*

Sajt: www.geocities.com/bope999

+1 Profil

Re: [FORTRAN] nizovi i prikljucenija

^{14.01.2009. u 22:16 - pre 185 meseci}

99 ti znaci da ucitavas maximum 99 brojeva(sto znaci moze i manje - tj. koliki je ciklus j=0,icor_seg(ktek))

f ti oznacava da ucitavas realan broj.
10 mesta ukupno u datoteci zauzima jedan broj, a 5 od tih 10 su iza decimalnog zareza.(mozes da ih menjas)
sto znaci u fajl upises 123456790 a on to procita kao 12345,6789.

Nadji objasnjenje negde za svaki tip prom. koje slovo treba staviti.
znam da je slovo 'I' za integer (tesko bilo pretpostaviti :)

Odgovor na temu

risp73

Član broj: 10771
Poruke: 1182
*.teol.net.

+40 Profil

Re: [FORTRAN] nizovi i prikljucenija

^{15.01.2009. u 08:32 - pre 185 meseci}

Citat:

bventil: 99 ti znaci da ucitavas maximum 99 brojeva(sto znaci moze i manje - tj. koliki je ciklus j=0,icor_seg(ktek))

f ti oznacava da ucitavas realan broj.
10 mesta ukupno u datoteci zauzima jedan broj, a 5 od tih 10 su iza decimalnog zareza.(mozes da ih menjas)
sto znaci u fajl upises 123456790 a on to procita kao 12345,6789.

Nadji objasnjenje negde za svaki tip prom. koje slovo treba staviti.
znam da je slovo 'I' za integer (tesko bilo pretpostaviti :)

Pretpostavimo da imaš tabelu koja se sastoji od nRed redova i nKol kolona. Ako u petlji čitaš podatke iz te datote svaka READ naredba čita iz jednog reda (sloga). Kad u petlji slijedeći put naiđeš na READ naredbu biće pročitani podaci iz slijedećeg reda.

Ova tvoja READ naredba čita u formatu FORMAT(99F10.5) što znači da će svaki put pročitati najviše 99 racionalnih (REAL) brojeva koji zauzimaju po 10 mjesta, od kojih je jedno decimalna tačka.
Koliko brojeva će pročitati zavisi od onoga icor_seg(ktek).
Pored najčešćih F i I, koriste se i formati E, H, E, A, ...

Odgovor na temu

PKG

Član broj: 159019
Poruke: 19
*.ns.ac.yu.

Profil

Re: [FORTRAN] nizovi i prikljucenija

^{15.01.2009. u 10:34 - pre 185 meseci}

Mates, hvala vam mnogo!

Skontao sam formatiranje teksta iz datoteke ali je ova naredba bila previse kompleksna za moju trosnu srcku. Da je iscepkana na osnovne naredbe provalio bih je. :)

Evo, posto smo vec pricali o formatiranju inputa iz datoteke i nizovima, jedan kratak manual (ali jebitacan) za sve one kojima je potrebno osnovno znanje iz FORTRANa.

http://www.soars.ucar.edu/documents/Fortran_Reference.pdf

Nadam se da vas vise necu smarati. ;)

Odgovor na temu

PKG

Član broj: 159019
Poruke: 19
*.ns.ac.yu.

Profil

Re: [FORTRAN] nizovi i prikljucenija

^{06.02.2009. u 14:57 - pre 184 meseci}

E, ljudi, opet void znanja FORTRANA. :)

Pazs ovo:

Code:

         integer orderindex(1)
         real    ordertable(1)

     do i = 1,kseg
               orderindex(i) = i
     enddo

Pa kako, majku mu bozju, ovo. Pa zar nismo zasigurno prekoracili indeks ako deklarisemo niz sa jednim elementom pa onda tu nesto loopujemo kroz njega?

Odgovor na temu