00001 subroutine asymptopia_alps(soupsou,souapou,dsoupsou,dsouapou) 00002 ! 00003 implicit none 00004 real(8), intent(out) :: soupsou, souapou, dsoupsou, dsouapou 00005 ! 00006 ! --- Compute source for GR boundary terms. 00007 ! 00008 soupsou = 1.0d0 00009 souapou = 1.0d0 00010 dsoupsou = 0.0d0 00011 dsouapou = 0.0d0 00012 ! 00013 end subroutine asymptopia_alps
1.6.1