انجام برنامه نویسی سی اف دی CFD فرترن متلب نمونه کد فرترن به توان رساندن بدون استفاده از عمل توان و ضرب

PROGRAM tavan

IMPLICIT NONE

INTEGER::k,t,i,j,m,n

READ*,m,n

t=0

k=m

DO  i=1,n-1

DO  j=1,m

t=t+k

END DO

k=t

t=0

END DO

PRINT*,k

END PROGRAM