[UP]


Manual Reference Pages  - print (3)

NAME

print(3f) - [M_draw] call DRAWSTR(3f) with up to nine arbitrary intrinsic scalar values

CONTENTS

Synopsis
Description
Options
Example
Author
License

SYNOPSIS

subroutine print(g1, g2, g3, g4, g5, g6, g7, g8, g9)

class(*),intent(in),optional :: g1 ,g2 ,g3 ,g4 ,g5, g6 ,g7 ,g8 ,g9

DESCRIPTION

Call DRAWSTR(3f) with up to nine intrinsic scalar values. They will be composed into a string with spaces between the argument values. Trailing spaces of strings are trimmed unless the entire variable is blank.

OPTIONS

g1-g9 intrinsic scalar values to plot at the current point.

EXAMPLE

Sample program:

   program demo_print
   use M_draw
   implicit none
   real :: angle
   integer :: idum
   character(len=*),parameter :: space=’       ’
      ! set window size
      call prefsize(700,700)
      call prefposition( 0, 0)
      call vinit(’X11’)
      call page(-5.0,5.0,-5.0,5.0)
      call textsize(0.3,0.3)
      call color(D_BLUE)
      angle=0.0
      call turn()
      call print(space,’a logical such as ’,.true.)
      call turn()
      call print(space,’a real value’,3.1416)
      call turn()
      call print(space,’double precision’,7890.123456d0)
      call turn()
      call print(space,’integer ’,1234)
      call turn()
      call print(space,’lots of stuff’,1234,.false.,cmplx(20.0,30.0))
      idum=getkey()
      call vexit()
   contains
      subroutine turn()
         call move2(-4.0,-3.5)
         call textang(angle)
         angle=angle+15.0
      end subroutine turn
   end program demo_print

AUTHOR

John S. Urban

LICENSE

Public Domain


print (3) March 11, 2021
Generated by manServer 1.08 from f7e1299b-0579-4f97-9fcc-82d735445bd9 using man macros.