fdvmLDr (1158421), страница 14

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 14)

STOP

ENDIF

DM(1) = DM(1) - 1

DN(1) = DN(1) - 1

DM(KDM) = DM(KDM) - 1

DN(KDN) = DN(KDN) - 1

C генерация таблиц (графов) внешних и внутренних границ

IB = 1

GM = 2

GN = 2

DO 30 J = 1,KDN

DO 40 I = 1,KDM

IF (I.EQ.1) THEN

L = TEXB(1,IB)*4

TEXB(L+2,IB) = 1

TEXB(L+3,IB) = DN(J)+2

TEXB(L+4,IB) = 1

TEXB(L+5,IB) = 1

TEXB(1,IB) = TEXB(1,IB)+1

ELSE

L = TINB(1,IB)*7

TINB(L+2,IB) = IB-1

TINB(L+3,IB) = 1

TINB(L+4,IB) = DN(J)+2

TINB(L+5,IB) = 1

TINB(L+6,IB) = 1

TINB(L+7,IB) = 1

TINB(L+8,IB) = DM(I-1)+1

TINB(1,IB) = TINB(1,IB)+1

ENDIF

IF (I.EQ.KDM) THEN

L = TEXB(1,IB)*4

TEXB(L+2,IB) = 1

TEXB(L+3,IB) = DN(J)+2

TEXB(L+4,IB) = 1

TEXB(L+5,IB) = DM(I)+2

TEXB(1,IB) = TEXB(1,IB)+1

ELSE

L = TINB(1,IB)*7

TINB(2,IB) = IB+1

TINB(3,IB) = 1

TINB(4,IB) = DN(J)+2

TINB(5,IB) = 1

TINB(6,IB) = DM(I)+2

TINB(7,IB) = 1

TINB(8,IB) = 2

TINB(1,IB) = TINB(1,IB)+1

ENDIF

IF (J.EQ.1) THEN

L = TEXB(1,IB)*4

TEXB(L+2,IB) = 1

TEXB(L+3,IB) = DM(I)+2

TEXB(L+4,IB) = 2

TEXB(L+5,IB) = 1

TEXB(1,IB) = TEXB(1,IB)+1

ELSE

L = TINB(1,IB)*7

TINB(L+2,IB) = IB-KDM

TINB(L+3,IB) = 1

TINB(L+4,IB) = DM(I)+2

TINB(L+5,IB) = 2

TINB(L+6,IB) = 1

TINB(L+7,IB) = 2

TINB(L+8,IB) = DN(J-1)+1

TINB(1,IB) = TINB(1,IB)+1

ENDIF

IF (J.EQ.KDN) THEN

L = TEXB(1,IB)*4

TEXB(L+2,IB) = 1

TEXB(L+3,IB) = DM(I)+2

TEXB(L+4,IB) = 2

TEXB(L+5,IB) = DN(J)+2

TEXB(1,IB) = TEXB(1,IB)+1

ELSE

L = TINB(1,IB)*7

TINB(L+2,IB) = IB+KDM

TINB(L+3,IB) = 1

TINB(L+4,IB) = DM(I)+2

TINB(L+5,IB) = 2

TINB(L+6,IB) = DN(J)+2

TINB(L+7,IB) = 2

TINB(L+8,IB) = 2

TINB(1,IB) = TINB(1,IB)+1

ENDIF

SIZE(1,IB) = DM(I)+2

SIZE(2,IB) = DN(J)+2

TGL(1,IB) = GM

TGL(2,IB) = GN

GM = GM+DM(I)

IB = IB+1

40 CONTINUE

GM = 2

GN = GN+DN(J)

30 CONTINUE

NBL = IB-1

END

Характеристики

Список файлов учебной работы