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*80	text,
		integer	len )

Definition at line 29 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*80 TEXT
      INTEGER LEN
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER CTEXT(81),I
C
      DO i=1,len
        ctext(i)=ichar(text(i:i))
      ENDDO
      ctext(len+1)=0
C
      CALL write_c_c(ctext,81)
C
      RETURN

ani_txt50()

subroutine ani_txt50	(	character*80	text,
		integer	len )

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