subroutine splotP_RI(pname,X,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,append)
character(len=*) :: pname
real(8) :: X
integer :: Y1
integer,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,"(F21.12,8I15)")X,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8
elseif(present(Y7))then
write(719,"(F21.12,7I15)")X,Y1,Y2,Y3,Y4,Y5,Y6,Y7
elseif(present(Y6))then
write(719,"(F21.12,6I15)")X,Y1,Y2,Y3,Y4,Y5,Y6
elseif(present(Y5))then
write(719,"(F21.12,5I15)")X,Y1,Y2,Y3,Y4,Y5
elseif(present(Y4))then
write(719,"(F21.12,4I15)")X,Y1,Y2,Y3,Y4
elseif(present(Y3))then
write(719,"(F21.12,3I15)")X,Y1,Y2,Y3
elseif(present(Y2))then
write(719,*)X,Y1,Y2
else
write(719,*)X,Y1
endif
close(719)
end subroutine splotP_RI