C NCLFORTSTART
      subroutine teststr(strin,strout)
      implicit none
      character*(*) strin, strout
C NCLEND

      print *,"fortran: strin=",strin

      strout = strin // strin         ! create return string

      print *, "fortran: strout=", strout

      return
      end
C--------------------
C NCLFORTSTART
      subroutine strtest(nin,strin,nout,strout)
      implicit none
      integer nin, nout
      character*(*) strin(nin)
      character*(*) strout(nout)
C NCLEND
      integer n

      print *,"fortran: nin=",nin,"  nout=",nout
      print *,""
      do n=1,nin
         print *,"fortran: n=",n," strin(n)=",strin(n) 
      end do
      print *,""

      do n=1,nin
         strout(n) = strin(n) // strin(n)         ! create return string(s)
         print *, "fortran: n=",n," strin(n)=" ,strin(n)
     &                           ," strout(n)=", strout(n)
      end do

      return
      end