al2alps.f90

Go to the documentation of this file.

00001 subroutine al2alps
00002 !
00003   use def_metric_1D, only : alps, alph, psi
00004   use grid_parameter_1D, only : nrg
00005   implicit none
00006 !
00007 ! --  set alps
00008 !
00009   alps(0:nrg) = alph(0:nrg)*psi(0:nrg)
00010 !
00011 end subroutine al2alps