trunk/beams: fix to alpha0 value if outside table range in read_beam1

Makefile.sum

@@ -17,7 +17,7 @@ FC=gfortran
 FFLAGS=-O3
 #FFLAGS=-Wall -g -finit-real=nan -ffpe-trap=invalid -fcheck=all -fbounds-check
 
-DIRECTIVES = -DREVISION="'$(shell svnversion src)'"
+DIRECTIVES = -DREVISION="178M"
 
 all: $(EXE)
 
@@ -65,7 +65,7 @@ utils.o: const_and_precisions.o
 .PHONY: clean install
 # Remove output files
 clean:
-	rm -rf *.o *.mod $(EXE)
+	rm -rf *.o *.mod
 
 install:
 	@if [ -f $(EXE) ]; then \

src/beams.f90

@@ -57,7 +57,7 @@ contains
     implicit none
 ! arguments
     character(len=*), intent(in) :: file_beam
-    real(wp_), intent(in) :: alpha0
+    real(wp_), intent(inout) :: alpha0
     real(wp_), intent(out) :: fghz,x00,y00,z00,beta0
     real(wp_), intent(out) :: wcsi,weta,rcicsi,rcieta,phir,phiw
     integer, intent(in), optional :: unit
@@ -131,6 +131,7 @@ contains
       !    alpha0 outside table range
       if(alpha0 >= alphastv(nisteer)) ii=nisteer
       if(alpha0 <= alphastv(1)) ii=1
+      alpha0=alphastv(ii)
       beta0=betastv(ii)
       x00=x00v(ii)
       y00=y00v(ii)