In [1]:

    

%%file input.par
-3.0 !xmin
3.0 !xmax
1000 !Nx
0.1 !a0
0. !a1
1. !a2
0. !a3
-0.25 !a4


    

    




Writing input.par

In [2]:

    

!ls


    

    




aloja_memoria.f90	leer_parametros.f90		       salvar_datos.f90
checa_parametros.f90	numeros_globales.f90		       Untitled1.ipynb
discretiza_dominio.f90	polinomio_con_subrutina_Nglobales.f90  Untitled.ipynb
input.par		polinomio.f90

In [7]:

    

%%file Makefile
FC=gfortran
LNK=gfortran

OBJS = aloja_memoria.o leer_parametros.o polinomio.o polinomio_con_subrutina_Nglobales.o checa_parametros.o salvar_datos.o discretiza_dominio.o
MODS = numeros_globales.o

$(OBJS):	$(MODS)

polis:	$(OBJS) $(MODS) 
		$(LNK) -o xPolinomio $(OBJS) $(MODS)

.PHONY: clean

clean:
	-rm -f *.o *.mod xPolinomio

%.o : %.f90
	$(FC) -c $< -o $@


    

    




Overwriting Makefile

In [8]:

    

!make polis


    

    




gfortran -c polinomio.f90 -o polinomio.o
gfortran -o xPolinomio aloja_memoria.o leer_parametros.o polinomio.o polinomio_con_subrutina_Nglobales.o checa_parametros.o salvar_datos.o discretiza_dominio.o numeros_globales.o

In [10]:

    

!./xPolinomio


    

In [11]:

    

!ls


    

    




aloja_memoria.f90	leer_parametros.o		       polinomio.o
aloja_memoria.o		Makefile			       salida
checa_parametros.f90	numeros_globales.f90		       salvar_datos.f90
checa_parametros.o	numeros_globales.mod		       salvar_datos.o
discretiza_dominio.f90	numeros_globales.o		       Untitled1.ipynb
discretiza_dominio.o	polinomio_con_subrutina_Nglobales.f90  Untitled.ipynb
input.par		polinomio_con_subrutina_Nglobales.o    xPolinomio
leer_parametros.f90	polinomio.f90

In [ ]: