anchor.diff:        SBACK  = 0.5*SBACK
         QBS    = ( DBLE(SBACK)**2 + DIMAG(SBACK)**2 ) / (PINUM*XSHELL**2)
   
  -      END
  +      END SUBROUTINE
   
         SUBROUTINE ErrMsg( MESSAG, FATAL )
   
  
positive.code: 
        WRTDIM = .TRUE.
  
        END
  
  end module
  
negative.code:       IF( NUMMSG.EQ.MAXMSG ) CALL ERRMSG( &
            'Too many input errors.  Aborting...', .TRUE. )
  
        END FUNCTION
  
        LOGICAL FUNCTION WrtDim( DIMNAM, MINVAL )
  
  