anchor.diff:    case("PRIN") ! Enable the PRINT flag
       write(lout,"(a)") "INPUT> Note: The PRINT block is replaced by the PRINT flag in the SETT block."
       write(lout,"(a)") "INPUT> Printout of input parameters ENABLED"
  -    st_print   = .true.
  -    prevPrint  = .true.
  -    closeBlock = .true.
  +    if(openBlock) then
  +      st_print = .true.
  +    end if
   
     case("SETT") ! Global Settings Block
       if(openBlock) then
  
positive.code: 
    ! Check for end of block flag
    if(cCheck == "NEXT") then
      if(prevPrint) goto 110 ! If previous block was PRIN, just cycle. We've already closed it.
      if(currBlock == "NONE") then
        ! Catch orphaned NEXT blocks here.
        write(lout,"(a)") "INPUT> ERROR Unexpected NEXT block encountered. There is no open block to close."
  
negative.code:   integer blockLine,blockCount
  
    logical blockOpened,blockClosed,blockReopen,openBlock,closeBlock
    logical inErr,parseFort2
  
    integer icc,il1,ilin0,iMod,j,k,k10,k11,kk,l,ll,l1,l2,l3,l4,mblozz,nac,nfb,nft
  
  