ani_txt.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ani_txt (text, len)
subroutine	ani_txt50 (text, len)

Function/Subroutine Documentation

ani_txt()

subroutine ani_txt	(	character, dimension(80)	text,
		integer	len )

Definition at line 31 of file ani_txt.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-----------------------------------------------
      CHARACTER TEXT(80)
      INTEGER LEN
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER CTEXT(81)
C
      ctext(1    :min(len,80)) = ichar(text(1:min(len,80)))
      ctext(len+1:81 ) = 0
C
      CALL write_c_c(ctext,81)
C
      RETURN

ani_txt50()

subroutine ani_txt50	(	character, dimension(80)	text,
		integer	len )

Definition at line 61 of file ani_txt.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-----------------------------------------------
      CHARACTER TEXT(80)
      INTEGER LEN
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER CTEXT(81)
 
      ctext(1    :len) = ichar(text(1:len))
      ctext(len+1:81 ) = 0
      CALL write_c_c(ctext,50)
C
      RETURN