anchor.diff:  
         WRTDIM = .TRUE.
   
  -      END
  +      END FUNCTION
   
   end module
  
positive.code:       SBACK  = 0.5*SBACK
        QBS    = ( DBLE(SBACK)**2 + DIMAG(SBACK)**2 ) / (PINUM*XSHELL**2)
  
        END
  
        SUBROUTINE ErrMsg( MESSAG, FATAL )
  
  
negative.code: 
        END IF
  
        END SUBROUTINE
  
        LOGICAL FUNCTION WrtBad( VARNAM )
  
  