splotP_IR Subroutine

subroutine splotP_IR(pname,X,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,append)
  character(len=*) :: pname
  integer          :: X
  real(8)          :: Y1
  real(8),optional :: Y2,Y3,Y4,Y5,Y6,Y7,Y8
  logical,optional :: append
  logical          :: rw
  rw=.false.;if(present(append))rw=append
  if(rw)then

     open(719,file=reg((pname)),position="append")
  else
     open(719,file=reg((pname)))
  endif
  if(present(Y8))then
     write(719,"(I15,8(F21.12))")X,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8
  elseif(present(Y7))then
     write(719,"(I15,7(F21.12))")X,Y1,Y2,Y3,Y4,Y5,Y6,Y7
  elseif(present(Y6))then
     write(719,"(I15,6(F21.12))")X,Y1,Y2,Y3,Y4,Y5,Y6
  elseif(present(Y5))then
     write(719,"(I15,5(F21.12))")X,Y1,Y2,Y3,Y4,Y5
  elseif(present(Y4))then
     write(719,"(I15,4(F21.12))")X,Y1,Y2,Y3,Y4
  elseif(present(Y3))then
     write(719,"(I15,3(F21.12))")X,Y1,Y2,Y3
  elseif(present(Y2))then
     write(719,*)X,Y1,Y2
  else
     write(719,*)X,Y1
  endif
  close(719)
end subroutine splotP_IR