Eliminado el bucle para el numero de QD, puesto que la energia no es
tree9083a3bed51fbaac3a18fb2de2257dafc304f9f0
drwxr-xr-x - INP
-rwxr-xr-x 1555 Makefile
-rwxr-xr-x 3041 aux_proc.f90
-rwxr-xr-x 2852 dot_geo.f90
-rwxr-xr-x 3679 elipt.f90
-rwxr-xr-x 13108 input.f90
-rwxr-xr-x 7369 input_pzo.f90
-rwxr-xr-x 6202 input_str.f90
-rwxr-xr-x 732 make.ifort
-rwxr-xr-x 362 make.pgi
-rwxr-xr-x 12939 ncpack_pot.f90
-rwxr-xr-x 12252 ncpack_pzo.f90
-rwxr-xr-x 20014 ncpack_str.f90
-rwxr-xr-x 676 pot.pbs
-rwxr-xr-x 32409 pot_slat.f90
-rwxr-xr-x 11921 potdrv.f
-rwxr-xr-x 7083 poten.f90
-rwxr-xr-x 6246 pzo_mod.f90
-rwxr-xr-x 4563 pzo_slat.f90
-rwxr-xr-x 1293 pzodrv.f90
-rwxr-xr-x 7522 str_mod.f90
-rwxr-xr-x 5560 str_slat.f90
-rwxr-xr-x 1556 strdrv.f90