initiate test programs

git-svn-id: svn+ssh://michael-ep3.physik.uni-halle.de/Users/Shared/EELS2@16 7e267752-d5d8-41c0-93cd-a7fa012602f9

testprograms/t1.f90

+program t1
+
+  double precision :: epsmac
+
+  epsmac = 1.0d0
+1 epsmac = epsmac / 2.0d0
+  if (1.0d0 + epsmac > 1.0d0) goto 1
+  write (*, *) 'epsmac:', epsmac
+
+! test whether this is a valid replacement
+  
+  epsmac = 1.0d0
+  do while (1.0d0 + epsmac > 1.0d0)
+    epsmac = epsmac / 2.0d0
+  enddo
+  write (*, *) 'epsmac:', epsmac
+
+  stop
+end program t1
\ No newline at end of file