Removed superfluous lines; don't close stdout

Author: gnowzil

src/snopt_wrapper.f90

@@ -228,8 +228,6 @@ subroutine f_sninit(name, len, summOn, iw, leniw, rw, lenrw) &
              file(j:j) = name(j)
           end do
           iPrt = newunit()
-          !close (iPrt)
-          !open  (iPrt, file=trim(file), status='unknown', position='append')
           call snFileOpenAppend(iPrt, trim(file))
        end if
     end if
@@ -267,8 +265,6 @@ subroutine f_snsetprint(name, len, iw, leniw, rw, lenrw) &
     end do
 
     if (prtfile /= '') then
-       !close (iPrint)
-       !open (iPrint, file=trim(prtfile), status='unknown', position='append')
        iPrt = newunit()
        call snFileOpenAppend(iPrt,trim(prtfile))
        call snSeti('Print file', iPrt, 0, 0, Errors, &
@@ -306,8 +302,6 @@ subroutine f_snspec(name, len, inform, iw, leniw, rw, lenrw) &
 
     ! If we have a file, try to read it.
     if (spcfile /= '') then
-       !close(iSpec)
-       !open(unit=iSpec, file=trim(spcfile), status='old')
        call snFileOpenRead(iSpec,trim(spcfile))
        call snSpec(iSpec, inform, cw, lencw, iw, leniw, rw, lenrw)
        close(iSpec)
@@ -972,7 +966,7 @@ subroutine f_snend(iw, leniw, rw, lenrw) bind(C,name="f_snend")
     ! Finish up.
     !===========================================================================
     close(iw(12))  ! print file
-    close(iw(13))  ! summary file
+    if (iw(13) /= 6) close(iw(13))  ! summary file
 
   end subroutine f_snend
 

src/sqopt_wrapper.f90

@@ -94,8 +94,6 @@ subroutine f_sqinit(name, len, summOn, iw, leniw, rw, lenrw) &
              file(j:j) = name(j)
           end do
           iPrt = newunit()
-          !close (iPrt)
-          !open  (iPrt, file=trim(file), status='unknown', position='append')
           call snFileOpenAppend(iPrt, trim(file))
        end if
     end if
@@ -133,8 +131,6 @@ subroutine f_sqsetprint(name, len, iw, leniw, rw, lenrw) &
     end do
 
     if (prtfile /= '') then
-       !close (iPrint)
-       !open (iPrint, file=trim(prtfile), status='unknown', position='append')
        iPrt = newunit()
        call snFileOpenAppend(iPrt,trim(prtfile))
        call sqSeti('Print file', iPrt, 0, 0, Errors, &
@@ -172,8 +168,6 @@ subroutine f_sqspec(name, len, inform, iw, leniw, rw, lenrw) &
 
     ! If we have a file, try to read it.
     if (spcfile /= '') then
-       !close(iSpec)
-       !open(unit=iSpec, file=trim(spcfile), status='old')
        call snFileOpenRead(iSpec,trim(spcfile))
        call sqSpec(iSpec, inform, cw, lencw, iw, leniw, rw, lenrw)
        close(iSpec)
@@ -356,7 +350,7 @@ subroutine f_sqend(iw, leniw, rw, lenrw) bind(C,name="f_sqend")
     ! Finish up.
     !===========================================================================
     close(iw(12))  ! print file
-    close(iw(13))  ! summary file
+    if (iw(13) /= 6) close(iw(13))  ! summary file
 
   end subroutine f_sqend