Fortran - program

Dobrý den, jak se prosím ve Fortranu napíše program, který by po spuštění chtěl vstupní soubor - data o dvou sloupcích (4 desetinná místa) a dal by jako výstupní soubor první sloupec stejný a druhý s přičtených požadovaným číslem, které by vložil uživatel? Zkoušela jsem modifikovat nějaký již existující program, ale ani moc nevím, co co znamená.

C Pricteni pozadovaneho cisla k druhemu sloupci`enter code here`

IMPLICIT NONE

REAL*8 (A-H,O-Z)

DIMENSION TEX(10)

CHARACTER*12 INP,OUT

C

! -----------------------------------------

OPEN(UNIT=1,FILE=CON)

! -----------------------------------------

C

PRINT *,Adding up value to the second column

PRINT *,Name of input file (two columns)?

READ(*,(A12)) INP

PRINT *,Name of output file?

READ(*,(A12)) OUT

OPEN(101,FILE=TRIM(ADJUSTL(INP)),STATUS=OLD)

! -------------------------------------------------------------------------

C OPEN(2,FILE=OUT,STATUS=NEW) ! UNKNOWN = writable, like a new one

C ! OPEN(2, = grow up unit 2 to 102

C ! ADD = CARRIAGECONTROL=FORTRAN

! -------------------------------------------------------------------------

OPEN(102,FILE=TRIM(ADJUSTL(OUT)), STATUS=UNKNOWN)

! -------------------------------------------------------------------------

PRINT *,What value add to the second column?

! *************************************************************************

READ(101,(F10.4)) K !>>>>> crop coma!

! -------------------------------------------------------------------------

READ(1,206) TEX

WRITE(*,206) TEX

V=A+K

WRITE(2,201) A,V

201 FORMAT(2(F10.4))

GO TO 7

C

10 CONTINUE

STOP 7

END

Tohle jsou errory:

pricteni_cisla.f:3:12:

REAL*8 (A-H,O-Z)

1

Error: Syntax error in data declaration at (1)

pricteni_cisla.f:30:9:

V=A+K

1

Error: Symbol ‘a’ at (1) has no IMPLICIT type

pricteni_cisla.f:26:27:

READ(101,(F10.4)) K !>>>>> crop coma!

1

Error: Symbol ‘k’ at (1) has no IMPLICIT type

pricteni_cisla.f:4:19:

DIMENSION TEX(10)

1

Error: Symbol ‘tex’ at (1) has no IMPLICIT type

pricteni_cisla.f:30:7:

V=A+K

1

Error: Symbol ‘v’ at (1) has no IMPLICIT type

pricteni_cisla.f:29:17:

WRITE(*,206) TEX

1

Error: FORMAT label 206 at (1) not defined

pricteni_cisla.f:29:17:

WRITE(*,206) TEX

1

Error: FORMAT label 206 at (1) not defined

pricteni_cisla.f:33:72: Error: Label 7 referenced at (1) is never defined

Nemohl by mi někdo prosím ten kód zprovoznit?

Za vysvětlení, co dělají jednotlivé řádky bych byla také vděčná.

Moc děkuji