C
C  program 18
C
C CWJ SDSU 1/9/2005
C
C  illustrates use of character
C
 
      program program18
      implicit none

      character*1 ychar
      character*10 firstname(20)
      
      integer i
      integer nnames

      nnames = 0
      do i = 1,20
        print*,' enter first name '
        read*,firstname(i)
        nnames=nnames+1
        print*,' do you want to enter another name (y/n)?'
        read*,ychar
        if(ychar.eq.'n' .or. ychar.eq.'N')goto 101
      enddo

  101 continue
      do i = 1,nnames
        print*,i, ' ', firstname(i)
      enddo
C-------- now print out first letters

      print*,' '
      print*,' print out first letters '

      do i =1,nnames
        print*,firstname(i)(1:1)
      enddo


      end