analyse_out.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	writc (unit, length, tabint)
integer function	wiout (length, tabint)
integer function	wistdo (length, tabint)

Function/Subroutine Documentation

wiout()

integer function wiout	(	integer	length,
		integer, dimension(*)	tabint )

Definition at line 85 of file analyse_out.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LENGTH
      INTEGER TABINT(*)
C
      CALL writc(iout,length,tabint)
      wiout = 0
      RETURN
C

wistdo()

integer function wistdo	(	integer	length,
		integer, dimension(*)	tabint )

Definition at line 113 of file analyse_out.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LENGTH
      INTEGER TABINT(*)
C
      CALL writc(istdo,length,tabint)
C
      wistdo = 0
      RETURN

writc()

subroutine writc	(	integer	unit,
		integer	length,
		integer, dimension(*)	tabint )

Definition at line 31 of file analyse_out.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LENGTH, UNIT
      INTEGER TABINT(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      CHARACTER*80 MESSAGE
      INTEGER I, LMESS
C
      message = ' '
C
      lmess = 0
C
      DO i=1, length
         lmess = lmess + 1
C
         IF (tabint(i) == 10) THEN
            IF (lmess > 1) THEN
               WRITE(unit,'(A)') message(1:lmess-1)
            ELSE
               WRITE(unit,'(A)') ' '
            ENDIF
            lmess = 0
         ELSEIF ( lmess ==80 ) THEN
            message(lmess:lmess)=char(tabint(i))
            WRITE(unit,'(A)') message(1:lmess)
            lmess = 0
         ELSE
            message(lmess:lmess)=char(tabint(i))
         ENDIF
C
      ENDDO
C
      IF (lmess > 0) THEN
         WRITE(unit,'(A)') message(1:lmess)
      ENDIF
C
      RETURN