subroutine iamcalled(a)
      end
      function TATa(a)
      do i=1,1
         print*,a
      enddo

      call toto
      call rORc()
      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