function TATa(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATb(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATc(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATd(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATe(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATf(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATg(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATh(a)
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATi(a)
      include "dudu.h"
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATj(a)
      include "dudu.h"
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATk(a)
c \input latex/tutu.tex
      include "dudu.h"
      include "dodo.h"
      do i=1,1
         print*,a
      enddo
      call toto
      end
      function TATl(a)
      include "dudu.h"
      do i=1,1
         print*,a
      enddo
      call toto
      end