c$Header: /usr/home/sanjay/Feap/Elem/Ec/RCS/fortiow.f,v 1.3 2000/01/28 20:25:21 sanjay Exp $

	subroutine fortiow(string,len)
c-------------------------------------------------------
c      * * F E A P * * A Finite Element Analysis Program
c      Copyright (c) 1984-1994: Robert L. Taylor
c
c      C Language Example Element for FEAP
c      Copyright (c) 2000     : Sanjay Govindjee
c
c      Output a C 'string' of length len to iow
c
c-------------------------------------------------------
        implicit none

        integer len,i
        character*1 string(len)

        include 'iofile.h'

        do i = 1, len
          write(iow,100) string(i)
        end do

100     format(a1,$)


        end