!call openwr(lun,filename,er,reclength)   !open for write
 ! If lun <= 0, then lunget will be called for it.
 ! If reclength <= 0, then the default of 132 is used.
    subroutine openwr(lun,file,er,irecl)
    use str_find_mod   ! For fullfilename
    implicit none
    integer, intent(in)::  irecl
    logical, intent(out)::  er
    integer :: lun, rlen, ierr
    character*(*) file
    character*256 filex
    logical ffn_err
    rlen = irecl
    if (lun <= 0) lun = lunget()
    if (rlen <= 0) rlen = 132 ! default length
    call fullfilename(file,filex,ffn_err)
    open(unit=lun,file=trim(filex),action='write',iostat=ierr,recl=rlen)
    er=ierr.ne.0
    return
    end subroutine openwr