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