Abrir - RDU

Apéndices 294
.3. Programa Fortran utilizado con el Método de
Downhill
Por razones de espacio, presentamos solamente los modulos más importantes del
programa. Tampoco mostramos las subrutinas utilizadas del libro Numerical Recipes
(Press et al. 1990).
program prog
common /comunes/ spec2,lam13,vrot,points,ndesder13,nhastar13,
,np1,wspec,file
real*8 spec2(2e5),lam13(2e5),vrot,vrad
integer points
integer ndesder13,nhastar13,np1,wspec
character file*80
save /comunes/
call cls
write(*,*) ”***** Downhill Simplex Method *****”
write(*,*)
open(49, file=”datain/filenames.txt”,status=. o ld”)
open(50, file=”dataout/Solution.txt”)
open(52, file=”dataout/Logfile.txt”)
write(50,*) ”Final solution:”
write(50,*) ”Name Teff logg [Fe/H] xita vrot vrad (and initial guess)”
do
read(49,’(a80)’,end=120) file
call downhill
enddo
120continue
write(*,*)
write(*,*) ”Downhill finished.”
write(*,*)
write(52,*)
write(52,*) ”Downhill finished.”
write(52,*)
close(49)
close(50)
close(52)
end