fldump.for

来自「This Source-Navigator, an IDE for C/C++/」· FOR 代码 · 共 20 行

      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