program convBASIS

      implicit none
      character(len=30) :: line
      character(len=2) :: element
      character(len=4) :: shell
      integer :: number
      logical :: testshell
      real :: waste

100   format(A4,I1,F10.2)
200   format(I1,2X,A1)

      open(2, file='convBASIS.out', status='unknown')

1000  read(*,*,end=9999) line

      if (line(1:4) .eq. '****') then
         read (*,*,end=9999) element
         write (2,'(A1)') "*"
         write (2,'(A2)') element
         write (2,'(A1)') "*"
      endif

      testshell = line(1:1) .eq. 'S' .or.
     &            line(1:1) .eq. 'P' .or.
     &            line(1:1) .eq. 'D' .or.
     &            line(1:1) .eq. 'F'

      if (testshell) then
         read (line,100) shell, number, waste
         write (*,*) number
      endif

      GOTO 1000

9999  end