print_ppm Subroutine

public subroutine print_ppm(filename)

NAME

print_ppm(3f) - [M_pixel:PRINT] print pixel array as a ppm file
(LICENSE:PD)

SYNOPSIS

definition:

subroutine print_ppm(filename)
character(len=*),intent(in) :: filename

DESCRIPTION

This driver makes an P6 PPM(portable pixmap) file. Any existing file will be appended to.

OPTIONS

FILENAME name of output file to create or append to.

EXAMPLE

Sample program:

  program demo_print_ppm
  use M_pixel, only : prefsize,vinit,ortho2,vexit
  use M_pixel, only : linewidth,circle,color
  use M_pixel, only : print_ppm
  implicit none
     call prefsize(40,40)
     call vinit()
     call ortho2(-100.0,100.0,-100.0,100.0)
     call linewidth(400)
     call circle(0.0,0.0,45.0)
     call color(3)
     call circle(0.0,0.0,25.0)
     call print_ppm('demo_print.ppm')
     call vexit()
  end program demo_print_ppm

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Contents

Source Code

print_ppm

Source Code

subroutine print_ppm(filename)

! ident_35="@(#) M_pixel print_ppm(3f) print pixel array as a P6 PPM file appending to any existing file"

character(len=*),intent(in) :: filename
integer                     :: lun,ios
character(len=4096)         :: message

   open(newunit=lun,file=filename, &
      & status='unknown',          & !  STATUS    =  NEW        | REPLACE     | OLD    | SCRATCH | UNKNOWN
      & access='stream',           & !  ACCESS    =  SEQUENTIAL | DIRECT      | STREAM
      & action='write',            & !  ACTION    =  READ|WRITE | READWRITE
      & position='append',         & !  POSITION  =  ASIS       | REWIND      | APPEND
      & form='unformatted',        & !  FORM      =  FORMATTED  | UNFORMATTED
      & iostat=ios,                &
      & iomsg=message)
   if(ios.ne.0)then
       write(*,'(a)')'<ERROR>*p6out*: writing '//trim(filename)//':'//trim(message)
   else
      call output_ppm(lun)
   endif
end subroutine print_ppm