C Library Functions - print (3)
NAME
print(3f) - [M_draw] call DRAWSTR(3f) with up to nine arbitrary intrinsic scalar values
CONTENTS
Synopsis
Description
Options
Examples
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.
EXAMPLES
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
| Nemo Release 3.1 | print (3) | February 23, 2025 |
