fldump.for

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

      SUBROUTINE FLDUMP(NUN,N,STRING,NCOUNT)
*-----------------------------------------------------------------------
*
*--- writes lines onto output file
*
*--- input
*    NUN         output unit
*    N           # of lines
*    STRING      lines
*--- input/output
*    NCOUNT      counter to be increased by N
*
*-----------------------------------------------------------------------
      CHARACTER *(*) STRING(*)
      DO 10 I=1,N
         WRITE (NUN,'(A)') STRING(I)
   10 CONTINUE
      NCOUNT=NCOUNT+N
      END