Bounds check fix

Fixed bounds check error that pops up.  OR statement isn’t
short-circuit evaluated.

Author: gnowzil

src/snopt_wrapper.f90

@@ -217,16 +217,20 @@ subroutine f_sninit ( name, len, iPrint, iSumm, iw, leniw, rw, lenrw ) &
 
     iPrt = iPrint
 
-    if ( len == 0 .or. name(1) == c_null_char ) then
+    if ( len == 0 ) then
        iPrt = 0
     else
-       pname  = ''
-       do j = 1, len
-          if ( name(j) == c_null_char ) exit
-          pname(j:j) = name(j)
-       end do
-       close ( iPrt )
-       open  ( iPrt, file=trim(pname), status='unknown', position='append' )
+       if ( name(1) == c_null_char ) then
+          iPrt = 0
+       else
+          pname  = ''
+          do j = 1, len
+             if ( name(j) == c_null_char ) exit
+             pname(j:j) = name(j)
+          end do
+          close ( iPrt )
+          open  ( iPrt, file=trim(pname), status='unknown', position='append' )
+       end if
     end if
 
     call snInit ( iPrt, iSumm, cw, lencw, iw, leniw, rw, lenrw )