subroutine fortiow(string,len)
c-------------------------------------------------------
c      * * F E A P * * A Finite Element Analysis Program
c      Copyright (c) 1984-2000: 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