Explicit Forward-Difference Method in Fortran Programming(Gives Overflow)-(what inputs should be given)

Question

Question Link-(https://drive.google.com/file/d/1A9Vf-e1qbdNZxa_UQ2cy8K4LiEfubU6X/view?usp=sharing) The problem is with inputs when I give the inputs it gives me overflow error Code That is written for solving the problem:-

    COMMON/VARI/U(0:101),V(0:101)
    REAL K,KP
    
    DATA T,X1,X2,KP/0,0,1,1/
    P(T)= 0
    Q(T)= 0
    F(X)= 100*SIN(PI*X)
    E(X,T)=100*EXP(-PI*PI*T)*SIN(PI*X)
    PRINT*,'ENTER TMAX,N,K'
    READ*,TMAX,N,K
    H=(X2-X1)/N
    R=(KP*K)/(H*H)
    PI = 4*ATAN(1.0)
 ! SET INITIAL CONDITION============================================
    DO I =0,N
      X=X1+I*H
      V(I)=F(X)
      END DO
 ! DEFINE TRADITIONAL LINEAR SYSTEM==
 15 DO I=1,N-1
     U(I)=V(I)+R*(V(I-1)-2*V(I)+V(I+1))
     END DO
     T=T+K
     U(0)=P(T)
     U(N)=Q(T)    
 ! WRITE U OVER V TO PREPARE FOR NEXT TIME STEP==
     DO I =0,N
       V(I)= U(I)
       END DO
 !IF T IS LESS THAN TMAX , TAKE A TIME STEP===
    IF(ABS(TMAX-T).GT.K/2) GOTO 15
 ! OTHERWISE PRINT RESULT
    WRITE (2,110) N,K,TMAX,T
    WRITE (3,120)
    DO I=0,N
      X=X1+I*H
      EXACT=E(X,T)
      ER=ABS(EXACT-U(I))
      WRITE(6,130)X,U(I),EXACT,ER
      END DO
110 FORMAT(2x,'N=',I4,2x,'K=',F8.6,2x,'TMAX=',F5.2,2x,'implT=',F5.2/)
120 FORMAT(2x,'x=',F5.2,5x,'NUMERICAL',F10.2,5X,'EXAT',5X,'ER',/)  
130 FORMAT(3x,F4.2,2x,3F13.6)
    STOP
    END      


  

question from:https://stackoverflow.com/questions/66059877/explicit-forward-difference-method-in-fortran-programminggives-overflow-what

Answer 1

Waitting for answers