О чем еще беседовать у костра, конечно только о фортране.. Что-то у меня никак не хочет билдиться)) Пишет:
--------------------Configuration: razbienie3 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\reaktor3\razbienie3.for
Linking...
razbienie3.obj : error LNK2001: unresolved external symbol _SOR@4
Debug/razbienie3.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

razbienie3.exe - 2 error(s), 0 warning(s)

Сама прога:
    program razbienie
integer i, m
real R, S, x(100,100), y(100,100), k(2), mem
namelist /rad/ R
      namelist /vys/ S
open (26, file='data.txt')
open (27, file='res.txt')
read (26,rad)
      read (26,vys)
x=0
y=0
opa=0
m=0
      DO WHILE (m>=20)
k(1)=0
       k(2)=mem
mem=mem+s/20
       DO WHILE (y(i,i)>=S OR (S-x(i,i))**2+(S-y(i,i))**2>=R**2)
        x(i+m,i)=k(1)
  y(i+m,i)=k(2)
  x(i+m+1,i)=x(i,i)+s/20
  y(i+m+1,i)=y(i,i)+s/20
        x(i+m+2,i)=x(i,i)
  y(i+m+2,i)=y(i,i)+s/10
  IF ((S-x(i+m+1,i))**2+(S-y(i+m+1,i))**2>=R**2) THEN
  y(i+m+1,i)=S-R*cos(asin((S-x(i+m+1,i))/R));
  END IF
  IF ((S-x(i+m+2,i))**2+(S-y(i+m+2,i))**2>=R**2) THEN
  y(i+m+1,i)=S-R*cos(asin((S-x(i+m+2,i))/R));
  END IF
  IF (y(i+m+1,i)>=S) THEN
  y(i+m+1,i)=S;
        END IF
  IF (y(i+m+2,i)>=S) THEN
   y(i+m+1,i)=S;
  END IF
  i=i+3
END DO
m=m+1
END DO
      write (27,x)
      write (27,y)
close (26)
close (27)
end

Если не сложно, мож кто подскажет)))