Mam problem z moim prostym programem Fortran. Pracuję w Fortran 77, używając Compaq Visual Fortran. Struktura programu musi mieć postać podprogramu głównego i podprogramu, ponieważ jest częścią dużego programu związanego z metodą elementów skończonych.

Mój problem polega na tym, że chciałbym ustawić wartości 10000 i 10000 dlaNHELE iNVELE odpowiednio, ale po uruchomieniu kodu program zatrzymuje się i wyświetla następujący błąd:

forrt1: server <170>: program Exception - stack overflow

Próbowałem iteracyjnie zmniejszyć wymagane wartości, aż osiągnąłem 507 i 507. W tym momencie kod działa bez błędów.

Jednak zwiększenie wartości do 508 i 508 powoduje ponowne pojawienie się tego samego błędu.

Myślę, że problem jest związany z podprogramemNIGTEE, ponieważ gdy przestawiam program bez niego, wszystko działa dobrze.

Próbowałem zwiększyć rozmiar stosu do maksimum za pomocą menuproject>>settings>>link>>output>>reserve & commit ale to nie miało znaczenia.

Jak mogę rozwiązać ten problem?

Oto mój program:

PARAMETER(NHELE=508,NVELE=508)
PARAMETER(NHNODE=NHELE+1,NVNODE=NVELE+1)
PARAMETER(NTOTALELE=NHELE*NVELE)

DIMENSION MELE(NTOTALELE,4)

    CALL NIGTEE(NHELE,NVELE,NHNODE,NVNODE,NTOTALELE,MELE)

OPEN(UNIT=7,FILE='MeshNO For Rectangular.TXT',STATUS='UNKNOWN')
WRITE(7,500) ((MELE(I,J),J=1,4),I=1,NTOTALELE)
500 FORMAT(4I20)

    STOP
END

  SUBROUTINE NIGTEE(NHELE,NVELE,NHNODE,NVNODE,NTOTALELE,MELE)
DIMENSION NM(NVNODE,NHNODE),NODE(4)
DIMENSION MELE(NTOTALELE,4)

KK=0
DO 20 I=1,NVNODE
DO 20 J=1,NHNODE
KK=KK+1
NM(I,J)=KK
20  CONTINUE
  KK=0
DO 30 I=1,NVELE
DO 30 J=1,NHELE
NODE(1)=NM(I,J)
NODE(2)=NM(I,J+1)
NODE(3)=NM(I+1,J+1)
NODE(4)=NM(I+1,J)
KK=KK+1
DO 50 II=1,4
50  MELE(KK,II)=NODE(II)

30  CONTINUE
  RETURN
END

Dzięki.