Subrutina principal para el calculo del desplazamiento en una superred.
tree340de9ccea481564f7772685779591a820a15fdb
drwxr-xr-x - INP
-rwxr-xr-x 1555 Makefile
-rwxr-xr-x 3041 aux_proc.f90
-rwxr-xr-x 3397 displ_mod.f90
-rwxr-xr-x 4190 displ_slat.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 12254 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