character*72 bb,aa
      character*57 a
      logical b
      b=.false.
    1 continue
      read(5,'(a72)',err=8,end=8)bb
      if(bb(1:1).eq.'c')goto 1
      if(bb(1:1).eq.'C')goto 1
      if(bb(1:1).eq.'*')goto 1
      call ab(bb,aa)
      if(.not.b)then
       do 2 i=7,63
        ii=0
        if(i.lt.62.and.(aa(i:i+9).eq.'subroutine'.or.
     &  aa(i:i+9).eq.'block data'))ii=9
        if(aa(i:i+7).eq.'function')ii=7
        if(ii.eq.7.or.ii.eq.9)then
         nn=0
         do 3 j=i+ii+2,72
          if(aa(j:j).eq.'('.or.
     &    (aa(j:j).eq.' '.and.nn.gt.0))goto 4
          if(aa(j:j).ne.' ')then
           nn=nn+1
           a(nn:nn)=aa(j:j)
          endif
    3    continue
    4    open(2,file=a(1:nn)//'.f')
         b=.true.
         write(2,'(a72)')bb
         goto 1
        endif
    2  continue
      else
       do 5 i=7,70
        if(aa(i:i).ne.' '.and.aa(i:i).ne.'e')goto 7
        if(aa(i:i+2).eq.'end')then
         do 6 j=i+3,72
          if(aa(j:j).eq.'!')goto 9
          if(aa(j:j).ne.' ')goto 7
    6    continue
    9    write(2,'(a72)')bb
         b=.false.
         close(2)
         goto 1
        endif
    5  continue
    7  write(2,'(a72)')bb
      endif
      goto 1
    8 end
      subroutine ab(b,k)
      character*72 b,k
      character aa(26),bb(26)
      data aa/'A','B','C','D','E','F','G','H','I','J','K','L','M',
     &'N','O','P','Q','R','S','T','U','V','W','X','Y','Z'/
      data bb/'a','b','c','d','e','f','g','h','i','j','k','l','m',
     &'n','o','p','q','r','s','t','u','v','w','x','y','z'/
      do 1 i=1,72
       k(i:i)=b(i:i)
       do 1 j=1,26
        if(k(i:i).eq.aa(j))k(i:i)=bb(j)
    1 continue
      end