Fortran - do anidados

como se trabaja con do anidados

Que clase de cosas quieres hacer con los do anidados? es un do simplemente o un do while?

program balance
c MODELO DE BALANCE DE ENERGIA DE ORDEN CERO

integer N
real*8 x,y,Pi,dang
parameter (N=100)

open (unit=10,file='table.dat',status='new')
T1=273
tao=0.64
tao1=1
sigma=5.67e-8
alpha=0.3
fkw_in=342
fkw_out=alpha*fkw_in
dt=360*24
Cw=2e8

flw=0.95*sigma*tao*Ti**4

do 100 i=1,N-1

T(i+1)=Ti+(dt/Cw)*(fkw_in-fkw_out-flw)


write (10,*)'T=', T
100 continue

stop
end